ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/Test-File-1.993-0/t
/
home
.cpan
build
Test-File-1.993-0
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
rt
-
chmod
Open
Rename
Delete
dm_skeleton.t
1.51 MB
chmod
View
DL
Edit
Rename
Delete
file_contains.t
5.05 MB
chmod
View
DL
Edit
Rename
Delete
file_contains_encoded.t
2.96 MB
chmod
View
DL
Edit
Rename
Delete
file_contains_utf8.t
2.97 MB
chmod
View
DL
Edit
Rename
Delete
file_mtime.t
3.02 MB
chmod
View
DL
Edit
Rename
Delete
file_sizes.t
4.71 MB
chmod
View
DL
Edit
Rename
Delete
line_counters.t
5.21 MB
chmod
View
DL
Edit
Rename
Delete
links.t
5.23 MB
chmod
View
DL
Edit
Rename
Delete
link_counts.t
2.47 MB
chmod
View
DL
Edit
Rename
Delete
load.t
158 B
chmod
View
DL
Edit
Rename
Delete
normalize.t
1.81 MB
chmod
View
DL
Edit
Rename
Delete
obviously_non_multi_user.t
1.53 MB
chmod
View
DL
Edit
Rename
Delete
owner.t
5.75 MB
chmod
View
DL
Edit
Rename
Delete
pod.t
129 B
chmod
View
DL
Edit
Rename
Delete
pod_coverage.t
161 B
chmod
View
DL
Edit
Rename
Delete
setup_common
1.89 MB
chmod
View
DL
Edit
Rename
Delete
test_dirs.t
1.42 MB
chmod
View
DL
Edit
Rename
Delete
test_files.t
9.99 MB
chmod
View
DL
Edit
Rename
Delete
test_manifest
282 B
chmod
View
DL
Edit
Rename
Delete
win32.t
929 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/Test-File-1.993-0/t/win32.t
use strict; use warnings; use Test::Builder::Tester; use Test::More 1; subtest load => sub { use_ok( 'Test::File' ); ok( defined &{ "Test::File::_win32" }, "_win32 defined" ); }; subtest darwin => sub { local $^O = 'darwin'; ok( ! Test::File::_win32(), "Returns false for darwin" ); }; subtest win32 => sub { local $^O = 'Win32'; ok( Test::File::_win32(), "Returns true for Win32" ); }; subtest linux_pretend_win32 => sub { local %ENV; $ENV{PRETEND_TO_BE_WIN32} = 1; local $^O = 'linux'; ok( Test::File::_win32(), "Returns true for linux when ENV{PRETEND_TO_BE_WIN32} is defined" ); }; subtest file_modes => sub { local $^O = 'Win32'; my @subs = qw( file_mode_is file_mode_isnt file_executable_ok file_not_executable_ok ); foreach my $sub ( @subs ) { no strict 'refs'; test_out("ok 1 # skip $sub doesn't work on Windows"); &{$sub}(); test_test(); } done_testing(); }; 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