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