update release tests and diagnostic
This commit is contained in:
10
t/00_diag.t
10
t/00_diag.t
@@ -11,10 +11,12 @@ BEGIN {
|
|||||||
} || die $@;
|
} || die $@;
|
||||||
do {
|
do {
|
||||||
my $fh;
|
my $fh;
|
||||||
open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'));
|
if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')))
|
||||||
@modules = <$fh>;
|
{
|
||||||
close $fh;
|
@modules = <$fh>;
|
||||||
chomp @modules;
|
close $fh;
|
||||||
|
chomp @modules;
|
||||||
|
}
|
||||||
};
|
};
|
||||||
eval qq{ require $_ } for @modules;
|
eval qq{ require $_ } for @modules;
|
||||||
};
|
};
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use warnings;
|
|||||||
use Test::More;
|
use Test::More;
|
||||||
BEGIN {
|
BEGIN {
|
||||||
plan skip_all => 'test requires Test::Fixme'
|
plan skip_all => 'test requires Test::Fixme'
|
||||||
unless eval q{ use Test::Fixme; 1 };
|
unless eval q{ use Test::Fixme 0.14; 1 };
|
||||||
};
|
};
|
||||||
use Test::Fixme 0.07;
|
use Test::Fixme 0.07;
|
||||||
use FindBin;
|
use FindBin;
|
||||||
@@ -14,5 +14,6 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
|||||||
run_tests(
|
run_tests(
|
||||||
match => qr/FIXME/,
|
match => qr/FIXME/,
|
||||||
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
|
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
|
||||||
|
warn => 1,
|
||||||
);
|
);
|
||||||
|
|
||||||
|
|||||||
@@ -27,6 +27,9 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
|||||||
my @private_classes;
|
my @private_classes;
|
||||||
my %private_methods;
|
my %private_methods;
|
||||||
|
|
||||||
|
push @{ $config->{pod_coverage}->{private} },
|
||||||
|
'Alien::.*::Install::Files#Inline';
|
||||||
|
|
||||||
foreach my $private (@{ $config->{pod_coverage}->{private} })
|
foreach my $private (@{ $config->{pod_coverage}->{private} })
|
||||||
{
|
{
|
||||||
my($class,$method) = split /#/, $private;
|
my($class,$method) = split /#/, $private;
|
||||||
|
|||||||
@@ -4,11 +4,23 @@ use Test::More;
|
|||||||
BEGIN {
|
BEGIN {
|
||||||
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
|
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
|
||||||
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
|
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
|
||||||
|
plan skip_all => 'test requires YAML'
|
||||||
|
unless eval q{ use YAML qw( LoadFile ); 1 };
|
||||||
};
|
};
|
||||||
use Test::Pod::Spelling::CommonMistakes;
|
use Test::Pod::Spelling::CommonMistakes;
|
||||||
use FindBin;
|
use FindBin;
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
|
|
||||||
|
my $config_filename = File::Spec->catfile(
|
||||||
|
$FindBin::Bin, 'release.yml'
|
||||||
|
);
|
||||||
|
|
||||||
|
my $config;
|
||||||
|
$config = LoadFile($config_filename)
|
||||||
|
if -r $config_filename;
|
||||||
|
|
||||||
|
plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
|
||||||
|
|
||||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||||
|
|
||||||
# FIXME test files in bin too.
|
# FIXME test files in bin too.
|
||||||
|
|||||||
Reference in New Issue
Block a user