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
|
use strict;
use warnings;
use Test::More;
plan skip_all => "set AUTHOR_MODE to enable this test (developer only!)" unless $ENV{AUTHOR_MODE};
plan skip_all => "File::Find not installed" unless eval { require File::Find };
plan skip_all => "Test::Pod::Spelling not installed" unless eval { require Test::Pod::Spelling };
plan skip_all => "Pod::Spelling::Ispell not installed" unless eval { require Pod::Spelling::Ispell };
plan skip_all => "Lingua::Ispell not installed" unless eval { require Lingua::Ispell };
Test::Pod::Spelling->import(
spelling => {
import_speller => 'Pod::Spelling::Ispell',
allow_words => [qw(
ASN AES BLAKEb BLAKEs CPAN CRC ChaCha CryptX DCIT DER Diffie EAX ECCDH ECDH ECDSA Flickr HKDF JSON JWA JWK
Karel Miko OCB OCBv OID OMAC OO OpenSSL PBKDF PEM PKCS RIPEMD Rijndael SHA UUID RFC
decrypt decrypts interoperability cryptographically cryptographic octects
libtomcrypt libtommath
params paramshash irand perl endian zbase bumac bmac budigest bdigest md de
blakes_ blakeb_
XOR'ing XOR'ed
keccak Ethereum recid
RC rand reseeding SSH CTR Poly CipherHash en aka
)]
},
);
plan tests => 109;
my @files;
File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
for my $m (sort @files) {
Test::Pod::Spelling::pod_file_spelling_ok( $m, "Spelling in '$m'" );
}
|
