summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t')
-rwxr-xr-xgnu/usr.bin/perl/lib/Test/Simple/t/tbt_01basic.t62
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");
-