From ae5c2b81234af64a77295188f6fc90ede3589723 Mon Sep 17 00:00:00 2001 From: mike Date: Thu, 2 Nov 2006 17:04:36 +0000 Subject: [PATCH] All tests against indexdata.com are now explicitly against bagel.indexdata.com, as the identity of the former name has recently changed. --- t/1-Net-Z3950-ZOOM.t | 4 ++-- t/12-query.t | 4 ++-- t/13-resultset.t | 4 ++-- t/14-sorting.t | 4 ++-- t/15-scan.t | 4 ++-- t/19-events.t | 4 ++-- t/2-ZOOM.t | 4 ++-- t/22-query.t | 4 ++-- t/23-resultset.t | 4 ++-- t/24-sorting.t | 4 ++-- t/25-scan.t | 4 ++-- t/29-events.t | 4 ++-- 12 files changed, 24 insertions(+), 24 deletions(-) diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t index a860861..67bc2c9 100644 --- a/t/1-Net-Z3950-ZOOM.t +++ b/t/1-Net-Z3950-ZOOM.t @@ -1,4 +1,4 @@ -# $Id: 1-Net-Z3950-ZOOM.t,v 1.13 2005-11-16 16:24:42 mike Exp $ +# $Id: 1-Net-Z3950-ZOOM.t,v 1.14 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t' @@ -19,7 +19,7 @@ $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == Net::Z3950::ZOOM::ERROR_CONNECT && $addinfo eq $host, "connection to non-existent host '$host' fails"); -$host = "indexdata.com/gils"; +$host = "bagel.indexdata.com/gils"; $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); diff --git a/t/12-query.t b/t/12-query.t index 39ff941..a6ef92b 100644 --- a/t/12-query.t +++ b/t/12-query.t @@ -1,4 +1,4 @@ -# $Id: 12-query.t,v 1.7 2006-06-15 15:43:19 mike Exp $ +# $Id: 12-query.t,v 1.8 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 12-query.t' @@ -46,7 +46,7 @@ ok(1, "destroyed complex query"); # no other uses of query objects -- but we need to establish a # connection for it to work on first. -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); diff --git a/t/13-resultset.t b/t/13-resultset.t index 6a5cda7..0e402e0 100644 --- a/t/13-resultset.t +++ b/t/13-resultset.t @@ -1,4 +1,4 @@ -# $Id: 13-resultset.t,v 1.6 2005-11-07 15:48:21 mike Exp $ +# $Id: 13-resultset.t,v 1.7 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 13-resultset.t' @@ -10,7 +10,7 @@ BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); diff --git a/t/14-sorting.t b/t/14-sorting.t index 30debe8..af035e8 100644 --- a/t/14-sorting.t +++ b/t/14-sorting.t @@ -1,4 +1,4 @@ -# $Id: 14-sorting.t,v 1.6 2005-11-18 17:53:53 mike Exp $ +# $Id: 14-sorting.t,v 1.7 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 14-sorting.t' @@ -12,7 +12,7 @@ BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); diff --git a/t/15-scan.t b/t/15-scan.t index 485825b..ba7f72b 100644 --- a/t/15-scan.t +++ b/t/15-scan.t @@ -1,4 +1,4 @@ -# $Id: 15-scan.t,v 1.11 2006-06-15 15:45:48 mike Exp $ +# $Id: 15-scan.t,v 1.12 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 15-scan.t' @@ -11,7 +11,7 @@ BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); diff --git a/t/19-events.t b/t/19-events.t index 87cc242..49546ca 100644 --- a/t/19-events.t +++ b/t/19-events.t @@ -1,4 +1,4 @@ -# $Id: 19-events.t,v 1.5 2006-04-12 12:07:32 mike Exp $ +# $Id: 19-events.t,v 1.6 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 19-events.t' @@ -17,7 +17,7 @@ my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); my $options = Net::Z3950::ZOOM::options_create(); Net::Z3950::ZOOM::options_set($options, async => 1); -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_create($options); Net::Z3950::ZOOM::connection_connect($conn, $host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); diff --git a/t/2-ZOOM.t b/t/2-ZOOM.t index fcf7619..868b338 100644 --- a/t/2-ZOOM.t +++ b/t/2-ZOOM.t @@ -1,4 +1,4 @@ -# $Id: 2-ZOOM.t,v 1.10 2006-10-10 16:50:38 mike Exp $ +# $Id: 2-ZOOM.t,v 1.11 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 2-ZOOM.t' @@ -18,7 +18,7 @@ ok($@ && $@->isa("ZOOM::Exception") && $@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host, "connection to non-existent host '$host' fails"); -$host = "indexdata.com/gils"; +$host = "bagel.indexdata.com/gils"; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); diff --git a/t/22-query.t b/t/22-query.t index 0399ff4..0f6141b 100644 --- a/t/22-query.t +++ b/t/22-query.t @@ -1,4 +1,4 @@ -# $Id: 22-query.t,v 1.9 2006-10-10 16:58:14 mike Exp $ +# $Id: 22-query.t,v 1.10 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 22-query.t' @@ -51,7 +51,7 @@ ok(1, "destroyed complex query"); # no other uses of query objects -- but we need to establish a # connection for it to work on first. -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn; eval { $conn = new ZOOM::Connection($host, 0, preferredRecordSyntax => "usmarc") }; diff --git a/t/23-resultset.t b/t/23-resultset.t index 6a13a25..a8156e1 100644 --- a/t/23-resultset.t +++ b/t/23-resultset.t @@ -1,4 +1,4 @@ -# $Id: 23-resultset.t,v 1.3 2005-11-07 15:48:25 mike Exp $ +# $Id: 23-resultset.t,v 1.4 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 23-resultset.t' @@ -8,7 +8,7 @@ use warnings; use Test::More tests => 23; BEGIN { use_ok('ZOOM') }; -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); diff --git a/t/24-sorting.t b/t/24-sorting.t index f6e0fe4..381cf8c 100644 --- a/t/24-sorting.t +++ b/t/24-sorting.t @@ -1,4 +1,4 @@ -# $Id: 24-sorting.t,v 1.5 2005-11-18 17:53:16 mike Exp $ +# $Id: 24-sorting.t,v 1.6 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 24-sorting.t' @@ -10,7 +10,7 @@ use MARC::Record; BEGIN { use_ok('ZOOM') }; -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); diff --git a/t/25-scan.t b/t/25-scan.t index eb5d07c..f81acb6 100644 --- a/t/25-scan.t +++ b/t/25-scan.t @@ -1,4 +1,4 @@ -# $Id: 25-scan.t,v 1.8 2006-06-13 16:44:21 mike Exp $ +# $Id: 25-scan.t,v 1.9 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 25-scan.t' @@ -9,7 +9,7 @@ use Test::More tests => 87; BEGIN { use_ok('ZOOM') }; -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); diff --git a/t/29-events.t b/t/29-events.t index 8a5d3f5..dabd136 100644 --- a/t/29-events.t +++ b/t/29-events.t @@ -1,4 +1,4 @@ -# $Id: 29-events.t,v 1.2 2006-10-10 16:51:02 mike Exp $ +# $Id: 29-events.t,v 1.3 2006-11-02 17:04:36 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 19-events.t' @@ -14,7 +14,7 @@ ok(ZOOM::event_str(ZOOM::Event::CONNECT) eq "connect", my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -my $host = "indexdata.com/gils"; +my $host = "bagel.indexdata.com/gils"; my $conn = create ZOOM::Connection(async => 1); eval { $conn->connect($host) }; ok(!$@, "connection to '$host'"); -- 1.7.10.4