File: pod_spell.t

package info (click to toggle)
libobject-container-perl 0.16-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 220 kB
  • sloc: perl: 221; makefile: 5
file content (28 lines) | stat: -r--r--r-- 485 bytes parent folder | download | duplicates (3) 
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::More;
eval q{ use Test::Spelling };

plan skip_all => "Test::Spelling is not installed." if $@;
add_stopwords(<DATA>);
set_spell_cmd("aspell -l en list");

my %ignore_files = (
    'lib/Object/Container/ja.pod' => 1,
);
my @pods = all_pod_files('lib');

plan tests => scalar @pods;

foreach my $pod(@pods){
    if(!$ignore_files{$pod}){
        pod_file_spelling_ok($pod);
    }
    else{
        pass "IGNORE: POD spelling for $pod";
    }
}
__DATA__
Daisuke
Murase
KAYAC