8 use Memoize::ExpireTest;
14 $n++; print "ok $n\n";
23 tie my %cache => 'Memoize::ExpireTest';
25 SCALAR_CACHE => [HASH => \%cache],
26 LIST_CACHE => 'FAULT';
27 $n++; print "ok $n\n";
29 for $i (1, 2, 3, 1, 2, 1) {
31 unless ($i == id($i)) {
39 unless ($CALLS{$i} == 1) {
45 Memoize::ExpireTest::expire(1);
53 unless ($CALLS{$i} == 1 + ($i == 1)) {
59 Memoize::ExpireTest::expire(1);
60 Memoize::ExpireTest::expire(2);
68 unless ($CALLS{$i} == 4 - $i) {