[p5sagit/p5-mst-13.2.git] / lib / Memoize / t / flush.t

#!/usr/bin/perl

use lib '..';
use Memoize 'flush_cache', 'memoize';
print "1..8\n";
print "ok 1\n";


my $V = 100;
sub VAL { $V }

memoize 'VAL';
print "ok 2\n";

my $c1 = VAL();
print (($c1 == 100) ? "ok 3\n" : "not ok 3\n");

$V = 200;
$c1 = VAL();
print (($c1 == 100) ? "ok 4\n" : "not ok 4\n");

flush_cache('VAL');
$c1 = VAL();
print (($c1 == 200) ? "ok 5\n" : "not ok 5\n");

$V = 300;
$c1 = VAL();
print (($c1 == 200) ? "ok 6\n" : "not ok 6\n");

flush_cache(\&VAL);
$c1 = VAL();
print (($c1 == 300) ? "ok 7\n" : "not ok 7\n");

$V = 400;
$c1 = VAL();
print (($c1 == 300) ? "ok 8\n" : "not ok 8\n");
Commit	Line	Data
a0cb3900	1	#!/usr/bin/perl
a0cb3900	2
484fdf61	3	use lib '..';
a0cb3900	4	use Memoize 'flush_cache', 'memoize';
	5	print "1..8\n";
	6	print "ok 1\n";
	7
	8
	9
	10	my $V = 100;
	11	sub VAL { $V }
	12
	13	memoize 'VAL';
	14	print "ok 2\n";
	15
	16	my $c1 = VAL();
	17	print (($c1 == 100) ? "ok 3\n" : "not ok 3\n");
	18
	19	$V = 200;
	20	$c1 = VAL();
	21	print (($c1 == 100) ? "ok 4\n" : "not ok 4\n");
	22
	23	flush_cache('VAL');
	24	$c1 = VAL();
	25	print (($c1 == 200) ? "ok 5\n" : "not ok 5\n");
	26
	27	$V = 300;
	28	$c1 = VAL();
	29	print (($c1 == 200) ? "ok 6\n" : "not ok 6\n");
	30
	31	flush_cache(\&VAL);
	32	$c1 = VAL();
	33	print (($c1 == 300) ? "ok 7\n" : "not ok 7\n");
	34
	35	$V = 400;
	36	$c1 = VAL();
	37	print (($c1 == 300) ? "ok 8\n" : "not ok 8\n");
	38
	39
	40
	41
	42