1#!./perl -w
2
3BEGIN {
4    chdir 't';
5    @INC = '../lib';
6}
7
8require './test.pl';
9plan( 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" );
25    close $file;
26}
27