getl() test emits recovered length in commentary.

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
-# `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);
-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,