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