1#!/usr/bin/perl 2 3use lib '..'; 4use Memoize qw(memoize unmemoize); 5 6print "1..5\n"; 7 8eval { unmemoize('f') }; # Should fail 9print (($@ ? '' : 'not '), "ok 1\n"); 10 11{ my $I = 0; 12 sub u { $I++ } 13} 14memoize('u'); 15my @ur = (&u, &u, &u); 16print (("@ur" eq "0 0 0") ? "ok 2\n" : "not ok 2\n"); 17 18eval { unmemoize('u') }; # Should succeed 19print ($@ ? "not ok 3\n" : "ok 3\n"); 20 21@ur = (&u, &u, &u); 22print (("@ur" eq "1 2 3") ? "ok 4\n" : "not ok 4\n"); 23 24eval { unmemoize('u') }; # Should fail 25print ($@ ? "ok 5\n" : "not ok 5\n"); 26 27