1#!./perl
2
3use FileCache;
4
5END { unlink("Foo_Bar") }
6
7use 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}
15