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