2
# $Id: raw.t,v 1.1 2005/09/07 02:15:50 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 => 'raw',
29
-file => Bio::Root::IO->catfile
30
(qw(t data test.raw) ));
32
ok(my $seq = $io->next_seq);
33
ok($seq->length, 358);
34
ok($seq = $io->next_seq);
35
ok($seq->length, 158);