This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
81eeae6713282a8293b41ed998f7880b6e6b019a
[perl5.git] / lib / Test / Simple / t / tbt_01basic.t
1 #!/usr/bin/perl
2
3 BEGIN {
4     if( $ENV{PERL_CORE} ) {
5         chdir 't';
6         @INC = '../lib';
7     }
8 }
9
10 use Test::Builder::Tester tests => 12;
11 use Test::More;
12
13 ok(1,"This is a basic test");
14
15 test_out("ok 1 - tested");
16 ok(1,"tested");
17 test_test("captured okay on basic");
18
19 test_out("ok 1 - tested");
20 ok(1,"tested");
21 test_test("captured okay again without changing number");
22
23 ok(1,"test unrelated to Test::Builder::Tester");
24
25 test_out("ok 1 - one");
26 test_out("ok 2 - two");
27 ok(1,"one");
28 ok(2,"two");
29 test_test("multiple tests");
30
31 test_out("not ok 1 - should fail");
32 test_err("#     Failed test ($0 at line 28)");
33 test_err("#          got: 'foo'");
34 test_err("#     expected: 'bar'");
35 is("foo","bar","should fail");
36 test_test("testing failing");
37
38
39 test_fail(+2);
40 test_fail(+1);
41 fail();  fail();
42 test_test("testing failing on the same line with no name");
43
44
45 test_fail(+2, 'name');
46 test_fail(+1, 'name_two');
47 fail("name");  fail("name_two");
48 test_test("testing failing on the same line with the same name");
49
50
51 test_out("not ok 1 - name # TODO Something");
52 my $line = __LINE__ + 4;
53 test_err("#     Failed (TODO) test ($0 at line $line)");
54 TODO: { 
55     local $TODO = "Something";
56     fail("name");
57 }
58 test_test("testing failing with todo");
59
60 test_pass();
61 pass();
62 test_test("testing passing with test_pass()");
63
64 test_pass("some description");
65 pass("some description");
66 test_test("testing passing with test_pass() and description");
67
68 test_pass("one test");
69 test_pass("... and another");
70 ok(1, "one test");
71 ok(1, "... and another");
72 test_test("testing pass_test() and multiple tests");