1 # -*-Perl-*- Test Harness script for Bioperl
10 test_begin(-tests => 5);
15 my $verbose = test_debug();
17 my $io = Bio::SeqIO->new(-format => 'raw',
19 -file => test_input_file('test.raw'));
23 ok( $seq = $io->next_seq, 'got next seq');
24 is( $seq->length, 358, 'checked seq length');
25 ok( $seq = $io->next_seq, 'got next seq');
26 is( $seq->length, 158, 'checked seq length');