File Manager

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: validator.t

use strict;
use warnings;
use Test::More 0.88;

use CPAN::Meta;
use CPAN::Meta::Validator;
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-test t/data-valid );
  my @files = sort map {
        my $d = $_;
        map { "$d/$_" } grep { substr($_,0,1) ne '.' } IO::Dir->new($d)->read
  } @data_dirs;

for my $f ( @files ) {
    my $meta = Parse::CPAN::Meta->load_file( File::Spec->catfile($f) );
    my $cmv = CPAN::Meta::Validator->new({%$meta});
    ok( $cmv->is_valid, "$f validates" )
      or diag( "ERRORS:\n" . join( "\n", $cmv->errors ) );
  }
}

{
  my @data_dirs = qw( t/data-fail t/data-fixable );
  my @files = sort map {
        my $d = $_;
        map { "$d/$_" } grep { substr($_,0,1) ne '.' } IO::Dir->new($d)->read
  } @data_dirs;

for my $f ( @files ) {
    my $meta = Parse::CPAN::Meta->load_file( File::Spec->catfile($f) );
    my $cmv = CPAN::Meta::Validator->new({%$meta});
    ok( ! $cmv->is_valid, "$f shouldn't validate" );
    note 'validation error: ', $_ foreach $cmv->errors;
  }
}

done_testing;
# vim: ts=2 sts=2 sw=2 et :

X7ROOT File Manager

Editing: validator.t

Upload File

Create Folder