* add tests that check trucated sequence length matches the qual data

length, fixes #2891 * note that the raw FASTQ string is NOT stored in the instances
bioperl · Apr 6, 2011 · c960791 · c960791
1 parent 76916bf
commit c960791
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/SeqIO/fastq.t b/t/SeqIO/fastq.t
@@ -7,7 +7,7 @@ BEGIN {
     use lib '.';
     use Bio::Root::Test;
 
-    test_begin( -tests => 127 );
+    test_begin( -tests => 139 );
 
     use_ok('Bio::SeqIO::fastq');
     use_ok('Bio::Seq::Quality');
@@ -200,6 +200,8 @@ for my $example (sort keys %example_files) {
         is(join(' ', map {sprintf("%.0f", $_)} @{$sample_seq->qual}),
                 $example_files{$example}->{qual},
                 "qual() matches $example");
+        my $truncated = $sample_seq->trunc(1,10);
+        is(scalar(@{$truncated->meta}), $truncated->length);
     }
 }