view release on metacpan or  search on metacpan

t/99.00.pod.t  view on Meta::CPAN

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 POD tidiness'};
}

eval { require Test::Pod };
if ($EVAL_ERROR) {
    plan skip_all => 'Test::Pod is required for testing POD';
}
Test::Pod->import;

all_pod_files_ok();

t/99.01.pod-coverage.t  view on Meta::CPAN

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 POD coverage'};
}

eval { require Test::Pod::Coverage };
if ($EVAL_ERROR) {
    plan skip_all =>
        'Test::Pod::Coverage is required for testing POD coverage';
}
Test::Pod::Coverage->import;

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

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();