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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id$
use strict;
BEGIN {
use Bio::Root::Test;
test_begin(-tests => 8);
use_ok('Bio::SeqIO::tab');
}
my $verbose = test_debug();
my $io = Bio::SeqIO->new(-format => 'tab',
-verbose => $verbose,
-file => test_input_file('test.tab'));
isa_ok($io, 'Bio::SeqIO');
while (my $seq = $io->next_seq) {
ok ( $seq && defined $seq, 'seq is defined' ) ;
is ( $seq->length, 358, 'check seq length' ) ;
like ($seq->display_id, qr/^roa\d_drome$/, 'check matching' );
}
|
