t/RemoteDB/MeSH.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 => 5,
  11                         -requires_modules => [qw(IO::String
  12                                                 LWP::UserAgent
  13                         HTTP::Request::Common)],
  14                            -requires_networking => 1);
  15
  16     use_ok('Bio::DB::MeSH');
  17 }
  18
  19 #
  20 # Bio::DB::MeSH
  21 #
  22 ok my $mesh = Bio::DB::MeSH->new();
  23 SKIP: {
  24     my $t;
  25     eval {$t = $mesh->get_exact_term('Dietary Fats');};
  26     skip "Couldn't connect to MeSH with Bio::DB::MeSH. Skipping those tests", 3 if $@;
  27     is $t->each_twig(), 2;
  28     eval {$t = $mesh->get_exact_term("Sinus Thrombosis, Intracranial");};
  29     skip "Couldn't connect to MeSH with Bio::DB::MeSH. Skipping those tests", 2 if $@;
  30     like $t->description, qr/Thrombus/i;
  31     is $t->id, "D012851";
  32 }