diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-10-09 18:53:02 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-10-09 18:53:02 +0000 |
| commit | 0de12c2858e3cadf996476f993cbe482d7ae017d (patch) | |
| tree | b2fff560072cc74b225ec85fd183df3487636282 /lib | |
| parent | 046563951e39ba3d4c6ff4353addf0a8576431ef (diff) | |
| download | perl-0de12c2858e3cadf996476f993cbe482d7ae017d.tar.gz | |
Tweaks to get Test::Builder::Tester's tests to work in the core.
p4raw-id: //depot/perl@25723
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Simple/t/tbt_01basic.t | 4 | ||||
| -rw-r--r-- | lib/Test/Simple/t/tbt_04line_num.t | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/Test/Simple/t/tbt_01basic.t b/lib/Test/Simple/t/tbt_01basic.t index 9e235760f9..77d10814b7 100644 --- 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 b2dcd1d10e..0155cda661 100644 --- 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"); |