1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: fastq.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 5);
12
use_ok('Bio::SeqIO::fastq');
15
my $DEBUG = test_debug();
18
my $in_qual = Bio::SeqIO->new('-file' => test_input_file('bug2335.fastq'),
21
isa_ok($in_qual, 'Bio::SeqIO');
23
my $qual = $in_qual->next_seq();
24
isa_ok($qual, 'Bio::Seq::Quality');
26
my @quals = @{$qual->qual()};
28
is(@quals, 111, 'number of qual values');
30
my $qualslice = join(',',@quals[0..10]);
31
is($qualslice, '31,23,32,23,31,22,27,28,32,24,25', 'qual slice');