Codebase list libpoe-component-sslify-perl / debian/0.14-1 t / a_critic.t
debian/0.14-1

Tree @debian/0.14-1 (Download .tar.gz)

a_critic.t @debian/0.14-1raw · history · blame

#!/usr/bin/perl

use Test::More;

# AUTHOR test
if ( not $ENV{TEST_AUTHOR} ) {
	plan skip_all => 'Author test. Sent $ENV{TEST_AUTHOR} to a true value to run.';
} else {
	if ( not $ENV{PERL_TEST_CRITIC} ) {
		plan skip_all => 'PerlCritic test. Sent $ENV{PERL_TEST_CRITIC} to a true value to run.';
	} else {
		# did we get a severity level?
		if ( length $ENV{PERL_TEST_CRITIC} > 1 ) {
			eval "use Test::Perl::Critic ( -severity => \"$ENV{PERL_TEST_CRITIC}\" );";
		} else {
			eval "use Test::Perl::Critic;";
			#eval "use Test::Perl::Critic ( -severity => 'stern' );";
		}

		if ( $@ ) {
			plan skip_all => 'Test::Perl::Critic required to criticise perl files';
		} else {
			all_critic_ok( 'lib/' );
		}
	}
}