Commit | Line | Data |
845d7e37 |
1 | #!/usr/bin/perl |
2 | |
3 | use Test::Builder::Tester tests => 5; |
4 | use Test::More; |
5 | |
6 | # test_fail |
7 | |
1be77ff7 |
8 | test_out("not ok 1 - one"); |
9 | test_fail(+1); |
845d7e37 |
10 | ok(0,"one"); |
11 | |
1be77ff7 |
12 | test_out("not ok 2 - two"); |
13 | test_fail(+2); |
845d7e37 |
14 | |
15 | ok(0,"two"); |
16 | |
17 | test_test("test fail"); |
18 | |
1be77ff7 |
19 | test_fail(+2); |
20 | test_out("not ok 1 - one"); |
845d7e37 |
21 | ok(0,"one"); |
22 | test_test("test_fail first"); |
23 | |
24 | # test_diag |
25 | |
26 | use Test::Builder; |
1be77ff7 |
27 | my $test = new Test::Builder; |
845d7e37 |
28 | |
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"); |
32 | |
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"); |
37 | |
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"); |
1be77ff7 |
43 | |
44 | |