Change 28517 by [EMAIL PROTECTED] on 2006/07/09 20:51:48
Hmmm...patch didn't warn about rejects in tbt_01basic.t.
Affected files ...
... //depot/perl/lib/Test/Simple/t/tbt_01basic.t#5 edit
Differences ...
==== //depot/perl/lib/Test/Simple/t/tbt_01basic.t#5 (text) ====
Index: perl/lib/Test/Simple/t/tbt_01basic.t
--- perl/lib/Test/Simple/t/tbt_01basic.t#4~28514~ 2006-07-09
06:51:37.000000000 -0700
+++ perl/lib/Test/Simple/t/tbt_01basic.t 2006-07-09 13:51:48.000000000
-0700
@@ -29,34 +29,44 @@
test_test("multiple tests");
test_out("not ok 1 - should fail");
-test_err("# Failed test ($0 at line 35)");
+test_err("# Failed test ($0 at line 28)");
test_err("# got: 'foo'");
test_err("# expected: 'bar'");
is("foo","bar","should fail");
test_test("testing failing");
-test_out("not ok 1");
-test_out("not ok 2");
test_fail(+2);
test_fail(+1);
fail(); fail();
test_test("testing failing on the same line with no name");
-test_out("not ok 1 - name");
-test_out("not ok 2 - name");
-test_fail(+2);
-test_fail(+1);
-fail("name"); fail("name");
+test_fail(+2, 'name');
+test_fail(+1, 'name_two');
+fail("name"); fail("name_two");
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 59)");
+my $line = __LINE__ + 4;
+test_err("# Failed (TODO) test ($0 at line $line)");
TODO: {
local $TODO = "Something";
fail("name");
}
test_test("testing failing with todo");
+test_pass();
+pass();
+test_test("testing passing with test_pass()");
+
+test_pass("some description");
+pass("some description");
+test_test("testing passing with test_pass() and description");
+
+test_pass("one test");
+test_pass("... and another");
+ok(1, "one test");
+ok(1, "... and another");
+test_test("testing pass_test() and multiple tests");
End of Patch.
