blob: a6e024d00225932e37acb88f4de753da440277ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!./perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't' if -d 't';
@INC = qw(../lib);
}
}
require './test.pl';
plan( tests => 1 );
# Try using FileCache without importing to make sure everything's
# initialized without it.
{
package Y;
use FileCache ();
my $file = 'foo';
END { unlink $file }
FileCache::cacheout($file);
print $file "bar";
close $file;
FileCache::cacheout("<", $file);
::ok( <$file> eq "bar" );
close $file;
}
|
