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(), 3;
  28
  29     eval {$t = $mesh->get_exact_term("Sinus Thrombosis, Intracranial");};
  30     skip "Couldn't connect to MeSH with Bio::DB::MeSH. Skipping those tests", 2 if $@;
  31     like $t->description, qr/Thrombus/i;
  32     is $t->id, "D012851";
  33 }