16 ++$n; print "ok $n\n";
18 my $READFILE_CALLS = 0;
19 my $FILE = './TESTFILE';
23 open F, "> $FILE" or die "Couldn't write temporary file $FILE: $!";
24 print F scalar(localtime), "\n";
31 open F, "< $FILE" or die "Couldn't write temporary file $FILE: $!";
38 SCALAR_CACHE => ['TIE', 'Memoize::ExpireFile', ],
42 ++$n; print "ok $n\n";
45 ++$n; print "ok $n\n";
48 my $t1 = readfile($FILE);
49 ++$n; print "ok $n\n";
50 ++$n; print ((($READFILE_CALLS == 1) ? '' : 'not '), "ok $n\n");
52 my $t2 = readfile($FILE);
53 ++$n; print "ok $n\n";
54 ++$n; print ((($READFILE_CALLS == 1) ? '' : 'not '), "ok $n\n");
55 ++$n; print ((($t1 eq $t2) ? '' : 'not '), "ok $n\n");
59 my $t3 = readfile($FILE);
60 ++$n; print "ok $n\n";
61 ++$n; print ((($READFILE_CALLS == 2) ? '' : 'not '), "ok $n\n");
62 ++$n; print ((($t1 ne $t3) ? '' : 'not '), "ok $n\n");
64 END { 1 while unlink 'TESTFILE' }