projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1cd7b9d
)
Appropriate low-level diagnostics.
author
Mike Taylor
<mike@miketaylor.org.uk>
Tue, 8 Jun 2010 14:08:31 +0000
(15:08 +0100)
committer
Mike Taylor
<mike@miketaylor.org.uk>
Tue, 8 Jun 2010 14:08:31 +0000
(15:08 +0100)
t/1-Net-Z3950-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/1-Net-Z3950-ZOOM.t
b/t/1-Net-Z3950-ZOOM.t
index
f8296e6
..
74e3990
100644
(file)
--- 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,
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: \$conn=$conn, \$\@=$@");
+ "connection to non-existent host '$host' fails: \$conn=$conn, errcode=$errcode, addinfo=$addinfo");
$host = "z3950.indexdata.com/gils";
$conn = Net::Z3950::ZOOM::connection_new($host, 0);
$host = "z3950.indexdata.com/gils";
$conn = Net::Z3950::ZOOM::connection_new($host, 0);