ヤミRoot VoidGate

Viewing: kwalitee.t

use strict;
use warnings;
use Test::More;
BEGIN {
    plan skip_all => 'these tests are for release candidate testing'
        unless $ENV{RELEASE_TESTING};
}

use CPAN::Meta;
use Test::Kwalitee 'kwalitee_ok';

my ($meta_file) = grep -e, qw(MYMETA.json MYMETA.yml META.json META.yml)
  or die "unable to find MYMETA or META file!";

my $meta = CPAN::Meta->load_file($meta_file)->as_struct;
my @ignore = keys %{$meta->{x_cpants}{ignore}};

kwalitee_ok(map "-$_", @ignore);
done_testing;

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64