ext/FileCache/t/07noimport.t

   1 #!./perl -w
   2
   3 use 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';
  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 }