This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweaks to get Test::Builder::Tester's tests to work in the core.
authorSteve Peters <steve@fisharerojo.org>
Sun, 9 Oct 2005 18:53:02 +0000 (18:53 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sun, 9 Oct 2005 18:53:02 +0000 (18:53 +0000)
p4raw-id: //depot/perl@25723

lib/Test/Simple/t/tbt_01basic.t
lib/Test/Simple/t/tbt_04line_num.t

index 9e23576..77d1081 100644 (file)
@@ -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");
index b2dcd1d..0155cda 100644 (file)
@@ -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");