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
26
27
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id$
use strict;
BEGIN {
use Test::RequiresInternet;
use Test::Most tests => 5;
use_ok('Bio::DB::GenBank');
}
my $verbose = $ENV{'BIOPERLDEBUG'} || -1;
my ($db,$seq);
# get a single seq
$seq = undef;
#test redirection from GenBank
ok $db = Bio::DB::GenBank->new('-verbose'=> $verbose);
throws_ok {$seq = $db->get_Seq_by_acc('NT_006732')} qr/NT_ contigs are whole chromosome files/;
SKIP: {
ok($seq = $db->get_Seq_by_acc('NM_006732'));
is($seq->length, 3775);
}
|
