Mailing List Archive

Author: creamyg
Date: 2008-08-16 19:53:01 -0700 (Sat, 16 Aug 2008)
New Revision: 3731

Modified:
trunk/perl/t/213-segment_merging.t
Log:
Re-jigger optimization test to use finish(optimize => 1) on an InvIndexer to
which no docs have been added.


Modified: trunk/perl/t/213-segment_merging.t
===================================================================
--- trunk/perl/t/213-segment_merging.t 2008-08-17 02:29:16 UTC (rev 3730)
+++ trunk/perl/t/213-segment_merging.t 2008-08-17 02:53:01 UTC (rev 3731)
@@ -34,37 +34,28 @@
my ( $invindex, $invindexer, $searcher, $hits );

# Verify that optimization truly cuts down on the number of segments.
- my $num_reps;
my $folder = KinoSearch::Store::RAMFolder->new;
$invindex = KinoSearch::InvIndex->clobber(
folder => $folder,
schema => TestSchema->new,
);
- for ( $num_reps = 1;; $num_reps++ ) {
+ for ( my $num_reps = 1;; $num_reps++ ) {
$invindexer = KinoSearch::InvIndexer->new( invindex => $invindex );
- $invindexer->add_doc( { content => $_ } ) for 1 .. 5;
- $invindexer->finish;
- undef $invindexer;
my $num_cf_files = grep {/\.cf$/} @{ $folder->list };
- last if ( $num_reps > 2 and $num_cf_files > 1 );
- }
- for ( my $i = 1; $i <= $num_reps; $i++ ) {
- my $folder = KinoSearch::Store::RAMFolder->new;
- $invindex = KinoSearch::InvIndex->clobber(
- folder => $folder,
- schema => TestSchema->new,
- );
- $invindexer = KinoSearch::InvIndexer->new( invindex => $invindex );
- $invindexer->add_doc( { content => $_ } ) for 1 .. 5;
- if ( $i == $num_reps ) {
+ if ( $num_reps > 2 and $num_cf_files > 1 ) {
$invindexer->finish( optimize => 1 );
- my $num_cf_files = grep {/\.cf$/} @{ $folder->list };
+ $num_cf_files = grep {/\.cf$/} @{ $folder->list };
is( $num_cf_files, 1, 'finish with optimize' );
+ undef $invindex;
+ undef $invindexer;
+ undef $folder;
+ last;
}
else {
+ $invindexer->add_doc( { content => $_ } ) for 1 .. 5;
$invindexer->finish;
+ undef $invindexer;
}
- undef $invindexer;
}

my $invindex_loc = init_test_invindex_loc();


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits