t/multiple_fasta.t

   1
   2
   3
   4 use strict;
   5 BEGIN {
   6     eval { require Test; };
   7     if( $@ ) {
   8         use lib 't';
   9     }
  10     use Test;
  11     plan tests => 8;
  12 }
  13
  14 use Bio::SeqIO;
  15 use Bio::Root::IO;
  16
  17 my $in = Bio::SeqIO->new(-file => "<".Bio::Root::IO->catfile("t","data",
  18         "multifa.seq") , '-format' => 'Fasta');
  19 ok $in;
  20 my $c=0;
  21 while ( my $seq = $in->next_seq() ) {
  22     ok($seq);
  23     $c++;
  24 }
  25 ok $c,6, " missing sequences in the file";