Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.158
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-Test-Simple /
t /
Legacy /
[ HOME SHELL ]
Name
Size
Permission
Action
Bugs
[ DIR ]
drwxr-xr-x
Builder
[ DIR ]
drwxr-xr-x
Regression
[ DIR ]
drwxr-xr-x
Simple
[ DIR ]
drwxr-xr-x
Test2
[ DIR ]
drwxr-xr-x
Tester
[ DIR ]
drwxr-xr-x
subtest
[ DIR ]
drwxr-xr-x
00test_harness_check.t
764
B
-rw-r--r--
01-basic.t
90
B
-rw-r--r--
478-cmp_ok_hash.t
923
B
-rw-r--r--
BEGIN_require_ok.t
463
B
-rw-r--r--
BEGIN_use_ok.t
388
B
-rw-r--r--
More.t
5.1
KB
-rw-r--r--
auto.t
598
B
-rw-r--r--
bad_plan.t
495
B
-rw-r--r--
bail_out.t
851
B
-rw-r--r--
buffer.t
444
B
-rw-r--r--
c_flag.t
458
B
-rw-r--r--
capture.t
488
B
-rw-r--r--
check_tests.t
2.38
KB
-rw-r--r--
circular_data.t
1.17
KB
-rw-r--r--
cmp_ok.t
1.75
KB
-rw-r--r--
depth.t
383
B
-rw-r--r--
diag.t
1.39
KB
-rw-r--r--
died.t
889
B
-rw-r--r--
dont_overwrite_die_handler.t
515
B
-rw-r--r--
eq_set.t
562
B
-rw-r--r--
exit.t
3.17
KB
-rw-r--r--
explain.t
582
B
-rw-r--r--
explain_err_vars.t
122
B
-rw-r--r--
extra.t
1.11
KB
-rw-r--r--
extra_one.t
910
B
-rw-r--r--
fail-like.t
1.56
KB
-rw-r--r--
fail-more.t
10.55
KB
-rw-r--r--
fail.t
1.22
KB
-rw-r--r--
fail_one.t
873
B
-rw-r--r--
filehandles.t
290
B
-rw-r--r--
fork.t
456
B
-rw-r--r--
harness_active.t
1.43
KB
-rw-r--r--
import.t
244
B
-rw-r--r--
is_deeply_dne_bug.t
887
B
-rw-r--r--
is_deeply_fail.t
11.52
KB
-rw-r--r--
is_deeply_with_threads.t
1.37
KB
-rw-r--r--
missing.t
1.08
KB
-rw-r--r--
new_ok.t
705
B
-rw-r--r--
no_log_results.t
260
B
-rw-r--r--
no_plan.t
840
B
-rw-r--r--
no_tests.t
823
B
-rw-r--r--
note.t
416
B
-rw-r--r--
overload.t
2.13
KB
-rw-r--r--
overload_threads.t
1.15
KB
-rw-r--r--
plan.t
474
B
-rw-r--r--
plan_bad.t
1.05
KB
-rw-r--r--
plan_is_noplan.t
404
B
-rw-r--r--
plan_no_plan.t
794
B
-rw-r--r--
plan_shouldnt_import.t
294
B
-rw-r--r--
plan_skip_all.t
190
B
-rw-r--r--
require_ok.t
786
B
-rw-r--r--
run_test.t
4.13
KB
-rw-r--r--
simple.t
200
B
-rw-r--r--
skip.t
1.92
KB
-rw-r--r--
skipall.t
481
B
-rw-r--r--
strays.t
480
B
-rw-r--r--
tbm_doesnt_set_exported_to.t
457
B
-rw-r--r--
thread_taint.t
122
B
-rw-r--r--
threads.t
616
B
-rw-r--r--
todo.t
3.28
KB
-rw-r--r--
undef.t
1.95
KB
-rw-r--r--
use_ok.t
2.29
KB
-rw-r--r--
useing.t
365
B
-rw-r--r--
utf8.t
1.49
KB
-rw-r--r--
versions.t
503
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : check_tests.t
use strict; use Test::Tester; use Data::Dumper qw(Dumper); my $test = Test::Builder->new; $test->plan(tests => 139); my $cap; $cap = Test::Tester->capture; my @tests = ( [ 'pass', '$cap->ok(1, "pass");', { name => "pass", ok => 1, actual_ok => 1, reason => "", type => "", diag => "", depth => 0, }, ], [ 'pass diag', '$cap->ok(1, "pass diag"); $cap->diag("pass diag1"); $cap->diag("pass diag2");', { name => "pass diag", ok => 1, actual_ok => 1, reason => "", type => "", diag => "pass diag1\npass diag2\n", depth => 0, }, ], [ 'pass diag no \\n', '$cap->ok(1, "pass diag"); $cap->diag("pass diag1"); $cap->diag("pass diag2");', { name => "pass diag", ok => 1, actual_ok => 1, reason => "", type => "", diag => "pass diag1\npass diag2", depth => 0, }, ], [ 'fail', '$cap->ok(0, "fail"); $cap->diag("fail diag");', { name => "fail", ok => 0, actual_ok => 0, reason => "", type => "", diag => "fail diag\n", depth => 0, }, ], [ 'skip', '$cap->skip("just because");', { name => "", ok => 1, actual_ok => 1, reason => "just because", type => "skip", diag => "", depth => 0, }, ], [ 'todo_skip', '$cap->todo_skip("why not");', { name => "", ok => 1, actual_ok => 0, reason => "why not", type => "todo_skip", diag => "", depth => 0, }, ], [ 'pass diag qr', '$cap->ok(1, "pass diag qr"); $cap->diag("pass diag qr");', { name => "pass diag qr", ok => 1, actual_ok => 1, reason => "", type => "", diag => qr/pass diag qr/, depth => 0, }, ], [ 'fail diag qr', '$cap->ok(0, "fail diag qr"); $cap->diag("fail diag qr");', { name => "fail diag qr", ok => 0, actual_ok => 0, reason => "", type => "", diag => qr/fail diag qr/, depth => 0, }, ], ); my $big_code = ""; my @big_expect; foreach my $test (@tests) { my ($name, $code, $expect) = @$test; $big_code .= "$code\n"; push(@big_expect, $expect); my $test_sub = eval "sub {$code}"; check_test($test_sub, $expect, $name); } my $big_test_sub = eval "sub {$big_code}"; check_tests($big_test_sub, \@big_expect, "run all");
Close
