Commit | Line | Data |
---|---|---|
c9463f45 | 1 | #!./perl -w |
2 | ||
d9268716 | 3 | use Test::More tests => 1; |
c9463f45 | 4 | |
5 | # Try using FileCache without importing to make sure everything's | |
6 | # initialized without it. | |
7 | { | |
8 | package Y; | |
9 | use FileCache (); | |
10 | ||
11 | my $file = 'foo'; | |
12 | END { unlink $file } | |
13 | FileCache::cacheout($file); | |
14 | print $file "bar"; | |
15 | close $file; | |
16 | ||
17 | FileCache::cacheout("<", $file); | |
18 | ::ok( <$file> eq "bar" ); | |
846e3505 | 19 | close $file; |
c9463f45 | 20 | } |