expmod_n.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use lib '..';
use Memoize;
my $n = 0;
print "1..22\n";
++$n; print "ok $n\n";
$RETURN = 1;
%CALLS = ();
sub call {
# print "CALL $_[0] => $RETURN\n";
++$CALLS{$_[0]};
}
++$n; print "ok $n\n";
memoize 'call',
LIST_CACHE => 'FAULT';
# $Memoize::Expire::DEBUG = 1;
++$n; print "ok $n\n";
# 3--6
for (0,1,2,3) {
++$n; print "ok $n\n";
}
# 7--10
++$n; print "ok $n\n";
}
# 11--13
$RETURN = 2;
# 14--17
$RETURN = 3;
for (0,1,2,3) {
# 0 expires, 1 expires, 2 gets new val, 3 expires
++$n; print "ok $n\n";
}
for (0,1,2,3) {
++$n; print "ok $n\n";
}