Tweaks to get Test::Builder::Tester's tests to work in the core.

p4raw-id: //depot/perl@25723

diff --git a/lib/Test/Simple/t/tbt_01basic.t b/lib/Test/Simple/t/tbt_01basic.t
index 9e23576..77d1081 100644 (file)
--- a/lib/Test/Simple/t/tbt_01basic.t
+++ b/lib/Test/Simple/t/tbt_01basic.t
@@ -29,7 +29,7 @@ ok(2,"two");
 test_test("multiple tests");
 
 test_out("not ok 1 - should fail");
-test_err("#     Failed test ($0 at line 28)");
+test_err("#     Failed test ($0 at line 35)");
 test_err("#          got: 'foo'");
 test_err("#     expected: 'bar'");
 is("foo","bar","should fail");
@@ -53,7 +53,7 @@ test_test("testing failing on the same line with the same name");
 
 
 test_out("not ok 1 - name # TODO Something");
-test_err("#     Failed (TODO) test ($0 at line 52)");
+test_err("#     Failed (TODO) test ($0 at line 59)");
 TODO: { 
     local $TODO = "Something";
     fail("name");

diff --git a/lib/Test/Simple/t/tbt_04line_num.t b/lib/Test/Simple/t/tbt_04line_num.t
index b2dcd1d..0155cda 100644 (file)
--- a/lib/Test/Simple/t/tbt_04line_num.t
+++ b/lib/Test/Simple/t/tbt_04line_num.t
@@ -10,6 +10,6 @@ BEGIN {
 use Test::More tests => 3;
 use Test::Builder::Tester;
 
-is(line_num(),6,"normal line num");
-is(line_num(-1),6,"line number minus one");
-is(line_num(+2),10,"line number plus two");
+is(line_num(),13,"normal line num");
+is(line_num(-1),13,"line number minus one");
+is(line_num(+2),17,"line number plus two");