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
27
28
|
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/no-pod.pm', 'no pod has no errors') }, {
ok => 1,
name => 'no pod has no errors',
});
check_test(sub { pod_file_spelling_ok('t/corpus/good-pod.pm', 'good pod has no errors') }, {
ok => 1,
name => 'good pod has no errors',
});
check_test(sub { pod_file_spelling_ok('t/corpus/bad-pod.pm', 'bad pod has no errors') }, {
ok => 0,
name => 'bad pod has no errors',
diag => "Errors:\n incorectly",
});
done_testing;
|
