#!/usr/bin/perl
use
strict;
use
warnings;
use
Test::More;
if
( not
$ENV
{TEST_AUTHOR} ) {
my
$msg
=
'Author test. Set TEST_AUTHOR environment variable to a true value to run.'
;
plan(
skip_all
=>
$msg
);
}
# check that Test::Spelling is installed
# now check that the spell command is installed
my
$found
;
for
my
$dir
(
split
/:/,
$ENV
{PATH} ) {
next
if
!-d
$dir
;
next
if
!-x
"$dir/spell"
;
$found
= 1;
last
;
}
plan
skip_all
=>
"Test::Spelling required for testing POD spelling"
if
$@;
plan
skip_all
=>
"spell command required for testing POD spelling"
if
!
$found
;
add_stopwords(
qw/
NSW
Hornsby
TODO
TODOs
md
/
);
all_pod_files_spelling_ok();