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.186
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 : use_ok.t
#!/usr/bin/perl -w use strict; use warnings; use lib 't/lib'; use Test::More; note "Basic use_ok"; { package Foo::one; ::use_ok("Symbol"); ::ok( defined &gensym, 'use_ok() no args exports defaults' ); } note "With one arg"; { package Foo::two; ::use_ok("Symbol", qw(qualify)); ::ok( !defined &gensym, ' one arg, defaults overridden' ); ::ok( defined &qualify, ' right function exported' ); } note "Multiple args"; { package Foo::three; ::use_ok("Symbol", qw(gensym ungensym)); ::ok( defined &gensym && defined &ungensym, ' multiple args' ); } note "Defining constants"; { package Foo::four; my $warn; local $SIG{__WARN__} = sub { $warn .= shift; }; ::use_ok("constant", qw(foo bar)); ::ok( defined &foo, 'constant' ); ::is( $warn, undef, 'no warning'); } note "use Module VERSION"; { package Foo::five; ::use_ok("Symbol", 1.02); } note "use Module VERSION does not call import"; { package Foo::six; ::use_ok("NoExporter", 1.02); } { package Foo::seven; local $SIG{__WARN__} = sub { # Old perls will warn on X.YY_ZZ style versions. Not our problem warn @_ unless $_[0] =~ /^Argument "\d+\.\d+_\d+" isn't numeric/; }; ::use_ok("Test::More", 0.47); } note "Signals are preserved"; { package Foo::eight; local $SIG{__DIE__}; ::use_ok("SigDie"); ::ok(defined $SIG{__DIE__}, ' SIG{__DIE__} preserved'); } note "Line numbers preserved"; { my $package = "that_cares_about_line_numbers"; # Store the output of caller. my @caller; { package that_cares_about_line_numbers; sub import { @caller = caller; return; } $INC{"$package.pm"} = 1; # fool use into thinking it's already loaded } ::use_ok($package); my $line = __LINE__-1; ::is( $caller[0], __PACKAGE__, "caller package preserved" ); ::is( $caller[1], __FILE__, " file" ); ::is( $caller[2], $line, " line" ); } note "not confused by functions vs class names"; { $INC{"ok.pm"} = 1; use_ok("ok"); # ok is a function inside Test::More $INC{"Foo/bar.pm"} = 1; sub Foo::bar { 42 } use_ok("Foo::bar"); # Confusing a class name with a function name } done_testing;
Close
