diff options
author | Toby Inkster <mail@tobyinkster.co.uk> | 2013-07-23 17:03:26 +0100 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-30 15:44:46 -0400 |
commit | 38482e7653fbac3f21de0097b2ded9d1fa0ff64e (patch) | |
tree | 7d1aef5970382b6db43b0153c46966de1f82b052 | |
parent | c81519e87640932ad4f6870cf4d784f3ab03af33 (diff) | |
download | eval-closure-38482e7653fbac3f21de0097b2ded9d1fa0ff64e.tar.gz eval-closure-38482e7653fbac3f21de0097b2ded9d1fa0ff64e.zip |
failing test - closures are broken
-rw-r--r-- | t/close-over-nonref.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/close-over-nonref.t b/t/close-over-nonref.t new file mode 100644 index 0000000..66af1c1 --- /dev/null +++ b/t/close-over-nonref.t @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Eval::Closure; + +my $number = 40; +my $closure = eval_closure( + source => 'sub { $xxx += 2 }', + environment => { '$xxx' => \$number }, +); + +$closure->(); + +is($number, 42); + +done_testing; |