update release tests and diagnostic

This commit is contained in:
Graham Ollis
2014-12-20 10:15:34 -05:00
parent 6dfa5560a8
commit c6276a8d78
4 changed files with 23 additions and 5 deletions

View File

@@ -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>; @modules = <$fh>;
close $fh; close $fh;
chomp @modules; chomp @modules;
}
}; };
eval qq{ require $_ } for @modules; eval qq{ require $_ } for @modules;
}; };

View File

@@ -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,
); );

View File

@@ -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;

View File

@@ -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.