summaryrefslogtreecommitdiffstats
path: root/t/02-close-over.t
diff options
context:
space:
mode:
Diffstat (limited to 't/02-close-over.t')
-rw-r--r--t/02-close-over.t14
1 files changed, 7 insertions, 7 deletions
diff --git a/t/02-close-over.t b/t/02-close-over.t
index ea6792a..4b0e06a 100644
--- a/t/02-close-over.t
+++ b/t/02-close-over.t
@@ -2,6 +2,7 @@
use strict;
use warnings;
use Test::More;
+use Test::Exception;
use Eval::Closure;
@@ -33,16 +34,15 @@ use Test::Requires 'PadWalker';
}
{
- local $TODO = "we still have to close over \$__captures";
my $foo = [];
my $env = { '$foo' => \$foo };
- my $code = eval_closure(
- source => 'sub { push @$foo, @_; return $__captures }',
- environment => $env,
- );
- is_deeply(scalar(PadWalker::closed_over($code)), $env,
- "closed over the right things");
+ throws_ok {
+ my $code = eval_closure(
+ source => 'sub { push @$foo, @_; return $__captures }',
+ environment => $env,
+ );
+ } qr/Global symbol "\$__captures/, "we don't close over \$__captures";
}
# it'd be nice if we could test that closing over other things wasn't possible,