Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

use strict;
eval q{ use Test::Spelling };
plan skip_all => "Test::Spelling is not installed." if $@;
add_stopwords(map { split /[\s\:\-]/ } <DATA>);
$ENV{LANG} = 'C';
my $spell_cmd;
foreach my $path (split(/:/, $ENV{PATH})) {
-x "$path/spell" and $spell_cmd = "spell", last;
-x "$path/ispell" and $spell_cmd = "ispell -l", last;
-x "$path/aspell" and $spell_cmd = "aspell list", last;
}
plan skip_all => "no spell/ispell/aspell" unless $spell_cmd;
set_spell_cmd($spell_cmd);
all_pod_files_spelling_ok('lib');
__DATA__
ATAT
Tasuku SUENAGA
gunyarakun
ARMs
Ascii
SHA
cryptographic
urlsafe