diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t')
-rwxr-xr-x | gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t b/gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t deleted file mode 100755 index 77d10814b79..00000000000 --- a/gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl - -BEGIN { - if( $ENV{PERL_CORE} ) { - chdir 't'; - @INC = '../lib'; - } -} - -use Test::Builder::Tester tests => 9; -use Test::More; - -ok(1,"This is a basic test"); - -test_out("ok 1 - tested"); -ok(1,"tested"); -test_test("captured okay on basic"); - -test_out("ok 1 - tested"); -ok(1,"tested"); -test_test("captured okay again without changing number"); - -ok(1,"test unrelated to Test::Builder::Tester"); - -test_out("ok 1 - one"); -test_out("ok 2 - two"); -ok(1,"one"); -ok(2,"two"); -test_test("multiple tests"); - -test_out("not ok 1 - should fail"); -test_err("# Failed test ($0 at line 35)"); -test_err("# got: 'foo'"); -test_err("# expected: 'bar'"); -is("foo","bar","should fail"); -test_test("testing failing"); - - -test_out("not ok 1"); -test_out("not ok 2"); -test_fail(+2); -test_fail(+1); -fail(); fail(); -test_test("testing failing on the same line with no name"); - - -test_out("not ok 1 - name"); -test_out("not ok 2 - name"); -test_fail(+2); -test_fail(+1); -fail("name"); fail("name"); -test_test("testing failing on the same line with the same name"); - - -test_out("not ok 1 - name # TODO Something"); -test_err("# Failed (TODO) test ($0 at line 59)"); -TODO: { - local $TODO = "Something"; - fail("name"); -} -test_test("testing failing with todo"); - |