3 use Test::Builder::Tester tests => 5;
8 test_out("not ok 1 - one");
12 test_out("not ok 2 - two");
17 test_test("test fail");
20 test_out("not ok 1 - one");
22 test_test("test_fail first");
27 my $test = new Test::Builder;
29 test_diag("this is a test string","so is this");
30 $test->diag("this is a test string\n", "so is this\n");
31 test_test("test diag");
33 test_diag("this is a test string","so is this");
34 $test->diag("this is a test string\n");
35 $test->diag("so is this\n");
36 test_test("test diag multi line");
38 test_diag("this is a test string");
39 test_diag("so is this");
40 $test->diag("this is a test string\n");
41 $test->diag("so is this\n");
42 test_test("test diag multiple");