1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: eutils.t 15416 2009-01-21 16:46:12Z cjfields $
10
test_begin(-tests => 4,
11
-requires_modules => [qw(IO::String LWP::Simple XML::Twig)],
12
-requires_networking => 1);
14
use_ok('Bio::Biblio');
17
## End of black magic.
21
my $verbose = test_debug();
23
ok ($db = Bio::Biblio->new(-access => 'eutils',
26
ok(defined($db->find('"Day A"[AU] AND ("Database Management Systems"[MH] OR "Databases, Genetic"[MH] OR "Software"[MH] OR "Software Design"[MH])')));
30
skip("Warning: Couldn't connect to Eutils server!\n$@\n",1);
33
# these aren't exactly the most stringent of tests...
35
while(my $xml = $db->get_next) {
38
# bullet-proof this, though it really needs more stringent tests...