Return to perlcritic.t CVS log

Up to [local] / todotxt / Text-Todo / t

Annotation of todotxt/Text-Todo/t/perlcritic.t, Revision 1.1.1.1

1.1       andrew      1: #!perl
                      2:
                      3: use strict;
                      4: use warnings;
                      5: use File::Spec;
                      6: use Test::More;
                      7: use English qw(-no_match_vars);
                      8:
                      9: if ( not $ENV{TEST_AUTHOR} ) {
                     10:     my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
                     11:     plan( skip_all => $msg );
                     12: }
                     13:
                     14: eval { require Test::Perl::Critic; };
                     15:
                     16: if ( $EVAL_ERROR ) {
                     17:     my $msg = 'Test::Perl::Critic required to criticise code';
                     18:     plan( skip_all => $msg );
                     19: }
                     20:
                     21: my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
                     22: Test::Perl::Critic->import( -profile => $rcfile );
                     23: all_critic_ok();