3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <https://www.gnu.org/licenses/>.
20 use Test::Dpkg qw(:needs);
23 test_needs_module('Test::Spelling');
24 test_needs_command('aspell');
26 if (qx(aspell dicts) !~ m/en_US/) {
27 plan skip_all => 'aspell en_US dictionary required for spell checking POD';
30 test_needs_srcdir_switch();
32 my @files = Test::Dpkg::all_perl_files();
34 plan tests => scalar @files;
36 set_spell_cmd('aspell list --encoding UTF-8 -l en_US -p /dev/null');
37 add_stopwords(<DATA>);
39 for my $file (@files) {
40 pod_file_spelling_ok($file);