13 print "# Warning: I'm testing the timed expiration policy.\nThis will take about thirty seconds.\n";
17 ++$n; print "ok $n\n";
20 # print "Close enough? @_[0,1]\n";
21 abs($_[0] - $_[1]) <= 1;
25 # print "NOW: @_ ", time(), "\n";
30 SCALAR_CACHE => ['TIE', 'Memoize::Expire', LIFETIME => 15],
34 ++$n; print "ok $n\n";
41 print "not " unless $when{$_} == time;
48 $again{$_} = now($_); # Should be the sameas before, because of memoization
54 print "not " unless $when{$_} == $again{$_};
58 sleep 6; # now(1) expires
61 print "not " unless close_enough(time, $again{1} = now(1));
62 ++$n; print "ok $n\n";
65 foreach (2,3) { # Have not expired yet.
67 print "not " unless now($_) == $again{$_};
71 sleep 6; # now(2) expires
74 print "not " unless close_enough(time, $again{2} = now(2));
75 ++$n; print "ok $n\n";
80 print "not " unless now($_) == $again{$_};