use strict; use Test::More; eval q{ use Test::Spelling }; plan skip_all => "Test::Spelling is not installed." if $@; add_stopwords(map { split /[\s\:\-]/ } ); $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','bin'); __DATA__ Masahiro Nagano App::derived kazeburo KZBRKZBR GMAIL COM Tatsuhiko Miyagawa Kazuhiro Osawa lestrrat typester cho45 charsbar coji clouder gunyarakun hio_d hirose31 ikebe kan kazeburo daisuke maki TODO API URL URI db TTerse irc org CSS Amon Tokuhiro Matsuno Svn svn diff Gosuke Miyashita mysqldiff mmm JSON memcached CmdsFile pm GrowthForecast persec plugins init hostname ipaddress uri