ext/FileCache/t/05override.t

   1 #!./perl
   2
   3 use FileCache;
   4
   5 END { unlink("Foo_Bar") }
   6
   7 use Test::More tests => 1;
   8
   9 {# Test 5: that close is overridden properly within the caller
  10      cacheout local $_ = "Foo_Bar";
  11      print $_ "Hello World\n";
  12      close($_);
  13      ok(!fileno($_));
  14 }