From 2761b3fe33124ad406087cde2955303473a6f01b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 15 Oct 2010 13:15:16 +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/25-scan.t | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/t/25-scan.t b/t/25-scan.t index 6b5d5c0..01aba9e 100644 --- a/t/25-scan.t +++ b/t/25-scan.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 87; +use Test::More tests => 81; BEGIN { use_ok('ZOOM') }; @@ -49,8 +49,14 @@ 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)"); + + # Previously we used to assert that the each title-term was + # included in the initial term-list that we got by scanning across + # all indexes. Of course this will not in general be true, + # because not all terms are title terms, which means that the $n + # title terms will include some that are past the end of $n + # general terms. So remove that test. + #ok((grep { $term eq $_ } @terms), "title term ($term) was in term list (@terms)"); } $ss->destroy(); -- 1.7.10.4