1#!./perl
2
3use FileCache;
4
5our @files;
6BEGIN { @files = map { "open_$_" } qw(foo bar baz quux Foo_Bar) }
7END   { 1 while unlink @files }
8
9use 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}
19