diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-08-02 01:15:43 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-08-02 01:44:12 -0500 |
| commit | fa28785153da58de0024597ef6f360c9382aa478 (patch) | |
| tree | 10a00854767517649187e74fcb0d1f4f2221df26 /t | |
| parent | 794dc9df98d2aaf2f143f32ac7dfa42fa46ce07e (diff) | |
| download | eval-closure-fa28785153da58de0024597ef6f360c9382aa478.tar.gz eval-closure-fa28785153da58de0024597ef6f360c9382aa478.zip | |
but... that breaks memoization, so disable that for now
Diffstat (limited to 't')
| -rw-r--r-- | t/compiling-package.t | 10 | ||||
| -rw-r--r-- | t/memoize.t | 6 |
2 files changed, 16 insertions, 0 deletions
diff --git a/t/compiling-package.t b/t/compiling-package.t index 09b4d0b..fa27d0e 100644 --- a/t/compiling-package.t +++ b/t/compiling-package.t @@ -31,4 +31,14 @@ use Eval::Closure; is($c2->(), -2); } +{ + my $source = 'no strict "vars"; sub { ++$foo }'; + my $c1 = eval_closure(source => $source); + my $c2 = eval_closure(source => $source); + is($c1->(), 1); + is($c1->(), 2); + is($c2->(), 1); + is($c2->(), 2); +} + done_testing; diff --git a/t/memoize.t b/t/memoize.t index 02fd11f..b012596 100644 --- a/t/memoize.t +++ b/t/memoize.t @@ -7,6 +7,12 @@ use Test::Requires 'Test::Output'; use Eval::Closure; +# XXX this whole test isn't very useful anymore, since we no longer do +# memoization. it would be nice to bring it back at some point though, if there +# was a way to do this without breaking the other tests + +plan skip_all => "disabling this test for now"; + { my $source = 'BEGIN { warn "foo\n" } sub { $foo * 2 }'; |