#!perl
# Self-compliance tests
use
strict;
use
warnings;
# Note: "use PolicyFactory" *must* appear after "use TestUtils" for the
# -extra-test-policies option to work.
'-test'
=> 1,
);
use
Test::More;
our
$VERSION
=
'1.152'
;
Perl::Critic::TestUtils::assert_version(
$VERSION
);
#-----------------------------------------------------------------------------
eval
'use Test::Perl::Critic; 1;'
or plan
skip_all
=>
'Test::Perl::Critic required to test Perl::Critic itself'
;
#-----------------------------------------------------------------------------
# Set up PPI caching for speed (used primarily during development)
if
(
$ENV
{PERL_CRITIC_CACHE} ) {
my
$cache_path
=
File::Spec->catdir(
File::Spec->tmpdir,
"test-perl-critic-cache-$ENV{USER}"
,
);
if
( ! -d
$cache_path
) {
mkdir
$cache_path
,
oct
700;
}
PPI::Cache->
import
(
path
=>
$cache_path
);
}
#-----------------------------------------------------------------------------
# Run critic against all of our own files
my
$rcfile
= File::Spec->catfile(
'xt'
,
'42_perlcriticrc-tests'
);
Test::Perl::Critic->
import
(
-profile
=>
$rcfile
);
all_critic_ok(
glob
(
't/*.t'
),
glob
(
'xt/*.t'
),
);
#-----------------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :