expfile.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use lib '..';
use Memoize;
my $n = 0;
$|=1;
if (-e '.fast') {
print "1..0\n";
exit 0;
}
print "1..12\n";
# (1)
++$n; print "ok $n\n";
my $READFILE_CALLS = 0;
my $FILE = './TESTFILE';
sub writefile {
my $FILE = shift;
close F;
}
sub readfile {
my $FILE = shift;
my $data = <F>;
close F;
}
require Memoize::ExpireFile;
# (2)
++$n; print "ok $n\n";
memoize 'readfile',
LIST_CACHE => 'FAULT'
;
# (3)
++$n; print "ok $n\n";
# (4)
++$n; print "ok $n\n";
sleep 4;
# (5-6)
++$n; print "ok $n\n";
# (7-9)
++$n; print "ok $n\n";
# (10-12)
sleep 4;
++$n; print "ok $n\n";