1use strict; 2use warnings; 3use Test::More 0.88; 4 5use CPAN::Meta; 6use CPAN::Meta::Validator; 7use CPAN::Meta::Converter; 8use File::Spec; 9use IO::Dir; 10use Parse::CPAN::Meta; 11 12delete $ENV{PERL_YAML_BACKEND}; 13delete $ENV{PERL_JSON_BACKEND}; 14delete $ENV{CPAN_META_JSON_BACKEND}; 15delete $ENV{CPAN_META_JSON_DECODER}; 16 17my @data_dirs = qw( t/data-valid t/data-fixable ); 18my @files = sort map { 19 my $d = $_; 20 map { "$d/$_" } grep { substr($_,0,1) ne '.' } IO::Dir->new($d)->read 21} @data_dirs; 22 23*_spec_version = \&CPAN::Meta::Converter::_extract_spec_version; 24 25#use Data::Dumper; 26 27for my $f ( reverse sort @files ) { 28 my $path = File::Spec->catfile($f); 29 my $original = Parse::CPAN::Meta->load_file( $path ); 30 ok( $original, "loaded $f" ); 31 my $original_v = _spec_version($original); 32 # UPCONVERSION 33 if ( $original_v lt '2' ) { 34 my $cmc = CPAN::Meta::Converter->new( $original ); 35 my $converted = $cmc->convert( version => 2 ); 36 is ( _spec_version($converted), 2, "up converted spec version $original_v to spec version 2"); 37 my $cmv = CPAN::Meta::Validator->new( $converted ); 38 ok ( $cmv->is_valid, "up converted META is valid" ) 39 or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) 40# . "\nMETA:\n" . Dumper($converted) 41 ); 42 } 43 # UPCONVERSION - partial 44 if ( $original_v lt '1.4' ) { 45 my $cmc = CPAN::Meta::Converter->new( $original ); 46 my $converted = $cmc->convert( version => '1.4' ); 47 is ( _spec_version($converted), 1.4, "up converted spec version $original_v to spec version 1.4"); 48 my $cmv = CPAN::Meta::Validator->new( $converted ); 49 ok ( $cmv->is_valid, "up converted META is valid" ) 50 or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) 51# . "\nMETA:\n" . Dumper($converted) 52 ); 53 } 54 # DOWNCONVERSION - partial 55 if ( $original_v gt '1.2' ) { 56 my $cmc = CPAN::Meta::Converter->new( $original ); 57 my $converted = $cmc->convert( version => '1.2' ); 58 is ( _spec_version($converted), '1.2', "down converted spec version $original_v to spec version 1.2"); 59 my $cmv = CPAN::Meta::Validator->new( $converted ); 60 ok ( $cmv->is_valid, "down converted META is valid" ) 61 or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) 62# . "\nMETA:\n" . Dumper($converted) 63 ); 64 } 65 # DOWNCONVERSION 66 if ( $original_v gt '1.0' ) { 67 my $cmc = CPAN::Meta::Converter->new( $original ); 68 my $converted = $cmc->convert( version => '1.0' ); 69 is ( _spec_version($converted), '1.0', "down converted spec version $original_v to spec version 1.0"); 70 my $cmv = CPAN::Meta::Validator->new( $converted ); 71 ok ( $cmv->is_valid, "down converted META is valid" ) 72 or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) 73# . "\nMETA:\n" . Dumper($converted) 74 ); 75 } 76} 77 78done_testing; 79# vim: ts=2 sts=2 sw=2 et : 80