branch-1-6/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 = $class->new('-verbose'=>$verbose,
  31                                                                          '-delay'=>0,
  32                                                                          '-retrievaltype' => 'tempfile') ), "defined for $class";
  33     eval { $seq = $gb->get_Seq_by_id($id) };
  34     if ($@ || !defined $seq) {
  35                 ok 1, "error or undef for $class";
  36                 return;
  37     }
  38     ok 0, "failure for $class";
  39 }
  40
  41 my @classes = qw( Bio::DB::BioFetch Bio::DB::GenBank Bio::DB::GenPept
  42                   Bio::DB::SwissProt Bio::DB::RefSeq Bio::DB::EMBL );
  43
  44 my $id = 'XXX111';  # nonsense id
  45
  46 for (@classes) {
  47     fetch($id, $_);
  48 }