#!perl
# Test that modules pass perlcritic and perltidy.
use strict;
BEGIN {
BAIL_OUT ('Perl version unacceptably old.') if ($] < 5.008001);
use English qw(-no_match_vars);
$OUTPUT_AUTOFLUSH = 1;
$WARNING = 1;
}
my @MODULES = (
'Perl::Tidy',
'Perl::Critic',
'Perl::Critic::Utils::Constants',
'Perl::Critic::More',
'Test::Perl::Critic',
);
# Don't run tests for installs
use Test::More;
unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
# Load the testing modules
foreach my $MODULE ( @MODULES ) {
eval "require $MODULE"; # Has to be require because we pass options to import.
if ( $EVAL_ERROR ) {
$ENV{RELEASE_TESTING}
? BAIL_OUT( "Failed to load required release-testing module $MODULE" )
: plan( skip_all => "$MODULE not available for testing" );
}
}
if ( 1.099_001 > eval { $Perl::Critic::VERSION } ) {
plan( skip_all => "Perl::Critic needs updated to 1.099_001" );
}
use File::Spec::Functions qw(catfile);
Perl::Critic::Utils::Constants->import(':profile_strictness');
my $dummy = $Perl::Critic::Utils::Constants::PROFILE_STRICTNESS_QUIET;
local $ENV{PERLTIDY} = catfile( 't', 'settings', 'perltidy.txt' );
my $rcfile = catfile( 't', 'settings', 'perlcritic.txt' );
Test::Perl::Critic->import(
-profile => $rcfile,
-severity => 1,
-profile-strictness => $Perl::Critic::Utils::Constants::PROFILE_STRICTNESS_QUIET
);
all_critic_ok();