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: converter-bad.t
use strict; use warnings; use Test::More 0.88; use CPAN::Meta; use CPAN::Meta::Validator; use CPAN::Meta::Converter; use File::Spec; use IO::Dir; use Parse::CPAN::Meta; delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_DECODER}; my @data_dirs = qw( t/data-valid t/data-fixable ); my @files = sort map { my $d = $_; map { "$d/$_" } grep { substr($_,0,1) ne '.' } IO::Dir->new($d)->read } @data_dirs; *_spec_version = \&CPAN::Meta::Converter::_extract_spec_version; #use Data::Dumper; for my $f ( reverse sort @files ) { my $path = File::Spec->catfile($f); my $original = Parse::CPAN::Meta->load_file( $path ); ok( $original, "loaded $f" ); my $original_v = _spec_version($original); # UPCONVERSION if ( $original_v lt '2' ) { my $cmc = CPAN::Meta::Converter->new( $original ); my $converted = $cmc->convert( version => 2 ); is ( _spec_version($converted), 2, "up converted spec version $original_v to spec version 2"); my $cmv = CPAN::Meta::Validator->new( $converted ); ok ( $cmv->is_valid, "up converted META is valid" ) or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) # . "\nMETA:\n" . Dumper($converted) ); } # UPCONVERSION - partial if ( $original_v lt '1.4' ) { my $cmc = CPAN::Meta::Converter->new( $original ); my $converted = $cmc->convert( version => '1.4' ); is ( _spec_version($converted), 1.4, "up converted spec version $original_v to spec version 1.4"); my $cmv = CPAN::Meta::Validator->new( $converted ); ok ( $cmv->is_valid, "up converted META is valid" ) or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) # . "\nMETA:\n" . Dumper($converted) ); } # DOWNCONVERSION - partial if ( $original_v gt '1.2' ) { my $cmc = CPAN::Meta::Converter->new( $original ); my $converted = $cmc->convert( version => '1.2' ); is ( _spec_version($converted), '1.2', "down converted spec version $original_v to spec version 1.2"); my $cmv = CPAN::Meta::Validator->new( $converted ); ok ( $cmv->is_valid, "down converted META is valid" ) or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) # . "\nMETA:\n" . Dumper($converted) ); } # DOWNCONVERSION if ( $original_v gt '1.0' ) { my $cmc = CPAN::Meta::Converter->new( $original ); my $converted = $cmc->convert( version => '1.0' ); is ( _spec_version($converted), '1.0', "down converted spec version $original_v to spec version 1.0"); my $cmv = CPAN::Meta::Validator->new( $converted ); ok ( $cmv->is_valid, "down converted META is valid" ) or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) # . "\nMETA:\n" . Dumper($converted) ); } } done_testing; # vim: ts=2 sts=2 sw=2 et :
Upload File
Create Folder