From c2443ea6877bcfcff7353af747f9750c8ef1fa5d Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 8 Jun 2010 15:41:35 +0100 Subject: [PATCH] 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 --- t/15-scan.t | 1 + t/25-scan.t | 1 + 2 files changed, 2 insertions(+) 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 = (); -- 1.7.10.4