Return to critic.t CVS log | Up to [local] / palm / Palm-Keyring / t |
File: [local] / palm / Palm-Keyring / t / critic.t (download)
Revision 1.1, Thu Dec 6 03:56:06 2007 UTC (16 years, 9 months ago) by andrew
w00 h00! Perl Critic! |
#!perl -T # $RedRiver$ 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();