use strict; use Test::More; 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