Clear up test based on line number differences between the core and the

[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / tbt_01basic.t

diff --git a/lib/Test/Simple/t/tbt_01basic.t b/lib/Test/Simple/t/tbt_01basic.t
index 28cf4cb..b79f2e5 100644 (file)
--- a/lib/Test/Simple/t/tbt_01basic.t
+++ b/lib/Test/Simple/t/tbt_01basic.t
@@ -36,27 +36,37 @@ 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");