This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
FileCache without import
[perl5.git] / lib / FileCache / t / 07noimport.t
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" );
25 }