Cross Reference: 05override.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
FileCache
/
t
/
05override.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
BEGIN
{
1
N/A
use
FileCache
;
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
1
N/A
#For tests within the perl distribution
1
N/A
@
INC
=
'../lib'
if
-d
'../lib'
;
1
N/A
END
;
1
N/A
}
1
N/A
END
{
1
N/A
unlink
(
"Foo_Bar"
)
;
1
N/A
}
1
N/A
print
"1..1\n"
;
1
N/A
1
N/A
{
# Test 5: that close is overridden properly within the caller
1
N/A
cacheout
local
$_ =
"Foo_Bar"
;
1
N/A
print
$_
"Hello World\n"
;
1
N/A
close
($_)
;
1
N/A
print
'not '
if
fileno
($_)
;
1
N/A
print
"ok 1\n"
;
1
N/A
}