From: Mike Taylor <mike@miketaylor.org.uk>
Date: Tue, 8 Jun 2010 14:41:35 +0000 (+0100)
Subject: Explicitly set scan term-count to 10 before first scan operation: should not be neces... 
X-Git-Tag: CPAN_1_26~6
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=c2443ea6877bcfcff7353af747f9750c8ef1fa5d;p=ZOOM-Perl-moved-to-github.git

Explicitly set scan term-count to 10 before first scan operation: should not be necessary, as ZOOM-C says this is the default when no value is specified, but for some reason the test-suite is getting 20 terms on RH
---

diff --git a/t/15-scan.t b/t/15-scan.t
index 7bbbd69..504cc76 100644
--- a/t/15-scan.t
+++ b/t/15-scan.t
@@ -16,6 +16,7 @@ my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
 ok($errcode == 0, "connection to '$host'");
 
+Net::Z3950::ZOOM::connection_option_set($conn, number => 10);
 my($ss, $n) = scan($conn, 0, "w", 10);
 
 my @terms = ();
diff --git a/t/25-scan.t b/t/25-scan.t
index 145fa1a..40fd46f 100644
--- a/t/25-scan.t
+++ b/t/25-scan.t
@@ -14,6 +14,7 @@ my $conn;
 eval { $conn = new ZOOM::Connection($host, 0) };
 ok(!$@, "connection to '$host'");
 
+$conn->option(number => 10);
 my($ss, $n) = scan($conn, 0, "w", 10);
 
 my @terms = ();