1 # -*-Perl-*- Test Harness script for Bioperl
10 test_begin(-tests => 12);
15 my $verbose = test_debug();
21 my $io = Bio::SeqIO->new(
22 -format => 'lasergene',
24 -file => test_input_file('test.lasergene')
31 ok($seq = $io->next_seq);
32 is($seq->length, 12*3);
33 is($seq->subseq(1,12), 'ATCGATCGATCG');
35 ok($seq = $io->next_seq);
36 is($seq->length, 200);
38 ok($seq = $io->next_seq);
39 is($seq->length, 70*5+12);
41 ok(not defined $io->next_seq);
47 $io = Bio::SeqIO->new(
48 -format => 'lasergene',
50 -file => test_input_file('test.fasta') # not lasergene!
58 like($@, qr/unexpected end of file/i);