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:
76750bb
)
getl() test emits recovered length in commentary.
author
mike
<mike>
Mon, 17 Oct 2005 16:18:27 +0000
(16:18 +0000)
committer
mike
<mike>
Mon, 17 Oct 2005 16:18:27 +0000
(16:18 +0000)
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
5085778
..
655630e
100644
(file)
--- a/
t/1-Net-Z3950-ZOOM.t
+++ b/
t/1-Net-Z3950-ZOOM.t
@@
-1,7
+1,7
@@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.9 2005-10-17 13:49:23 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.10 2005-10-17 16:18:27 mike Exp $
# Before `make install' is performed this script should be runnable with
# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Net-Z3950-ZOOM.t'
+# `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
#########################
#########################
@@
-51,7
+51,7
@@
ok($val eq $val1, "option_set() treats value as NUL-terminated");
Net::Z3950::ZOOM::connection_option_setl($conn, xyz => $val2, length($val2));
my $vallen = 0;
$val = Net::Z3950::ZOOM::connection_option_getl($conn, "xyz", $vallen);
Net::Z3950::ZOOM::connection_option_setl($conn, xyz => $val2, length($val2));
my $vallen = 0;
$val = Net::Z3950::ZOOM::connection_option_getl($conn, "xyz", $vallen);
-ok($val eq $val2, "option_setl() treats value as opaque chunk, val='$val'");
+ok($val eq $val2, "option_setl() treats value as opaque chunk, val='$val' len=$vallen");
my $syntax = "usmarc";
Net::Z3950::ZOOM::connection_option_set($conn,
my $syntax = "usmarc";
Net::Z3950::ZOOM::connection_option_set($conn,