This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Test-Simple to CPAN version 1.001002
[perl5.git] / cpan / Test-Simple / t / Tester / tbt_01basic.t
1 #!/usr/bin/perl
2
3 use Test::Builder::Tester tests => 10;
4 use Test::More;
5
6 ok(1,"This is a basic test");
7
8 test_out("ok 1 - tested");
9 ok(1,"tested");
10 test_test("captured okay on basic");
11
12 test_out("ok 1 - tested");
13 ok(1,"tested");
14 test_test("captured okay again without changing number");
15
16 ok(1,"test unrelated to Test::Builder::Tester");
17
18 test_out("ok 1 - one");
19 test_out("ok 2 - two");
20 ok(1,"one");
21 ok(2,"two");
22 test_test("multiple tests");
23
24 test_out(qr/ok 1 - tested\n/);
25 ok(1,"tested");
26 test_test("regexp matching");
27
28 test_out("not ok 1 - should fail");
29 test_err("#     Failed test ($0 at line 32)");
30 test_err("#          got: 'foo'");
31 test_err("#     expected: 'bar'");
32 is("foo","bar","should fail");
33 test_test("testing failing");
34
35
36 test_out("not ok 1");
37 test_out("not ok 2");
38 test_fail(+2);
39 test_fail(+1);
40 fail();  fail();
41 test_test("testing failing on the same line with no name");
42
43
44 test_out("not ok 1 - name");
45 test_out("not ok 2 - name");
46 test_fail(+2);
47 test_fail(+1);
48 fail("name");  fail("name");
49 test_test("testing failing on the same line with the same name");
50
51
52 test_out("not ok 1 - name # TODO Something");
53 test_out("#     Failed (TODO) test ($0 at line 56)");
54 TODO: { 
55     local $TODO = "Something";
56     fail("name");
57 }
58 test_test("testing failing with todo");
59