git.maemo.org Git - pkg-perl/blob - deb-src/libtest-perl-critic-perl/libtest-perl-critic-perl-1.01/t/96_perlcritic.t

   1 ###############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/tags/Test-Perl-Critic-1.01/t/96_perlcritic.t $
   3 #     $Date: 2007-01-24 22:22:10 -0800 (Wed, 24 Jan 2007) $
   4 #   $Author: thaljef $
   5 # $Revision: 1183 $
   6 ###############################################################################
   7
   8 use strict;
   9 use warnings;
  10 use File::Spec;
  11 use Test::More;
  12 use English qw(-no_match_vars);
  13
  14 #-----------------------------------------------------------------------------
  15
  16 if ( not $ENV{TEST_AUTHOR} ) {
  17     my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
  18     plan( skip_all => $msg );
  19 }
  20
  21 eval { require Test::Perl::Critic; };
  22
  23 if ( $EVAL_ERROR ) {
  24    my $msg = 'Test::Perl::Critic required to criticise code';
  25    plan( skip_all => $msg );
  26 }
  27
  28 #-----------------------------------------------------------------------------
  29
  30 my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
  31 Test::Perl::Critic->import( -profile => $rcfile );
  32 all_critic_ok();