t/perlcritic.pl

#!/usr/bin/perl

use lib '.'; use lib 't';
use SATest; sa_t_init('perlcritic');

use strict;
use warnings;
use Test::More;
use English qw(-no_match_vars);

plan skip_all => "This test requires Test::Perl::Critic" unless (eval { require Test::Perl::Critic; 1} );
plan skip_all => "PerlCritic test cannot run in Taint mode" if (${^TAINT});

# An exclude entry does not cause a problem if a module it lists is not installed, as it just says to ignore it if it is
# An explicit section for a module, which is needed for allow entries, will die if the module is not found, so
# the modules not bundled with Perl::Critic are included in the configuration file conditionally.

# we should remove some of these excludes/allows if/when we feel like fixing 'em!

my $criticoptions = q{
  severity = 5
  verbose = 9
  exclude = ValuesAndExpressions::ProhibitLeadingZeros InputOutput::ProhibitBarewordDirHandles InputOutput::ProhibitBarewordFileHandles InputOutput::ProhibitTwoArgOpen BuiltinFunctions::ProhibitStringyEval InputOutput::ProhibitInteractiveTest Bangs::ProhibitBitwiseOperators Bangs::ProhibitDebuggingModules Compatibility::ProhibitThreeArgumentOpen Lax::ProhibitStringyEval::ExceptForRequire Lax::ProhibitLeadingZeros::ExceptChmod ValuesAndExpressions::PreventSQLInjection ControlStructures::ProhibitReturnInDoBlock ValuesAndExpressions::ProhibitAccessOfPrivateData Policy::OTRS::

  [TestingAndDebugging::ProhibitNoStrict]
  allow = refs
};

# Conditionally add allow exceptions for Policy modules that are not bundled with Perl::Critic itself

$criticoptions .= q{

  [Perlsecret]
  allow_secrets = Venus
} if (eval { require Perl::Critic::Policy::Perlsecret; 1} );

open RC, ">../t/log/perlcritic.rc"  or die "cannot create t/log/perlcritic.rc";
print RC $criticoptions or die "cannot write t/log/perlcritic.rc";
close RC  or die "cannot close t/log/perlcritic.rc";

Test::Perl::Critic->import( -profile => "../t/log/perlcritic.rc" );
all_critic_ok("../blib");