Permalink
Browse files

Fixed some tests with hard-coded line numbers,

which had changed as lines containing the '$Id$' tags were removed.

Signed-off-by: Michael G. Schwern <schwern@pobox.com>
  • Loading branch information...
gaurav authored and schwern committed Feb 7, 2009
1 parent 23d24bb commit 8c17dfe1dc2e648415d36709f77cae921bcd57a9
Showing with 7 additions and 7 deletions.
  1. +2 −2 t/Tester/tbt_01basic.t
  2. +3 −3 t/Tester/tbt_04line_num.t
  3. +2 −2 t/fail-like.t
View
@@ -22,7 +22,7 @@ ok(2,"two");
test_test("multiple tests");
test_out("not ok 1 - should fail");
-test_err("# Failed test ($0 at line 29)");
+test_err("# Failed test ($0 at line 28)");
test_err("# got: 'foo'");
test_err("# expected: 'bar'");
is("foo","bar","should fail");
@@ -46,7 +46,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 53)");
+test_err("# Failed (TODO) test ($0 at line 52)");
TODO: {
local $TODO = "Something";
fail("name");
@@ -3,6 +3,6 @@
use Test::More tests => 3;
use Test::Builder::Tester;
-is(line_num(),7,"normal line num");
-is(line_num(-1),7,"line number minus one");
-is(line_num(+2),11,"line number plus two");
+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");
View
@@ -55,14 +55,14 @@ ERR
}
{
- # line 60
+ # line 59
like("foo", "not a regex");
$TB->is_eq($out->read, <<OUT);
not ok 2
OUT
$TB->is_eq($err->read, <<OUT);
-# Failed test at $0 line 60.
+# Failed test at $0 line 59.
# 'not a regex' doesn't look much like a regex to me.
OUT

0 comments on commit 8c17dfe

Please sign in to comment.