contrib/perl5/t/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;