Linux evo.fastest-server.com 5.14.0-284.1101.el9.tuxcare.11.els11.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Aug 14 13:30:35 UTC 2026 x86_64
LiteSpeed
Server IP : 103.249.112.113 & Your IP : 216.73.217.135
Domains : 988 Domain
User : tanishks
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 => 5; use Test::More; # test_fail test_out("not ok 1 - one"); test_fail(+1); ok(0,"one"); test_out("not ok 2 - two"); test_fail(+2); ok(0,"two"); test_test("test fail"); test_fail(+2); test_out("not ok 1 - one"); ok(0,"one"); test_test("test_fail first"); # test_diag use Test::Builder; my $test = new Test::Builder; test_diag("this is a test string","so is this"); $test->diag("this is a test string\n", "so is this\n"); test_test("test diag"); test_diag("this is a test string","so is this"); $test->diag("this is a test string\n"); $test->diag("so is this\n"); test_test("test diag multi line"); test_diag("this is a test string"); test_diag("so is this"); $test->diag("this is a test string\n"); $test->diag("so is this\n"); test_test("test diag multiple");