diff options
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; |