t/RemoteDB/SeqRead_fail.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 => 18,
  11                            -requires_modules => [qw(IO::String
  12                                                                             LWP::UserAgent
  13                                                                                 HTTP::Request::Common)],
  14                            -requires_networking => 1);
  15
  16         use_ok('Bio::DB::GenBank');
  17         use_ok('Bio::DB::GenPept');
  18         use_ok('Bio::DB::SwissProt');
  19         use_ok('Bio::DB::RefSeq');
  20         use_ok('Bio::DB::EMBL');
  21         use_ok('Bio::DB::BioFetch');
  22 }
  23
  24 my $verbose = test_debug();
  25
  26 sub fetch {
  27     my ($id, $class) = @_;
  28     print "###################### $class  ####################################\n" if $verbose;
  29     my $seq;
  30     ok defined ( my $gb = new $class('-verbose'=>$verbose,'-delay'=>0) ), "defined for $class";
  31     eval { $seq = $gb->get_Seq_by_id($id) };
  32     if ($@ or not defined $seq) {
  33                 ok 1, "error or undef for $class";
  34                 return;
  35     }
  36     ok 0, "failure for $class";
  37 }
  38
  39 my @classes = qw( Bio::DB::BioFetch Bio::DB::GenBank Bio::DB::GenPept
  40                   Bio::DB::SwissProt Bio::DB::RefSeq Bio::DB::EMBL );
  41
  42 my $id = 'XXX111';  # nonsense id
  43
  44 for (@classes) {
  45     fetch($id, $_);
  46 }