#!/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
eval { require Test::Spelling; Test::Spelling->import() };
# 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
Param
eg
Eg
ie
Arg
isa
xsd
XSD
XSDs
XMLSchema
WS
xml
XML
TagName
DateTime
WSDL
wsdl
ResolveIP
perly
STDOUT
URI
mech
ua
BaseClass
portType
simpleType
complexType
/);
all_pod_files_spelling_ok();