2
# $Id: tab.t,v 1.1 2005/09/07 01:36:37 bosborne Exp $
3
# Before `make install' is performed this script should be runnable with
4
# `make test'. After `make install' it should work as `perl test.t'
7
use vars qw($NUMTESTS);
10
# to handle systems with no installed Test module
11
# we include the t dir (where a copy of Test.pm is located)
13
eval { require Test; };
18
plan tests => $NUMTESTS;
24
my $verbose = $ENV{'BIOPERLDEBUG'};
27
my $io = Bio::SeqIO->new(-format => 'tab',
29
-file => Bio::Root::IO->catfile
30
(qw(t data test.tab) ));
32
while (my $seq = $io->next_seq) {
34
ok($seq->length, 358);
35
ok($seq->display_id =~ /^roa\d_drome$/);