1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: MultiFile.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 3);
use_ok('Bio::SeqIO::MultiFile');
}
my $verbose = test_debug();
my $mf = Bio::SeqIO::MultiFile->new(-format => 'Fasta' ,
-verbose => $verbose,
-files =>
[ test_input_file('multi_1.fa'),
test_input_file('multi_2.fa')]);
ok defined $mf;
my $count = 0;
eval {
while (my $seq = $mf->next_seq() ) {
$count++;
}
};
is( $count,12 );
|
