1#!/usr/bin/perl 2 3use Test::Builder::Tester tests => 5; 4use Test::More; 5 6# test_fail 7 8test_out("not ok 1 - one"); 9test_fail(+1); 10ok(0,"one"); 11 12test_out("not ok 2 - two"); 13test_fail(+2); 14 15ok(0,"two"); 16 17test_test("test fail"); 18 19test_fail(+2); 20test_out("not ok 1 - one"); 21ok(0,"one"); 22test_test("test_fail first"); 23 24# test_diag 25 26use Test::Builder; 27my $test = new Test::Builder; 28 29test_diag("this is a test string","so is this"); 30$test->diag("this is a test string\n", "so is this\n"); 31test_test("test diag"); 32 33test_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"); 36test_test("test diag multi line"); 37 38test_diag("this is a test string"); 39test_diag("so is this"); 40$test->diag("this is a test string\n"); 41$test->diag("so is this\n"); 42test_test("test diag multiple"); 43 44 45