spelling.t   [plain text]

use Test::More;
use IO::File;

my $min_tps = 0.11;
eval "use Test::Spelling $min_tps";
plan skip_all => "Test::Spelling $min_tps required for testing POD" if $@;
system( "ispell -v" ) and plan skip_all => "No ispell";

set_spell_cmd( "ispell -l" );

my $swf = IO::File->new('xt/stopwords.txt');
my @stopwords = grep { length } map { chomp; $_ } <$swf>;
add_stopwords( @stopwords );

all_pod_files_spelling_ok();