Blame t/release-pod-linkcheck.t
|
Packit |
9002b2 |
#!perl
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
BEGIN {
|
|
Packit |
9002b2 |
unless ($ENV{RELEASE_TESTING}) {
|
|
Packit |
9002b2 |
require Test::More;
|
|
Packit |
9002b2 |
Test::More::plan(skip_all => 'these tests are for release candidate testing');
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
use strict;
|
|
Packit |
9002b2 |
use warnings;
|
|
Packit |
9002b2 |
use Test::More;
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
foreach my $env_skip ( qw(
|
|
Packit |
9002b2 |
SKIP_POD_LINKCHECK
|
|
Packit |
9002b2 |
) ){
|
|
Packit |
9002b2 |
plan skip_all => "\$ENV{$env_skip} is set, skipping"
|
|
Packit |
9002b2 |
if $ENV{$env_skip};
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
eval "use Test::Pod::LinkCheck";
|
|
Packit |
9002b2 |
if ( $@ ) {
|
|
Packit |
9002b2 |
plan skip_all => 'Test::Pod::LinkCheck required for testing POD';
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
else {
|
|
Packit |
9002b2 |
Test::Pod::LinkCheck->new->all_pod_ok;
|
|
Packit |
9002b2 |
}
|