1#!./perl 2BEGIN { 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} 10END{ 11 unlink("Foo_Bar"); 12} 13print "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} 22