# -*-Perl-*- Test Harness script for Bioperl
# $Id$
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin( #-tests => 10,
-requires_modules => [qw(LWP::UserAgent HTML::TableExtract)]
);
use_ok('Bio::DB::SeqVersion');
}
my $DEBUG = $ENV{BIOPERLDEBUG} || 0;
ok my $query = Bio::DB::SeqVersion->new( -type => 'gi' );
SKIP: {
test_skip( -tests => 8, -requires_networking => 1 );
throws_ok { $query->get_history('DODGY_ID_WHICH_SHOULD_FAIL') }
qr/ID likely does not exist/i, 'throw on bad ID';
my $latest_gi = $query->get_recent(2);
is($latest_gi, 2, 'get_recent');
is($query->get_status(2), 'live');
my @all_gis = $query->get_all(2);
cmp_ok(@all_gis, '>=', 8, 'get_all');
is($query->get_status(2), 'live');
$latest_gi = $query->get_recent('A00002');
is($latest_gi, 2, 'get_recent, string');
is($query->get_status('A00002'), 'live');
$latest_gi = $query->get_recent(27478738);
is($latest_gi, 42659163, 'get_recent, integer');
is($query->get_status(27478738), 'suppressed');
# check that default type is "gi"
ok $query = Bio::DB::SeqVersion->new();
ok my $ref = $query->get_history(3245);
is($ref->[0]->[0], 578167, 'get_history');
is($query->get_status('3245'), 'suppressed');
}
done_testing();