1#!./perl -w
2
3use Test::More tests => 1;
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_noimp';
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" );
19    close $file;
20}
21