flush.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use Memoize 'flush_cache',
'memoize';
print "1..8\n";
print "ok 1\n";
my $V = 100;
print "ok 2\n";
print (($c1 == 100) ? "ok 3\n" : "not ok 3\n");
$V = 200;
print (($c1 == 100) ? "ok 4\n" : "not ok 4\n");
print (($c1 == 200) ? "ok 5\n" : "not ok 5\n");
$V = 300;
print (($c1 == 200) ? "ok 6\n" : "not ok 6\n");
print (($c1 == 300) ? "ok 7\n" : "not ok 7\n");
$V = 400;
print (($c1 == 300) ? "ok 8\n" : "not ok 8\n");