From 4c2eda7d8c27ac3f6ec2621916186aa00dd4d3bf Mon Sep 17 00:00:00 2001 From: mike Date: Mon, 17 Oct 2005 16:18:27 +0000 Subject: [PATCH] getl() test emits recovered length in commentary. --- t/1-Net-Z3950-ZOOM.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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, -- 1.7.10.4