t/LocalDB/Index/BlastTable.t: use tempdir to avoid clashes in paralle…

…l (issue #281) Like 926dbeb, use tempdir so that files from Index.t do not clash with the files created by this test.
bioperl · Sep 15, 2018 · 280b4bf · 280b4bf
1 parent 926dbeb
commit 280b4bf
Showing 1 changed file with 23 additions and 19 deletions.
diff --git a/t/LocalDB/Index/BlastTable.t b/t/LocalDB/Index/BlastTable.t
@@ -2,32 +2,39 @@
 # $Id: Blast.t 16293 2009-10-27 20:03:02Z cjfields $
 
 use strict;
+use File::Spec;
+use File::Temp;
+
 
 BEGIN {
-	use lib '.';
-	use Bio::Root::Test;
-	
-	test_begin(-tests => 27,
-		-requires_module => 'IO::String');
-    
-	use_ok('Cwd');
-	use_ok('Bio::SearchIO');
-	use_ok('Bio::Index::BlastTable');
+    use lib '.';
+    use Bio::Root::Test;
+
+    test_begin(-tests => 27,
+               -requires_module => 'IO::String');
+
+    use_ok('Cwd');
+    use_ok('Bio::SearchIO');
+    use_ok('Bio::Index::BlastTable');
 }
 
                        # -m 9                -m 8
 my @test_cases = qw(multi.blast.m9      multi.blast.m8);
 
 for my $file (@test_cases) {
-    my $index = Bio::Index::BlastTable->new(-filename => 'Wibbl',
-                                        -write_flag => 1);
+    my $dir = File::Temp->newdir();
+    my $basename = 'Wibbl';
+    my $filepath = File::Spec->catfile($dir, $basename);
+
+    my $index = Bio::Index::BlastTable->new(-filename => $filepath,
+                                            -write_flag => 1);
     ok($index);
     $index->id_parser(\&my_id_parser);
     $index->make_index(test_input_file($file));
-    ($index->dbm_package eq 'SDBM_File') ? 
-        (ok(-e "Wibbl.pag" && -e "Wibbl.dir")) :
-        (ok(-e "Wibbl"));
-    
+    ($index->dbm_package eq 'SDBM_File') ?
+        (ok(-e "$filepath.pag" && -e "$filepath.dir")) :
+        (ok(-e $filepath));
+
     foreach my $id ( qw(SP130_MOUSE IKZF1_MOUSE) ) {
         my $fh = $index->get_stream($id);
         ok($fh);
@@ -38,12 +45,9 @@ for my $file (@test_cases) {
         my $result = $report->next_result;
         like($result->query_name, qr/$id/);
         ok( $result->next_hit);
-        
+
         like( $index->fetch_report($id)->query_name, qr/$id/);
     }
-    # ActivePerl will not allow deletion if the tie-hash is still active
-    $index->DESTROY;
-    unlink qw( Wibbl Wibbl.pag Wibbl.dir Wibbl.index);
 }
 
 # test id_parser