| Line | |
|---|
| 1 | use Test::More; |
|---|
| 2 | use Test::Spelling; |
|---|
| 3 | $ENV{LANG} = 'C'; |
|---|
| 4 | |
|---|
| 5 | $ENV{TEST_SPELLING} or plan skip_all => "no test for spelling. you must set TEST_SPELLING env for activate this test"; |
|---|
| 6 | |
|---|
| 7 | my $spell_cmd; |
|---|
| 8 | foreach my $path (split(/:/, $ENV{PATH})) { |
|---|
| 9 | -x "$path/spell" and $spell_cmd="spell", last; |
|---|
| 10 | -x "$path/ispell" and $spell_cmd="ispell -l", last; |
|---|
| 11 | -x "$path/aspell" and $spell_cmd="aspell list", last; |
|---|
| 12 | } |
|---|
| 13 | $ENV{SPELL_CMD} and $spell_cmd = $ENV{SPELL_CMD}; |
|---|
| 14 | $spell_cmd or plan skip_all => "no spell/ispell/aspell"; |
|---|
| 15 | set_spell_cmd($spell_cmd); |
|---|
| 16 | |
|---|
| 17 | add_stopwords(<DATA>); |
|---|
| 18 | all_pod_files_spelling_ok(); |
|---|
| 19 | |
|---|
| 20 | __END__ |
|---|
| 21 | Tomohiro |
|---|
| 22 | Teranishi |
|---|
| 23 | Amano |
|---|
| 24 | ConfigLoader |
|---|
| 25 | Funakoshi |
|---|
| 26 | Masahiro |
|---|
| 27 | MyApp |
|---|
| 28 | Yu-suke |
|---|
| 29 | pm |
|---|
| 30 | ENV |
|---|
| 31 | MyApp.pm |
|---|