5 use Memoize::ExpireTest;
11 $n++; print "ok $n\n";
20 tie my %cache => 'Memoize::ExpireTest';
22 SCALAR_CACHE => [HASH => \%cache],
23 LIST_CACHE => 'FAULT';
24 $n++; print "ok $n\n";
26 for $i (1, 2, 3, 1, 2, 1) {
28 unless ($i == id($i)) {
36 unless ($CALLS{$i} == 1) {
42 Memoize::ExpireTest::expire(1);
50 unless ($CALLS{$i} == 1 + ($i == 1)) {
56 Memoize::ExpireTest::expire(1);
57 Memoize::ExpireTest::expire(2);
65 unless ($CALLS{$i} == 4 - $i) {