From: mike <mike>
Date: Wed, 12 Oct 2005 09:47:11 +0000 (+0000)
Subject: use strict;
X-Git-Tag: cpan_1_22~474
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=77a730ede83c87a1e3629391ce3d55cf991985a0;p=ZOOM-Perl-moved-to-github.git

use strict;
(Temporarily) use local server.
Check that preferredRecordSyntax option can be get()ted after set()ting.
---

diff --git a/t/Net-Z3950-ZOOM.t b/t/Net-Z3950-ZOOM.t
index f629a15..1764d64 100644
--- a/t/Net-Z3950-ZOOM.t
+++ b/t/Net-Z3950-ZOOM.t
@@ -1,4 +1,4 @@
-# $Id: Net-Z3950-ZOOM.t,v 1.4 2005-10-11 15:48:15 mike Exp $
+# $Id: Net-Z3950-ZOOM.t,v 1.5 2005-10-12 09:47:11 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'
@@ -7,6 +7,7 @@
 
 # change 'tests => 1' to 'tests => last_test_to_print';
 
+use strict;
 use Test::More tests => 1;
 BEGIN { use_ok('Net::Z3950::ZOOM') };
 
@@ -16,6 +17,7 @@ BEGIN { use_ok('Net::Z3950::ZOOM') };
 # its man page ( perldoc Test::More ) for help writing this test script.
 
 my $host = "indexdata.com/gils";
+$host = "localhost:3950";
 my $port = 0;
 my $errcode;
 my($errmsg, $addinfo) = ("dummy", "dummy");
@@ -27,8 +29,13 @@ if ($errcode != 0) {
 	"errcode='$errcode', errmsg='$errmsg', addinfo='$addinfo'");
 }
 
+my $syntax = "usmarc";
 Net::Z3950::ZOOM::connection_option_set($conn,
-					preferredRecordSyntax => "usmarc");
+					preferredRecordSyntax => $syntax);
+my $val = Net::Z3950::ZOOM::connection_option_get($conn,
+						  "preferredRecordSyntax");
+die "set preferredRecordSyntax to '$syntax' but got '$val'"
+    if $val ne $syntax;
 
 my $query = '@attr 1=4 minerals';
 my $rs = Net::Z3950::ZOOM::connection_search_pqf($conn, $query);