Commit | Line | Data |
---|---|---|
1479465f GJ |
1 | #!/usr/bin/perl |
2 | # | |
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. | |
7 | # | |
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. | |
12 | # | |
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/>. | |
15 | ||
16 | use strict; | |
17 | use warnings; | |
18 | ||
19 | use Test::More; | |
20 | use Test::Dpkg qw(:needs); | |
21 | ||
22 | test_needs_author(); | |
23 | test_needs_module('Test::Spelling'); | |
24 | test_needs_command('aspell'); | |
25 | ||
26 | if (qx(aspell dicts) !~ m/en_US/) { | |
27 | plan skip_all => 'aspell en_US dictionary required for spell checking POD'; | |
28 | } | |
29 | ||
30 | test_needs_srcdir_switch(); | |
31 | ||
32 | my @files = Test::Dpkg::all_perl_files(); | |
33 | ||
34 | plan tests => scalar @files; | |
35 | ||
36 | set_spell_cmd('aspell list --encoding UTF-8 -l en_US -p /dev/null'); | |
37 | add_stopwords(<DATA>); | |
38 | ||
39 | for my $file (@files) { | |
40 | pod_file_spelling_ok($file); | |
41 | } | |
42 | ||
43 | __DATA__ | |
44 | CVS | |
45 | DSC | |
46 | Dpkg | |
47 | IPC | |
48 | ORed | |
49 | OpenPGP | |
50 | XDG | |
51 | archqual | |
52 | buildinfo | |
53 | bzip2 | |
54 | canonicalized | |
55 | checksum | |
56 | checksums | |
57 | cmdline | |
58 | debian | |
59 | decompressor | |
60 | dep | |
61 | deps | |
62 | dpkg | |
63 | dpkg-buildflags | |
64 | dpkg-checkbuilddeps | |
65 | dpkg-dev | |
66 | dpkg-genbuildinfo | |
67 | dpkg-gencontrol | |
68 | dpkg-parsechangelog | |
69 | dsc | |
70 | dup'ed | |
71 | env | |
72 | envvar | |
73 | fieldnames | |
74 | ge | |
75 | gettext | |
76 | getters | |
77 | hurd | |
78 | keyrings | |
79 | le | |
80 | lzma | |
81 | multiarch | |
82 | nocheck | |
83 | qa | |
84 | reportfile | |
85 | rfc822 | |
86 | sig | |
87 | substvar | |
88 | substvars | |
89 | unparsed | |
90 | update-buildflags | |
91 | xz |