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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
use strict;
use warnings;
use Test::More;
if ($ENV{RUN_MAINTAINER_TESTS}) {
plan 'tests' => 3;
} else {
plan 'skip_all' => 'Module maintainer tests';
}
SKIP: {
eval 'use Test::Pod 1.26';
skip('Test::Pod 1.26 required for testing POD', 1) if $@;
pod_file_ok('shared.pm');
}
SKIP: {
eval 'use Test::Pod::Coverage 1.08';
skip('Test::Pod::Coverage 1.08 required for testing POD coverage', 1) if $@;
pod_coverage_ok('threads::shared',
{
'trustme' => [
],
'private' => [
qr/^import$/,
]
}
);
}
SKIP: {
eval "use Test::Spelling";
skip("Test::Spelling required for testing POD spelling", 1) if $@;
if (system('aspell help >/dev/null 2>&1')) {
skip("'aspell' required for testing POD spelling", 1);
}
set_spell_cmd('aspell list --lang=en');
add_stopwords(<DATA>);
pod_file_spelling_ok('shared.pm', 'shared.pm spelling');
unlink("/home/$ENV{'USER'}/en.prepl", "/home/$ENV{'USER'}/en.pws");
}
exit(0);
__DATA__
Hedden
cpan
CONDVAR
LOCKVAR
refcnt
__END__
|
