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.105
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 /
Delete
Unzip
Name
Size
Permission
Date
Action
Bugs
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Builder
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Regression
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Simple
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Test2
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Tester
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
subtest
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
00test_harness_check.t
764
B
-rw-r--r--
2020-10-22 03:10
01-basic.t
90
B
-rw-r--r--
2020-10-22 03:10
478-cmp_ok_hash.t
923
B
-rw-r--r--
2020-10-22 03:10
BEGIN_require_ok.t
463
B
-rw-r--r--
2020-10-22 03:10
BEGIN_use_ok.t
388
B
-rw-r--r--
2020-10-22 03:10
More.t
5.1
KB
-rw-r--r--
2020-10-22 03:10
auto.t
598
B
-rw-r--r--
2020-10-22 03:10
bad_plan.t
495
B
-rw-r--r--
2020-10-22 03:10
bail_out.t
851
B
-rw-r--r--
2020-10-22 03:10
buffer.t
474
B
-rw-r--r--
2020-10-22 03:10
c_flag.t
458
B
-rw-r--r--
2020-10-22 03:10
capture.t
488
B
-rw-r--r--
2020-10-22 03:10
check_tests.t
2.38
KB
-rw-r--r--
2020-10-22 03:10
circular_data.t
1.17
KB
-rw-r--r--
2020-10-22 03:10
cmp_ok.t
1.75
KB
-rw-r--r--
2020-10-22 03:10
depth.t
383
B
-rw-r--r--
2020-10-22 03:10
diag.t
1.39
KB
-rw-r--r--
2020-10-22 03:10
died.t
889
B
-rw-r--r--
2020-10-22 03:10
dont_overwrite_die_handler.t
515
B
-rw-r--r--
2020-10-22 03:10
eq_set.t
562
B
-rw-r--r--
2020-10-22 03:10
exit.t
3.17
KB
-rw-r--r--
2020-10-22 03:10
explain.t
582
B
-rw-r--r--
2020-10-22 03:10
explain_err_vars.t
122
B
-rw-r--r--
2020-10-22 03:10
extra.t
1.11
KB
-rw-r--r--
2020-10-22 03:10
extra_one.t
910
B
-rw-r--r--
2020-10-22 03:10
fail-like.t
1.57
KB
-rw-r--r--
2020-10-22 03:10
fail-more.t
10.55
KB
-rw-r--r--
2020-10-22 03:10
fail.t
1.22
KB
-rw-r--r--
2020-10-22 03:10
fail_one.t
873
B
-rw-r--r--
2020-10-22 03:10
filehandles.t
290
B
-rw-r--r--
2020-10-22 03:10
fork.t
456
B
-rw-r--r--
2020-10-22 03:10
harness_active.t
1.43
KB
-rw-r--r--
2020-10-22 03:10
import.t
244
B
-rw-r--r--
2020-10-22 03:10
is_deeply_dne_bug.t
887
B
-rw-r--r--
2020-10-22 03:10
is_deeply_fail.t
11.53
KB
-rw-r--r--
2020-10-22 03:10
is_deeply_with_threads.t
1.37
KB
-rw-r--r--
2020-10-22 03:10
missing.t
1.08
KB
-rw-r--r--
2020-10-22 03:10
new_ok.t
705
B
-rw-r--r--
2020-10-22 03:10
no_log_results.t
260
B
-rw-r--r--
2020-10-22 03:10
no_plan.t
840
B
-rw-r--r--
2020-10-22 03:10
no_tests.t
823
B
-rw-r--r--
2020-10-22 03:10
note.t
416
B
-rw-r--r--
2020-10-22 03:10
overload.t
2.13
KB
-rw-r--r--
2020-10-22 03:10
overload_threads.t
1.15
KB
-rw-r--r--
2020-10-22 03:10
plan.t
474
B
-rw-r--r--
2020-10-22 03:10
plan_bad.t
1.05
KB
-rw-r--r--
2020-10-22 03:10
plan_is_noplan.t
404
B
-rw-r--r--
2020-10-22 03:10
plan_no_plan.t
794
B
-rw-r--r--
2020-10-22 03:10
plan_shouldnt_import.t
294
B
-rw-r--r--
2020-10-22 03:10
plan_skip_all.t
190
B
-rw-r--r--
2020-10-22 03:10
require_ok.t
786
B
-rw-r--r--
2020-10-22 03:10
run_test.t
4.13
KB
-rw-r--r--
2020-10-22 03:10
simple.t
200
B
-rw-r--r--
2020-10-22 03:10
skip.t
1.92
KB
-rw-r--r--
2020-10-22 03:10
skipall.t
481
B
-rw-r--r--
2020-10-22 03:10
strays.t
480
B
-rw-r--r--
2020-10-22 03:10
tbm_doesnt_set_exported_to.t
457
B
-rw-r--r--
2020-10-22 03:10
thread_taint.t
122
B
-rw-r--r--
2020-10-22 03:10
threads.t
616
B
-rw-r--r--
2020-10-22 03:10
todo.t
3.31
KB
-rw-r--r--
2020-10-22 03:10
undef.t
1.95
KB
-rw-r--r--
2020-10-22 03:10
use_ok.t
2.29
KB
-rw-r--r--
2020-10-22 03:10
useing.t
365
B
-rw-r--r--
2020-10-22 03:10
utf8.t
1.49
KB
-rw-r--r--
2020-10-22 03:10
versions.t
503
B
-rw-r--r--
2020-10-22 03:10
Save
Rename
use strict; use Test::Tester; use Data::Dumper qw(Dumper); my $test = Test::Builder->new; $test->plan(tests => 54); my $cap; { $cap = Test::Tester->capture; my ($prem, @results) = run_tests( sub {$cap->ok(1, "run pass")} ); local $Test::Builder::Level = 0; $test->is_eq($prem, "", "run pass no prem"); $test->is_num(scalar (@results), 1, "run pass result count"); my $res = $results[0]; $test->is_eq($res->{name}, "run pass", "run pass name"); $test->is_eq($res->{ok}, 1, "run pass ok"); $test->is_eq($res->{actual_ok}, 1, "run pass actual_ok"); $test->is_eq($res->{reason}, "", "run pass reason"); $test->is_eq($res->{type}, "", "run pass type"); $test->is_eq($res->{diag}, "", "run pass diag"); $test->is_num($res->{depth}, 0, "run pass depth"); } { my ($prem, @results) = run_tests( sub {$cap->ok(0, "run fail")} ); local $Test::Builder::Level = 0; $test->is_eq($prem, "", "run fail no prem"); $test->is_num(scalar (@results), 1, "run fail result count"); my $res = $results[0]; $test->is_eq($res->{name}, "run fail", "run fail name"); $test->is_eq($res->{actual_ok}, 0, "run fail actual_ok"); $test->is_eq($res->{ok}, 0, "run fail ok"); $test->is_eq($res->{reason}, "", "run fail reason"); $test->is_eq($res->{type}, "", "run fail type"); $test->is_eq($res->{diag}, "", "run fail diag"); $test->is_num($res->{depth}, 0, "run fail depth"); } { my ($prem, @results) = run_tests( sub {$cap->skip("just because")} ); local $Test::Builder::Level = 0; $test->is_eq($prem, "", "skip no prem"); $test->is_num(scalar (@results), 1, "skip result count"); my $res = $results[0]; $test->is_eq($res->{name}, "", "skip name"); $test->is_eq($res->{actual_ok}, 1, "skip actual_ok"); $test->is_eq($res->{ok}, 1, "skip ok"); $test->is_eq($res->{reason}, "just because", "skip reason"); $test->is_eq($res->{type}, "skip", "skip type"); $test->is_eq($res->{diag}, "", "skip diag"); $test->is_num($res->{depth}, 0, "skip depth"); } { my ($prem, @results) = run_tests( sub {$cap->todo_skip("just because")} ); local $Test::Builder::Level = 0; $test->is_eq($prem, "", "todo_skip no prem"); $test->is_num(scalar (@results), 1, "todo_skip result count"); my $res = $results[0]; $test->is_eq($res->{name}, "", "todo_skip name"); $test->is_eq($res->{actual_ok}, 0, "todo_skip actual_ok"); $test->is_eq($res->{ok}, 1, "todo_skip ok"); $test->is_eq($res->{reason}, "just because", "todo_skip reason"); $test->is_eq($res->{type}, "todo_skip", "todo_skip type"); $test->is_eq($res->{diag}, "", "todo_skip diag"); $test->is_num($res->{depth}, 0, "todo_skip depth"); } { my ($prem, @results) = run_tests( sub {$cap->diag("run diag")} ); local $Test::Builder::Level = 0; $test->is_eq($prem, "run diag\n", "run diag prem"); $test->is_num(scalar (@results), 0, "run diag result count"); } { my ($prem, @results) = run_tests( sub { $cap->ok(1, "multi pass"); $cap->diag("multi pass diag1"); $cap->diag("multi pass diag2"); $cap->ok(0, "multi fail"); $cap->diag("multi fail diag"); } ); local $Test::Builder::Level = 0; $test->is_eq($prem, "", "run multi no prem"); $test->is_num(scalar (@results), 2, "run multi result count"); my $res_pass = $results[0]; $test->is_eq($res_pass->{name}, "multi pass", "run multi pass name"); $test->is_eq($res_pass->{actual_ok}, 1, "run multi pass actual_ok"); $test->is_eq($res_pass->{ok}, 1, "run multi pass ok"); $test->is_eq($res_pass->{reason}, "", "run multi pass reason"); $test->is_eq($res_pass->{type}, "", "run multi pass type"); $test->is_eq($res_pass->{diag}, "multi pass diag1\nmulti pass diag2\n", "run multi pass diag"); $test->is_num($res_pass->{depth}, 0, "run multi pass depth"); my $res_fail = $results[1]; $test->is_eq($res_fail->{name}, "multi fail", "run multi fail name"); $test->is_eq($res_pass->{actual_ok}, 1, "run multi fail actual_ok"); $test->is_eq($res_fail->{ok}, 0, "run multi fail ok"); $test->is_eq($res_pass->{reason}, "", "run multi fail reason"); $test->is_eq($res_pass->{type}, "", "run multi fail type"); $test->is_eq($res_fail->{diag}, "multi fail diag\n", "run multi fail diag"); $test->is_num($res_pass->{depth}, 0, "run multi fail depth"); }