Commit | Line | Data |
---|---|---|
d9268716 S |
1 | #!./perl |
2 | ||
3 | use FileCache; | |
4 | ||
fd55ca4f | 5 | our @files; |
d9268716 S |
6 | BEGIN { @files = qw(foo bar baz quux Foo_Bar) } |
7 | END { 1 while unlink @files } | |
8 | ||
9 | use Test::More tests => 1; | |
10 | ||
11 | {# Test 1: that we can open files | |
12 | for my $path ( @files ){ | |
13 | cacheout $path; | |
14 | print $path "$path 1\n"; | |
15 | close $path; | |
16 | } | |
17 | ok(scalar(map { -f } @files) == scalar(@files)); | |
18 | } |