| Server IP : 88.99.149.37 / Your IP : 216.73.216.141 Web Server : nginx/1.31.2 System : Linux server-88-99-149-37 6.12.0-124.56.5.el10_1.x86_64 #1 SMP PREEMPT_DYNAMIC Fri May 15 06:12:08 EDT 2026 x86_64 User : muralimurth ( 1015) PHP Version : 8.4.23 Disable Function : exec,system,passthru,shell_exec,proc_close,proc_open,dl,popen,show_source,posix_kill,posix_mkfifo,posix_getpwuid,posix_setpgid,posix_setsid,posix_setuid,posix_setgid,posix_seteuid,posix_setegid,posix_uname MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-CPAN-Meta/t/ |
Upload File : |
#!/usr/bin/perl
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_dir = IO::Dir->new( 't/data-fail' );
my @files = sort grep { /^\w/ } $data_dir->read;
*_spec_version = \&CPAN::Meta::Converter::_extract_spec_version;
use Data::Dumper;
for my $f ( reverse sort @files ) {
my $path = File::Spec->catfile('t','data-fail',$f);
my $original = Parse::CPAN::Meta->load_file( $path );
ok( $original, "loaded invalid $f" );
my $original_v = _spec_version($original);
# UPCONVERSION
if ( $original_v lt '2' ) {
my $cmc = CPAN::Meta::Converter->new( $original );
my $fixed = eval { $cmc->convert( version => 2 ) };
ok ( $@, "error thrown up converting" );
}
# DOWNCONVERSION
if ( $original_v gt '1.0' ) {
my $cmc = CPAN::Meta::Converter->new( $original );
my $fixed = eval { $cmc->convert( version => '1.0' ) };
ok ( $@, "error thrown down converting" );
}
}
done_testing;
# vim: ts=2 sts=2 sw=2 et :