blob: c01b25a424e4ee494a0d6bfd07122dcda3db2e57 (
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 = 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));
}
|
