1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# -*- perl -*-
use strict;
use Test::More;
plan skip_all => 'This test is only run for the module author'
unless -d '.git' || $ENV{AUTHOR_TESTING};
eval "use Pod::Spell::CommonMistakes;";
plan skip_all => "Pod::Spell::CommonMistakes required"
if $@;
plan tests => 3;
for my $f (qw(XS.pm XS/Boolean.pm bin/cpanel_json_xs)) {
my $r = Pod::Spell::CommonMistakes::check_pod($f);
if ( keys %$r == 0 ) {
ok(1, "$f");
} else {
ok(0, "$f");
foreach my $k ( keys %$r ) {
diag " Found: '$k' - Possible spelling: '$r->{$k}'?";
}
}
}
|
