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