From 9cae37a3bdd1b43adc4ded05b5fee9ef038f5b32 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 15 Oct 2010 13:15:47 +0100 Subject: [PATCH] Comment out test that all title-terms are in the general-term list, an assumption that should never have been made. Reduce test-count accordingly. --- t/15-scan.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/15-scan.t b/t/15-scan.t index d17746c..fea22a0 100644 --- a/t/15-scan.t +++ b/t/15-scan.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 87; +use Test::More tests => 81; BEGIN { use_ok('Net::Z3950::ZOOM') }; @@ -52,8 +52,8 @@ foreach my $i (1 .. $n) { "got title term $i of $n: '$term' ($occ occurences)"); ok($term ge $previous, "title term '$term' ge previous '$previous'"); $previous = $term; - ok((grep { $term eq $_ } @terms), - "title term ($term) was in term list (@terms)"); + # See comment in 25-scan.t + #ok((grep { $term eq $_ } @terms), "title term ($term) was in term list (@terms)"); } Net::Z3950::ZOOM::scanset_destroy($ss); -- 1.7.10.4