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     is $t->description, "Formation or presence of a blood clot (THROMBUS) in the CRANIAL SINUSES, large endothelium-lined venous channels situated within the SKULL. Intracranial sinuses, also called cranial venous sinuses, include the superior sagittal, cavernous, lateral, petrous sinuses, and many others. Cranial sinus thrombosis can lead to severe HEADACHE; SEIZURE; and other neurological defects.";
  31     is $t->id, "D012851";
  32 }