diff options
Diffstat (limited to 't/compiling-package.t')
-rw-r--r-- | t/compiling-package.t | 10 |
1 files changed, 10 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; |