lib/FileCache/t/05override.t

   1 #!./perl
   2 BEGIN {
   3     use FileCache;
   4     chdir 't' if -d 't';
   5
   6     #For tests within the perl distribution
   7     @INC = '../lib' if -d '../lib';
   8     END;
   9 }
  10 END{
  11   unlink("Foo'Bar");
  12 }
  13 print "1..1\n";
  14
  15 {# Test 5: that close is overridden properly within the caller
  16      cacheout local $_ = "Foo'Bar";
  17      print $_ "Hello World\n";
  18      close($_);
  19      print 'not ' if fileno($_);
  20      print "ok 1\n";
  21 }