14 ++$n; print "ok $n\n";
20 # print "CALL $_[0] => $RETURN\n";
25 require Memoize::Expire;
26 ++$n; print "ok $n\n";
28 tie my %cache => 'Memoize::Expire', NUM_USES => 2;
30 SCALAR_CACHE => [HASH => \%cache],
31 LIST_CACHE => 'FAULT';
33 # $Memoize::Expire::DEBUG = 1;
34 ++$n; print "ok $n\n";
38 print "not " unless call($_) == 1;
39 ++$n; print "ok $n\n";
44 print "not " unless $CALLS{$_} == (1,1,1,1)[$_];
45 ++$n; print "ok $n\n";
50 ++$n; print ((call(1) == 1 ? '' : 'not '), "ok $n\n"); # 1 expires
51 ++$n; print ((call(1) == 2 ? '' : 'not '), "ok $n\n"); # 1 gets new val
52 ++$n; print ((call(2) == 1 ? '' : 'not '), "ok $n\n"); # 2 expires
57 # 0 expires, 1 expires, 2 gets new val, 3 expires
58 print "not " unless call($_) == (1,2,3,1)[$_];
59 ++$n; print "ok $n\n";
63 print "not " unless $CALLS{$_} == (1,2,2,1)[$_];
64 ++$n; print "ok $n\n";