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/11-line-differences.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/11-line-differences.t')
-rw-r--r-- | t/11-line-differences.t | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/t/11-line-differences.t b/t/11-line-differences.t deleted file mode 100644 index 4dd3625..0000000 --- a/t/11-line-differences.t +++ /dev/null @@ -1,61 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; -use Test::Requires 'Test::Output'; - -use Eval::Closure; - -{ - my $code = eval_closure( - source => 'sub { warn "foo" }', - description => 'bar', - ); - { local $TODO = $] < 5.010 ? "line numbers from #line are slightly different" : undef; - stderr_is { $code->() } "foo at bar line 1.\n", "got the right line"; - } -} - -{ - my $code = eval_closure( - source => <<'SOURCE', - sub { - - warn "foo"; - - } -SOURCE - description => 'bar', - ); - { local $TODO = $] < 5.010 ? "line numbers from #line are slightly different" : undef; - stderr_is { $code->() } "foo at bar line 1.\n", "got the right line"; - } -} - -{ - my $code = eval_closure( - source => <<'SOURCE', - - sub { - warn "foo"; - } -SOURCE - description => 'bar', - ); - { local $TODO = $] < 5.010 ? "line numbers from #line are slightly different" : undef; - stderr_is { $code->() } "foo at bar line 1.\n", "got the right line"; - } -} - -{ - my $code = eval_closure( - source => '$sub', - environment => { '$sub' => \sub { warn "foo" } }, - description => 'bar', - ); - { local $TODO = $] < 5.010 ? "#line can't adjust line numbers inside non-evaled subs" : undef; - stderr_is { $code->() } "foo at bar line 1.\n", "got the right line"; - } -} - -done_testing; |