1 # -*-Perl-*- Test Harness script for Bioperl
10 test_begin(-tests => 3);
12 use_ok('Bio::SeqIO::MultiFile');
15 my $verbose = test_debug();
17 my $mf = Bio::SeqIO::MultiFile->new(-format => 'Fasta' ,
20 [ test_input_file('multi_1.fa'),
21 test_input_file('multi_2.fa')]);
25 while (my $seq = $mf->next_seq() ) {