X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FSimple%2Ft%2Ftbt_01basic.t;h=b79f2e5ef286577705150369b643c12974272cc6;hb=0295a53a2a0d7b08c078ea9d195ec919c7df2a35;hp=28cf4cbaa9164045dbd591c5a5b7ac1539f27f1c;hpb=68938d830611c13e5ce8c973f0c7a94dfb0f1a97;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Test/Simple/t/tbt_01basic.t b/lib/Test/Simple/t/tbt_01basic.t
index 28cf4cb..b79f2e5 100644
--- 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");