1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use Test::Tester;
use Test::More;
use Test::Spelling;
BEGIN {
if (!has_working_spellchecker()) {
plan skip_all => "no working spellchecker found";
}
}
check_test(sub { pod_file_spelling_ok('t/corpus/stopword.pm', 'stopword pod file') }, {
ok => 0,
name => 'stopword pod file',
diag => "Errors:\n xzaue",
});
add_stopwords('xzaue');
check_test(sub { pod_file_spelling_ok('t/corpus/stopword.pm', 'stopword pod file') }, {
ok => 1,
name => 'stopword pod file',
});
done_testing;
|
