1#!./perl
2use FileCache;
3use vars qw(@files);
4BEGIN {
5    @files = qw(foo bar baz quux Foo_Bar);
6    chdir 't' if -d 't';
7
8    #For tests within the perl distribution
9    @INC = '../lib' if -d '../lib';
10    END;
11}
12END{
13  1 while unlink @files;
14}
15
16
17print "1..1\n";
18
19{# Test 1: that we can open files
20     for my $path ( @files ){
21	 cacheout $path;
22	 print $path "$path 1\n";
23     }
24     print "not " unless scalar map({ -f } @files) == scalar @files;
25     print "ok 1\n";
26}
27