# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
$@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,
"connection to non-existent host '$host' fails");
$@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,
"connection to non-existent host '$host' fails");
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = $rec->raw();
ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = $rec->raw();