X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F2-ZOOM.t;h=e369e39e9e1f70701f1bc68b2ef4df1e315636ce;hb=1cd7b9d39daa9b7baee1a4fff30ecd5170e3df9f;hp=87ee8cf0fe7195d1fb69930100ab40ac2b04fd73;hpb=0e91ffec348cde6f556718007351d7a7d06f39b1;p=ZOOM-Perl-moved-to-github.git 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) };