1#!./perl 2 3use FileCache; 4 5our @files; 6BEGIN { @files = 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