From fa28785153da58de0024597ef6f360c9382aa478 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Aug 2011 01:15:43 -0500
Subject: but... that breaks memoization, so disable that for now

---
 t/compiling-package.t | 10 ++++++++++
 t/memoize.t           |  6 ++++++
 2 files changed, 16 insertions(+)

(limited to 't')

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;
diff --git a/t/memoize.t b/t/memoize.t
index 02fd11f..b012596 100644
--- a/t/memoize.t
+++ b/t/memoize.t
@@ -7,6 +7,12 @@ use Test::Requires 'Test::Output';
 
 use Eval::Closure;
 
+# XXX this whole test isn't very useful anymore, since we no longer do
+# memoization. it would be nice to bring it back at some point though, if there
+# was a way to do this without breaking the other tests
+
+plan skip_all => "disabling this test for now";
+
 {
     my $source = 'BEGIN { warn "foo\n" } sub { $foo * 2 }';
 
-- 
cgit v1.2.3-54-g00ecf