summaryrefslogtreecommitdiff
path: root/t/99_perl_critic.t
diff options
context:
space:
mode:
Diffstat (limited to 't/99_perl_critic.t')
-rw-r--r--t/99_perl_critic.t21
1 files changed, 21 insertions, 0 deletions
diff --git a/t/99_perl_critic.t b/t/99_perl_critic.t
new file mode 100644
index 0000000..c7b6b61
--- /dev/null
+++ b/t/99_perl_critic.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use File::Spec;
+use Test::More;
+use English qw(-no_match_vars);
+
+if ( not $ENV{TEST_AUTHOR} ) {
+ my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.';
+ plan( skip_all => $msg );
+}
+
+eval { require Test::Perl::Critic; };
+
+if ( $EVAL_ERROR ) {
+ my $msg = 'Test::Perl::Critic required to criticise code';
+ plan( skip_all => $msg );
+}
+
+my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
+Test::Perl::Critic->import( -profile => $rcfile );
+all_critic_ok(); \ No newline at end of file