t/MultiFile.t

   1 # -*-Perl-*- mode (to keep my emacs happy)
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7         eval { require Test; };
   8         if ( $@ ) {
   9                 use lib 't';
  10         }
  11         use Test;
  12         plan tests => 3;
  13 }
  14
  15 use Bio::SeqIO;
  16 use Bio::SeqIO::MultiFile;
  17
  18 ok(1);
  19
  20 my $verbose = $ENV{'BIOPERLDEBUG'} || 0;
  21
  22 my $mf = Bio::SeqIO::MultiFile->new(-format => 'Fasta' ,
  23                                                                                                 -verbose => $verbose,
  24                                                                                                 -files =>
  25                                                                                                 [ Bio::Root::IO->catfile
  26                                                                                                 ("t","data","multi_1.fa"),
  27                                                                                                 Bio::Root::IO->catfile
  28                                                                                                 ("t","data","multi_2.fa")]);
  29 ok defined $mf;
  30 my $count = 0;
  31 eval {
  32         while (my $seq = $mf->next_seq() ) {
  33                 $count++;
  34                 # $temp = $seq->display_id;
  35         }
  36 };
  37 ok( $count,12 );