#!/usr/bin/perl -T
# t/97pod.t
# Checks that POD commands are correct
#
# $Id: 97pod.t 8620 2009-08-18 04:36:27Z FREQUENCY@cpan.org $
use
strict;
use
warnings;
use
Test::More;
unless
(
$ENV
{AUTOMATED_TESTING} or
$ENV
{RELEASE_TESTING}) {
plan
skip_all
=>
'Author tests not required for installation'
;
}
my
%MODULES
= (
'Test::Pod'
=> 1.26,
'Pod::Simple'
=> 3.07,
);
# Module::CPANTS::Kwalitee won't detect that we're using test modules as
# author tests, so we convince it that we're loading it in the normal way.
while
(
my
(
$module
,
$version
) =
each
%MODULES
) {
eval
"use $module $version"
;
next
unless
$@;
if
(
$ENV
{RELEASE_TESTING}) {
die
'Could not load release-testing module '
.
$module
;
}
else
{
plan
skip_all
=>
$module
.
' not available for testing'
;
}
}
all_pod_files_ok();