Commit | Line | Data |
---|---|---|
d9268716 | 1 | #!./perl |
2 | ||
3 | use FileCache; | |
4 | ||
5 | use vars qw(@files); | |
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 | } |