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