Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.26
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Test-Simple /
t /
Legacy /
Tester /
Delete
Unzip
Name
Size
Permission
Date
Action
tbt_01basic.t
1.24
KB
-rw-r--r--
2020-10-22 03:10
tbt_02fhrestore.t
1.17
KB
-rw-r--r--
2020-10-22 03:10
tbt_03die.t
225
B
-rw-r--r--
2020-10-22 03:10
tbt_04line_num.t
196
B
-rw-r--r--
2020-10-22 03:10
tbt_05faildiag.t
824
B
-rw-r--r--
2020-10-22 03:10
tbt_06errormess.t
3.02
KB
-rw-r--r--
2020-10-22 03:10
tbt_07args.t
5.15
KB
-rw-r--r--
2020-10-22 03:10
tbt_08subtest.t
268
B
-rw-r--r--
2020-10-22 03:10
tbt_09do.t
603
B
-rw-r--r--
2020-10-22 03:10
tbt_09do_script.pl
215
B
-rw-r--r--
2020-10-22 03:10
Save
Rename
#!/usr/bin/perl use Test::Builder::Tester tests => 10; 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(qr/ok 1 - tested\n/); ok(1,"tested"); test_test("regexp matching"); test_out("not ok 1 - should fail"); test_err("# Failed test ($0 at line 32)"); 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_out("# Failed (TODO) test ($0 at line 56)"); TODO: { local $TODO = "Something"; fail("name"); } test_test("testing failing with todo");