Mailing List Archive

Author: creamyg
Date: 2008-09-09 18:27:26 -0700 (Tue, 09 Sep 2008)
New Revision: 3855

Modified:
trunk/perl/t/213-segment_merging.t
Log:
Perform a magic incantation so that destructors get called in a timely manner
and a test scouring for leftover objects finally passes.


Modified: trunk/perl/t/213-segment_merging.t
===================================================================
--- trunk/perl/t/213-segment_merging.t 2008-09-10 00:01:34 UTC (rev 3854)
+++ trunk/perl/t/213-segment_merging.t 2008-09-10 01:27:26 UTC (rev 3855)
@@ -131,9 +131,11 @@
invindex => BiggerSchema->open($invindex_loc) );
$invindexer->finish( optimize => 1 );
$reader->close;
+ undef $reader;
$invindexer = KinoSearch::InvIndexer->new(
invindex => BiggerSchema->open($invindex_loc) );
$invindexer->finish( optimize => 1 );
+
opendir( my $invindex_dh, $invindex_loc )
or die "Couldn't opendir '$invindex_loc': $!";
my @cf_files = grep {m/\.cf$/} readdir $invindex_dh;
@@ -142,11 +144,8 @@
is( scalar @cf_files, 1, "merged segment files successfully deleted" );

undef $invindexer;
- undef $reader;
+ undef $invindex;
}

-TODO: {
- local $TODO = "newly exposed memory leak";
- is( KinoSearch::Store::FileDes::object_count(),
- 0, "All FileDes objects have been cleaned up" );
-}
+is( KinoSearch::Store::FileDes::object_count(),
+ 0, "All FileDes objects have been cleaned up" );


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