Changeset 2595

Timestamp:

03/09/10 22:33:32 (2 years ago)

Author:

karpet

Message:

use File::Temp for easier cleanup esp on nfs

File:

• Search-Query-Dialect-KSx/trunk/t/02-search.t (modified) (3 diffs)

Search-Query-Dialect-KSx/trunk/t/02-search.t

@@ -3 +3 @@
 use Test::More tests => 15;
 use Data::Dump qw( dump );
-use File::Path qw( remove_tree make_path );
+use File::Temp qw( tempdir );
+my $invindex = tempdir( CLEANUP => 1 );
 
 use KinoSearch::Schema;
@@ -18 +19 @@
 $schema->spec_field( name => 'color', type => $fulltext );
 $schema->spec_field( name => 'date',  type => $fulltext );
-my $invindex = 't/index.test';
 
 my $indexer = KinoSearch::Indexer->new(
@@ -26 +26 @@
     truncate => 1,
 );
-
-END {
-    unless ( $ENV{PERL_DEBUG} ) {
-        remove_tree($invindex);
-    }
-}
 
 use_ok('Search::Query::Parser');