From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 20 Oct 2010 20:05:54 +0000 (-0500)
Subject: another test
X-Git-Tag: 0.01~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=460a4d15ded58deecdacebbd9b68844d6768892b;p=gitmo%2FEval-Closure.git

another test
---

diff --git a/dist.ini b/dist.ini
index d88c72d..435dae4 100644
--- a/dist.ini
+++ b/dist.ini
@@ -13,6 +13,7 @@ Try::Tiny = 0
 
 [Prereq / TestRequires]
 Test::More = 0.88
+Test::Requires = 0
 
 [Prereq / RuntimeRecommends]
 Perl::Tidy = 0
diff --git a/t/02-close-over.t b/t/02-close-over.t
new file mode 100644
index 0000000..ea6792a
--- /dev/null
+++ b/t/02-close-over.t
@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Eval::Closure;
+
+use Test::Requires 'PadWalker';
+
+{
+    my $foo = [];
+    my $env = { '$foo' => \$foo };
+
+    my $code = eval_closure(
+        source      => 'sub { push @$foo, @_ }',
+        environment => $env,
+    );
+    is_deeply(scalar(PadWalker::closed_over($code)), $env,
+              "closed over the right things");
+}
+
+{
+    my $foo = {};
+    my $bar = [];
+    my $env = { '$foo' => \$bar, '$bar' => \$foo };
+
+    my $code = eval_closure(
+        source      => 'sub { push @$foo, @_; $bar->{foo} = \@_ }',
+        environment => $env,
+    );
+    is_deeply(scalar(PadWalker::closed_over($code)), $env,
+              "closed over the right things");
+}
+
+{
+    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");
+}
+
+# it'd be nice if we could test that closing over other things wasn't possible,
+# but perl's optimizer gets in the way of that
+
+done_testing;