5 use Memoize::ExpireTest;
11 $n++; print "ok $n\n";
20 memoize 'id', SCALAR_CACHE => ['TIE', 'Memoize::ExpireTest'],
21 LIST_CACHE => 'FAULT';
22 $n++; print "ok $n\n";
24 for $i (1, 2, 3, 1, 2, 1) {
26 unless ($i == id($i)) {
34 unless ($CALLS{$i} == 1) {
40 Memoize::ExpireTest::expire(1);
48 unless ($CALLS{$i} == 1 + ($i == 1)) {
54 Memoize::ExpireTest::expire(1);
55 Memoize::ExpireTest::expire(2);
63 unless ($CALLS{$i} == 4 - $i) {