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