ext/FileCache/t/ - fixup paralleism issues in tests

[perl5.git] / ext / FileCache / t / 02maxopen.t

diff --git a/ext/FileCache/t/02maxopen.t b/ext/FileCache/t/02maxopen.t
index f3470c1..4a01056 100644 (file)
--- a/ext/FileCache/t/02maxopen.t
+++ b/ext/FileCache/t/02maxopen.t
@@ -2,7 +2,7 @@
 
 use FileCache maxopen => 2;
 our @files;
-BEGIN { @files = qw(foo bar baz quux) }
+BEGIN { @files = map { "max_$_" } qw(foo bar baz quux) }
 END { 1 while unlink @files }
 
 use Test::More tests => 5;
@@ -15,7 +15,7 @@ use Test::More tests => 5;
   
   my @cat;
   for my $path ( @files ){
-    ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
+    ok(fileno($path) || $path =~ /^max_(?:foo|bar)$/);
     next unless fileno($path);
     print $path "$path 2\n";
     close($path);
@@ -24,5 +24,5 @@ use Test::More tests => 5;
     push @cat, <$path>;
     close($path);
   }
-  ok( grep(/^(?:baz|quux) 2$/, @cat) == 2 );
+  ok( grep(/^max_(?:baz|quux) 2$/, @cat) == 2 );
 }