From: mike <mike>
Date: Mon, 17 Oct 2005 16:18:27 +0000 (+0000)
Subject: getl() test emits recovered length in commentary.
X-Git-Tag: cpan_1_22~444
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=4c2eda7d8c27ac3f6ec2621916186aa00dd4d3bf;p=ZOOM-Perl-moved-to-github.git

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
--- 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,