1 # -*-Perl-*- Test Harness script for Bioperl
10 test_begin(-tests => 5);
12 use_ok 'Bio::SeqIO::MultiFile';
15 my $verbose = test_debug();
18 # Test multiple files, with a specified format
19 ok my $mf = Bio::SeqIO::MultiFile->new(
22 -files => [ test_input_file('multi_1.fa'), test_input_file('multi_2.fa')],
26 while (my $seq = $mf->next_seq() ) {
32 # Automatically determine format
33 ok $mf = Bio::SeqIO::MultiFile->new(
35 -files => [ test_input_file('multi_1.fa'), test_input_file('multi_2.fa')],
38 is $mf->format, 'fasta';