X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=t%2F1-Net-Z3950-ZOOM.t;h=5085778bcabefca5ff88a064d4e63e2b4dcae9d7;hb=720e06f262e496047baeff7baca97a1a931f4b75;hp=96e034696a17fe084b83dc5513c487fe78d9a800;hpb=2a2e84a7309da428732ef22e7360f35908e54abf;p=ZOOM-Perl-moved-to-github.git

diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t
index 96e0346..5085778 100644
--- a/t/1-Net-Z3950-ZOOM.t
+++ b/t/1-Net-Z3950-ZOOM.t
@@ -1,4 +1,4 @@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.8 2005-10-13 13:33:55 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.9 2005-10-17 13:49:23 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'
@@ -8,7 +8,7 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
 use strict;
-use Test::More tests => 15;
+use Test::More tests => 21;
 BEGIN { use_ok('Net::Z3950::ZOOM') };
 
 #########################
@@ -43,11 +43,20 @@ Net::Z3950::ZOOM::connection_connect($conn, $host, 0);
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
 ok($errcode == 0, "delayed connection to '$host'");
 
+my $val1 = "foo";
+my $val2 = "$val1\0bar";
+Net::Z3950::ZOOM::connection_option_set($conn, xyz => $val2);
+my $val = Net::Z3950::ZOOM::connection_option_get($conn, "xyz");
+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'");
+
 my $syntax = "usmarc";
 Net::Z3950::ZOOM::connection_option_set($conn,
 					preferredRecordSyntax => $syntax);
-my $val = Net::Z3950::ZOOM::connection_option_get($conn,
-						  "preferredRecordSyntax");
+$val = Net::Z3950::ZOOM::connection_option_get($conn, "preferredRecordSyntax");
 ok($val eq $syntax, "preferred record syntax set to '$val'");
 
 my $query = '@attr @and 1=4 minerals';
@@ -56,6 +65,18 @@ $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
 ok($errcode == Net::Z3950::ZOOM::ERROR_INVALID_QUERY,
    "search for invalid query '$query' fails");
 
+my($xcode, $xmsg, $xinfo, $xset) = (undef, "dummy", "dummy", "dummy");
+$xcode = Net::Z3950::ZOOM::connection_error_x($conn, $xmsg, $xinfo, $xset);
+ok($xcode == $errcode && $xmsg eq $errmsg && $xinfo eq $addinfo &&
+   $xset eq "ZOOM", "error_x() consistent with error()");
+ok(Net::Z3950::ZOOM::connection_errcode($conn) == $errcode,
+   "errcode() consistent with error()");
+ok(Net::Z3950::ZOOM::connection_errmsg($conn) eq $errmsg,
+   "errmsg() consistent with error()");
+ok(Net::Z3950::ZOOM::connection_addinfo($conn) eq $addinfo,
+   "addinfo() consistent with error()");
+### These is no ZOOM_connection_diagset() -- surely that's a mistake?
+
 $query = '@attr 1=4 minerals';
 $rs = Net::Z3950::ZOOM::connection_search_pqf($conn, $query);
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);