1b39c5158Smillert#!./perl 2b39c5158Smillert 3b39c5158Smillertuse FileCache; 4b39c5158Smillert 55759b3d2Safresh1our @files; 6*f2a19305Safresh1BEGIN { @files = map { "open_$_" } qw(foo bar baz quux Foo_Bar) } 7b39c5158SmillertEND { 1 while unlink @files } 8b39c5158Smillert 9b39c5158Smillertuse Test::More tests => 1; 10b39c5158Smillert 11b39c5158Smillert{# Test 1: that we can open files 12b39c5158Smillert for my $path ( @files ){ 13b39c5158Smillert cacheout $path; 14b39c5158Smillert print $path "$path 1\n"; 15b39c5158Smillert close $path; 16b39c5158Smillert } 17b39c5158Smillert ok(scalar(map { -f } @files) == scalar(@files)); 18b39c5158Smillert} 19