Testing gff_string output

bioperl · Mar 5, 2012 · 48377ea · 48377ea
1 parent 8f1ee0b
commit 48377ea
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/Tools/AmpliconSearch.t b/t/Tools/AmpliconSearch.t
@@ -340,7 +340,12 @@ $num_feats = 0;
 for my $feat ( $annotated->get_SeqFeatures ) {
    $num_feats++;
    isa_ok $feat, 'Bio::SeqFeature::Amplicon';
+
+   ####
+   print $feat->gff_string;
+   ####
+
 }
 is $num_feats, 2;
-
 is $search->next_amplicon, undef;
+