diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-14 16:47:30 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-14 16:47:30 -0600 |
commit | 68cb1ade6177987a8950e4cb3050c1139e802fee (patch) | |
tree | da58353394fc75776ed27ee619ab8b22482fd2e0 /t/05-memoize.t | |
parent | fe890fb97648df1253becf110e4e4dfa3c2c8015 (diff) | |
download | eval-closure-68cb1ade6177987a8950e4cb3050c1139e802fee.tar.gz eval-closure-68cb1ade6177987a8950e4cb3050c1139e802fee.zip |
Revert "use Devel::Hints where possible"0.01
This reverts commit fe890fb97648df1253becf110e4e4dfa3c2c8015.
"meh", this is a lot of effort for very little real gain
Diffstat (limited to 't/05-memoize.t')
-rw-r--r-- | t/05-memoize.t | 27 |
1 files changed, 5 insertions, 22 deletions
diff --git a/t/05-memoize.t b/t/05-memoize.t index e4b582b..02fd11f 100644 --- a/t/05-memoize.t +++ b/t/05-memoize.t @@ -8,12 +8,7 @@ use Test::Requires 'Test::Output'; use Eval::Closure; { - my $source = <<'SOURCE'; - sub { - $foo * 2; - }; - BEGIN { warn "foo\n" } -SOURCE + my $source = 'BEGIN { warn "foo\n" } sub { $foo * 2 }'; my $code; my $bar = 15; @@ -43,12 +38,7 @@ SOURCE } { - my $source = <<'SOURCE'; - sub { - $bar * 2; - }; - BEGIN { warn "bar\n" } -SOURCE + my $source = 'BEGIN { warn "bar\n" } sub { $bar * 2 }'; my $code; my $foo = 60; @@ -66,8 +56,7 @@ SOURCE my $code2; my $baz = 23; - { local $TODO = $] < 5.010 ? "description breaks memoization on 5.8" - : undef; + { local $TODO = "description breaks memoization"; stderr_is { $code2 = eval_closure( source => $source, @@ -83,12 +72,7 @@ SOURCE } { - my $source = <<'SOURCE'; - sub { - Carp::confess "baz"; - }; - BEGIN { warn "baz\n" } -SOURCE + my $source = 'BEGIN { warn "baz\n" } sub { Carp::confess "baz" }'; my $code; stderr_is { @@ -102,8 +86,7 @@ SOURCE "got the right description"); my $code2; - { local $TODO = $] < 5.010 ? "description breaks memoization on 5.8" - : undef; + { local $TODO = "description breaks memoization"; stderr_is { $code2 = eval_closure( source => $source, |