use lib '..';
use Memoize;
my $n = 0;
print "1..22\n";
++$n; print "ok $n\n";
$RETURN = 1;
%CALLS = ();
# 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";
}