t/70_critic.t

   1 use strict;
   2 use warnings;
   3 use File::Spec;
   4 use Test::More;
   5
   6 eval { require Test::Perl::Critic; };
   7
   8 if ( $@ ) {
   9     my $msg = 'Test::Perl::Critic required to criticise code';
  10     plan( skip_all => $msg );
  11 }
  12
  13 unless ($ENV{AUTHOR_TEST}) {
  14     my $msg = 'Test::Perl::Critic only run when AUTHOR_TEST set';
  15     plan( skip_all => $msg );
  16 }
  17
  18 my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
  19 Test::Perl::Critic->import( -profile => $rcfile );
  20 all_critic_ok();
  21
  22
  23
  24 # Local Variables:
  25 # mode: cperl
  26 # cperl-indent-level: 4
  27 # End: