summaryrefslogtreecommitdiffstats
path: root/t/11-line-differences.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-11-14 16:47:30 -0600
committerJesse Luehrs <doy@tozt.net>2010-11-14 16:47:30 -0600
commit68cb1ade6177987a8950e4cb3050c1139e802fee (patch)
treeda58353394fc75776ed27ee619ab8b22482fd2e0 /t/11-line-differences.t
parentfe890fb97648df1253becf110e4e4dfa3c2c8015 (diff)
downloadeval-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.t61
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;