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