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.216.203.204
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 : exception.t
use 5.008001; use strict; use warnings; use Test::More 0.96; use lib 't/lib'; use TestUtils qw/exception/; use Path::Tiny; my $err; $err = exception { path("aljfakdlfadks")->slurp }; like( $err, qr/at \Q$0\E/, "exception reported at caller's package" ); for my $m (qw/append iterator lines lines_raw lines_utf8 slurp spew/) { $err = exception { path("foo")->$m( { wibble => 1 } ) }; like( $err, qr/Invalid option\(s\) for $m: wibble/, "$m bad args" ); } $err = exception { path("foo")->visit( sub { 1 }, { wibble => 1 } ); }; like( $err, qr/Invalid option\(s\) for visit: wibble/, "visit bad args" ); # exclude append/spew because they handle hash/not-hash themselves my $scalar = [qw/array ref/]; for my $m (qw/iterator lines lines_raw lines_utf8 slurp/) { $err = exception { path("foo")->$m($scalar) }; like( $err, qr/Options for $m must be a hash reference/, "$m not hashref" ); } $err = exception { path("foo")->visit( sub { 1 }, $scalar ); }; like( $err, qr/Options for visit must be a hash reference/, "visit not hashref" ); done_testing; # # This file is part of Path-Tiny # # This software is Copyright (c) 2014 by David Golden. # # This is free software, licensed under: # # The Apache License, Version 2.0, January 2004 # # vim: ts=4 sts=4 sw=4 et:
Close
