blob: 75da3b28d43baa9b5eb528f7b6ab966905560b03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!./perl
use FileCache;
use vars qw(@files);
BEGIN {
@files = qw(foo bar baz quux Foo_Bar);
chdir 't' if -d 't';
#For tests within the perl distribution
@INC = '../lib' if -d '../lib';
END;
}
END{
1 while unlink @files;
}
print "1..1\n";
{# Test 1: that we can open files
for my $path ( @files ){
cacheout $path;
print $path "$path 1\n";
close $path;
}
print "not " unless scalar map({ -f } @files) == scalar @files;
print "ok 1\n";
}
|
