blob: a807c256402dd57d58118331f0f5e500edd200c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!./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";
}
|
