From 460a4d15ded58deecdacebbd9b68844d6768892b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 20 Oct 2010 15:05:54 -0500
Subject: another test

---
 t/02-close-over.t | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 t/02-close-over.t

(limited to 't')

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;
-- 
cgit v1.2.3-54-g00ecf