From 1cd7b9d39daa9b7baee1a4fff30ecd5170e3df9f Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 8 Jun 2010 15:03:47 +0100 Subject: [PATCH] More diagnostics --- t/1-Net-Z3950-ZOOM.t | 2 +- t/2-ZOOM.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t index f8b921c..f8296e6 100644 --- a/t/1-Net-Z3950-ZOOM.t +++ b/t/1-Net-Z3950-ZOOM.t @@ -20,7 +20,7 @@ my $host = "no.such.host"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $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: \$\@=$@"); + "connection to non-existent host '$host' fails: \$conn=$conn, \$\@=$@"); $host = "z3950.indexdata.com/gils"; $conn = Net::Z3950::ZOOM::connection_new($host, 0); diff --git a/t/2-ZOOM.t b/t/2-ZOOM.t index 87ee8cf..e369e39 100644 --- a/t/2-ZOOM.t +++ b/t/2-ZOOM.t @@ -19,7 +19,7 @@ my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok($@ && $@->isa("ZOOM::Exception") && $@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host, - "connection to non-existent host '$host' fails: \$\@=$@"); + "connection to non-existent host '$host' fails: \$conn=$conn, \$\@=$@"); $host = "z3950.indexdata.com/gils"; eval { $conn = new ZOOM::Connection($host, 0) }; -- 1.7.10.4