diff options
Diffstat (limited to 'cpan/Test-Simple/t/subtest/todo.t')
| -rw-r--r-- | cpan/Test-Simple/t/subtest/todo.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/cpan/Test-Simple/t/subtest/todo.t b/cpan/Test-Simple/t/subtest/todo.t index 7269da9b95..5ed15c408f 100644 --- a/cpan/Test-Simple/t/subtest/todo.t +++ b/cpan/Test-Simple/t/subtest/todo.t @@ -52,7 +52,7 @@ sub test_subtest_in_todo { my ($set_via, $todo_reason, $level) = @$combo; test_out( - " # Subtest: xxx", + "# Subtest: xxx", @outlines, "not ok 1 - $xxx # TODO $todo_reason", "# Failed (TODO) test '$xxx'", @@ -84,12 +84,11 @@ sub test_subtest_in_todo { package Foo; # If several stack frames are in package 'main' then $Level # could be wrong and $main::TODO might still be found. Using # another package makes the tests more sensitive. - + sub main::subtest_at_level { my ($name, $code, $level) = @_; if ($level > 1) { - local $Test::Builder::Level = $Test::Builder::Level + 1; main::subtest_at_level($name, $code, $level-1); } else { |