4 if( $ENV{PERL_CORE} ) {
10 use Test::Builder::Tester tests => 9;
13 ok(1,"This is a basic test");
15 test_out("ok 1 - tested");
17 test_test("captured okay on basic");
19 test_out("ok 1 - tested");
21 test_test("captured okay again without changing number");
23 ok(1,"test unrelated to Test::Builder::Tester");
25 test_out("ok 1 - one");
26 test_out("ok 2 - two");
29 test_test("multiple tests");
31 test_out("not ok 1 - should fail");
32 test_err("# Failed test ($0 at line 35)");
33 test_err("# got: 'foo'");
34 test_err("# expected: 'bar'");
35 is("foo","bar","should fail");
36 test_test("testing failing");
44 test_test("testing failing on the same line with no name");
47 test_out("not ok 1 - name");
48 test_out("not ok 2 - name");
51 fail("name"); fail("name");
52 test_test("testing failing on the same line with the same name");
55 test_out("not ok 1 - name # TODO Something");
56 test_err("# Failed (TODO) test ($0 at line 59)");
58 local $TODO = "Something";
61 test_test("testing failing with todo");