Commit | Line | Data |
---|---|---|
1673d79e | 1 | #!./perl |
2 | BEGIN { | |
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 | } | |
10 | END{ | |
11 | unlink("Foo'Bar"); | |
12 | } | |
13 | print "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 | } |