Win32 pacifying from mjd.
[perl.git] / lib / FileCache.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 print "1..1\n";
9
10 use FileCache;
11
12 # This is really not a complete test as I don't bother to open enough
13 # files to make real swapping of open filedescriptor happen.
14
15 $path = "foo";
16 cacheout $path;
17
18 print $path "\n";
19
20 close $path;
21
22 print "not " unless -f $path;
23 print "ok 1\n";
24
25 unlink $path;