3 use Test::Builder::Tester tests => 9;
6 ok(1,"This is a basic test");
8 test_out("ok 1 - tested");
10 test_test("captured okay on basic");
12 test_out("ok 1 - tested");
14 test_test("captured okay again without changing number");
16 ok(1,"test unrelated to Test::Builder::Tester");
18 test_out("ok 1 - one");
19 test_out("ok 2 - two");
22 test_test("multiple tests");
24 test_out("not ok 1 - should fail");
25 test_err("# Failed test ($0 at line 28)");
26 test_err("# got: 'foo'");
27 test_err("# expected: 'bar'");
28 is("foo","bar","should fail");
29 test_test("testing failing");
37 test_test("testing failing on the same line with no name");
40 test_out("not ok 1 - name");
41 test_out("not ok 2 - name");
44 fail("name"); fail("name");
45 test_test("testing failing on the same line with the same name");
48 test_out("not ok 1 - name # TODO Something");
49 test_err("# Failed (TODO) test ($0 at line 52)");
51 local $TODO = "Something";
54 test_test("testing failing with todo");