lib/Memoize/t/unmemoize.t

   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