use lib '..';
use Memoize;
use Memoize::ExpireTest;
my $n = 0;
print "1..17\n";
$n++; print "ok $n\n";
my %CALLS;
$arg;
}
memoize 'id',
LIST_CACHE => 'FAULT';
$n++; print "ok $n\n";
for $i (1, 2, 3, 1, 2, 1) {
$n++;
print "not ";
}
print "ok $n\n";
}
for $i (1, 2, 3) {
$n++;
print "not ";
}
print "ok $n\n";
}
for $i (1, 2, 3) {
}
for $i (1, 2, 3) {
$n++;
print "not ";
}
print "ok $n\n";
}
for $i (1, 2, 3) {
}
for $i (1, 2, 3) {
$n++;
print "not ";
}
print "ok $n\n";
}
exit 0;