blob: c6d0c6bdbd20fa3b7ce023d007a5ec52c4a53049 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!./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));
}
|
