1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: Multiple_fasta.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 9);
15
my $in = Bio::SeqIO->new(-file => test_input_file('multifa.seq') , '-format' => 'Fasta');
18
while ( my $seq = $in->next_seq() ) {
22
is $c,6, "all sequences in the file";