1N/A#!./perl
1N/ABEGIN {
1N/A use FileCache;
1N/A chdir 't' if -d 't';
1N/A
1N/A #For tests within the perl distribution
1N/A @INC = '../lib' if -d '../lib';
1N/A END;
1N/A}
1N/AEND{
1N/A unlink("Foo_Bar");
1N/A}
1N/Aprint "1..1\n";
1N/A
1N/A{# Test 5: that close is overridden properly within the caller
1N/A cacheout local $_ = "Foo_Bar";
1N/A print $_ "Hello World\n";
1N/A close($_);
1N/A print 'not ' if fileno($_);
1N/A print "ok 1\n";
1N/A}