X7ROOT File Manager
Current Path:
/usr/share/doc/perl-CPAN-Meta/t
usr
/
share
/
doc
/
perl-CPAN-Meta
/
t
/
📁
..
📄
00-report-prereqs.dd
(7.88 KB)
📄
00-report-prereqs.t
(5.46 KB)
📄
README-data.txt
(622 B)
📄
converter-bad.t
(2.72 KB)
📄
converter-fail.t
(1.16 KB)
📄
converter-fragments.t
(4 KB)
📄
converter.t
(10.42 KB)
📁
data-fail
📁
data-fixable
📁
data-test
📁
data-valid
📁
lib
📄
load-bad.t
(805 B)
📄
merge.t
(5.74 KB)
📄
meta-obj.t
(6.62 KB)
📄
no-index.t
(1.82 KB)
📄
optional_feature-merge.t
(3.2 KB)
📁
parse-cpan-meta
📄
prereqs-finalize.t
(2.24 KB)
📄
prereqs-merge.t
(2.37 KB)
📄
prereqs.t
(3.65 KB)
📄
repository.t
(4.39 KB)
📄
save-load.t
(3.67 KB)
📄
validator.t
(1.2 KB)
Editing: 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:
Upload File
Create Folder