From: mike <mike>
Date: Thu, 2 Nov 2006 17:04:36 +0000 (+0000)
Subject: All tests against indexdata.com are now explicitly against bagel.indexdata.com, as... 
X-Git-Tag: cpan_1_22~112
X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=commitdiff_plain;h=ae5c2b81234af64a77295188f6fc90ede3589723;p=ZOOM-Perl-moved-to-github.git

All tests against indexdata.com are now explicitly against bagel.indexdata.com, as the identity of the former name has recently changed.
---

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'");