__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use strict;
use warnings;
use lib 't/lib';
use Std;
{
my $a1 = gen_layers(2);
my $a2 = gen_layers(2);
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 1,
diag => "",
},
"2 layers"
);
push(@$a1, "break");
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 0,
diag => <<EOM,
Compared array length of \$data
got : array with 4 element(s)
expect : array with 3 element(s)
EOM
},
"2 layers broken"
);
push(@$a2, "break");
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 1,
diag => "",
},
"2 layers fixed"
);
}
{
my $a1 = gen_layers(2);
my $a2 = gen_layers(3);
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 1,
diag => "",
},
"2 and 3 layers"
);
push(@$a1, "break");
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 0,
diag => <<EOM,
Compared array length of \$data
got : array with 4 element(s)
expect : array with 3 element(s)
EOM
},
"2 and 3 layers broken"
);
push(@$a2, "break");
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 0,
diag => <<EOM,
Compared array length of \$data->[2][2]
got : array with 4 element(s)
expect : array with 3 element(s)
EOM
},
"2 and 3 layers not fixed"
);
}
{
my $a1 = gen_interleave();
my $a2 = gen_interleave();
check_test(
sub {
cmp_deeply($a1, $a2);
},
{
actual_ok => 1,
diag => "",
},
"interleave"
);
}
sub gen_layers
{
my $num = shift;
my $first = ['text', gen_circle()];
$num--;
my $last = $first;
while ($num--)
{
my $next = ['text', gen_circle()];
push(@$last, $next);
$last = $next;
}
push(@$last, $first);
return $first
}
sub gen_circle
{
my $a = ['circle'];
push(@$a, $a);
return $a
}
sub gen_interleave
{
my $a = [];
my $b = [];
push(@$a, $b, $a);
push(@$b, $a, $b);
return $a;
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| lib | Folder | 0755 |
|
|
| 00-report-prereqs.dd | File | 1.3 KB | 0644 |
|
| 00-report-prereqs.t | File | 5.88 KB | 0644 |
|
| all.t | File | 977 B | 0644 |
|
| any.t | File | 934 B | 0644 |
|
| array.t | File | 1.27 KB | 0644 |
|
| array_each.t | File | 522 B | 0644 |
|
| arraylength.t | File | 1.59 KB | 0644 |
|
| bag.t | File | 4.69 KB | 0644 |
|
| bagrecursion.t | File | 255 B | 0644 |
|
| blessed.t | File | 777 B | 0644 |
|
| boolean.t | File | 1.17 KB | 0644 |
|
| cache.t | File | 740 B | 0644 |
|
| circular.t | File | 2.02 KB | 0644 |
|
| class.t | File | 1.55 KB | 0644 |
|
| code.t | File | 968 B | 0644 |
|
| deep_utils.t | File | 557 B | 0644 |
|
| descend.t | File | 1.85 KB | 0644 |
|
| error.t | File | 323 B | 0644 |
|
| hash.t | File | 1.45 KB | 0644 |
|
| hash_each.t | File | 579 B | 0644 |
|
| hashkeys.t | File | 1.07 KB | 0644 |
|
| ignore.t | File | 220 B | 0644 |
|
| import.t | File | 116 B | 0644 |
|
| isa.t | File | 1.88 KB | 0644 |
|
| leaf-wrapper.t | File | 1.3 KB | 0644 |
|
| listmethods.t | File | 2.23 KB | 0644 |
|
| memory.t | File | 656 B | 0644 |
|
| methods.t | File | 2.43 KB | 0644 |
|
| no-clobber-globals.t | File | 527 B | 0644 |
|
| none.t | File | 1.04 KB | 0644 |
|
| notest.t | File | 200 B | 0644 |
|
| notest_extra.t | File | 220 B | 0644 |
|
| notest_withtest.t | File | 347 B | 0644 |
|
| number.t | File | 1.47 KB | 0644 |
|
| reftype.t | File | 408 B | 0644 |
|
| regexp.t | File | 2.87 KB | 0644 |
|
| regexp.t.orig | File | 793 B | 0644 |
|
| regexpref.t | File | 511 B | 0644 |
|
| rt78288_blessed_object.t | File | 310 B | 0644 |
|
| scalar.t | File | 923 B | 0644 |
|
| scalarref.t | File | 692 B | 0644 |
|
| set.t | File | 4.97 KB | 0644 |
|
| shallow.t | File | 1.27 KB | 0644 |
|
| string.t | File | 830 B | 0644 |
|