t/perlcritic.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/perl
# $Id: perlcritic.t 1530 2007-03-08 20:42:13Z guillomovitch $

use strict;
use warnings;
use Test::More;
use File::Basename;
use File::Spec;

if (!$ENV{TEST_AUTHOR}) {
    plan(
        skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'
    );
}

eval {
    require Test::Perl::Critic;
};

if ($@) {
    plan(
        skip_all => 'Test::Perl::Critic not installed, skipping'
    );
}

Test::Perl::Critic->import();
my $libdir = File::Spec->catdir(
    dirname($0),
    File::Spec->updir(),
    'lib'
);
all_critic_ok($libdir);