mirror of
https://github.com/Perl/perl5.git
synced 2026-01-31 03:46:05 +00:00
eaf344cfb4
Different test files used the same files for their tests, causing conflicts and test failures in parallel mode.
19 lines
352 B
Perl
19 lines
352 B
Perl
#!./perl
|
|
|
|
use FileCache;
|
|
|
|
our @files;
|
|
BEGIN { @files = map { "open_$_" } qw(foo bar baz quux Foo_Bar) }
|
|
END { 1 while unlink @files }
|
|
|
|
use Test::More tests => 1;
|
|
|
|
{# Test 1: that we can open files
|
|
for my $path ( @files ){
|
|
cacheout $path;
|
|
print $path "$path 1\n";
|
|
close $path;
|
|
}
|
|
ok(scalar(map { -f } @files) == scalar(@files));
|
|
}
|