branch-1-6/t/RemoteDB/SeqVersion.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7   use lib '.';
   8   use Bio::Root::Test;
   9
  10   test_begin(-tests => 10,
  11                          -requires_module => 'LWP::UserAgent');
  12
  13   use_ok('Bio::DB::SeqVersion');
  14 }
  15
  16 ok my $query = Bio::DB::SeqVersion->new(-type => 'gi');
  17
  18 SKIP: {
  19         test_skip(-tests => 8, -requires_networking => 1);
  20
  21         eval { $query->get_history('DODGY_ID_WHICH_SHOULD_FAIL') };
  22         like($@, qr/could not parse/i, 'throw on bad ID');
  23
  24         my $latest_gi = $query->get_recent(2);
  25         is($latest_gi, 2, 'get_recent');
  26
  27         my @all_gis = $query->get_all(2);
  28         is(scalar @all_gis, 8, 'get_all');
  29
  30         $latest_gi = $query->get_recent('A00002');
  31         is($latest_gi, 2, 'get_recent, string');
  32
  33         $latest_gi = $query->get_recent(27478738);
  34         is($latest_gi, 42659163, 'get_recent, integer');
  35
  36         # check that default type is "gi"
  37         ok $query = Bio::DB::SeqVersion->new();
  38         ok my $ref = $query->get_history(3245);
  39         is($ref->[0]->[0], 578167, 'get_history');
  40 }