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