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