view release on metacpan or  search on metacpan

t/99.02.perl-critic.t  view on Meta::CPAN

#!/usr/bin/perl
# $Id: 99.02.perl-critic.t,v 1.1 2006/12/21 23:05:24 altblue Exp $
use strict;
use warnings;
our $VERSION = sprintf '0.%d.%d', '\$Revision: 1.1 $' =~ /(\d+)\.(\d+)/xm;
use Test::More;
use English qw( -no_match_vars );

if ( $ENV{TEST_FAST} ) {
    plan skip_all => 'Fast tests only';
}

if ( getpwuid($UID) ne 'diablo' ) {
    plan skip_all => q{It's author's job to check his code quality'};
}

eval { require Test::Perl::Critic };
if ($EVAL_ERROR) {
    plan skip_all => 'Test::Perl::Critic is required for testing code';
}
Test::Perl::Critic->import( -profile => 't/perlcriticrc' );

all_critic_ok();