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
57
58
59
60
61
62
|
use strict;
use warnings;
use English qw(-no_match_vars);
use Test::More;
if ( not $ENV{TEST_AUTHOR} ) {
my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.';
plan( skip_all => $msg );
}
eval { require Test::Spelling; };
if ( $EVAL_ERROR ) {
my $msg = 'Test::Spelling required to criticise code';
plan( skip_all => $msg );
}
Test::Spelling::add_stopwords(qw( JSON
CPAN
Bamber
com
javascript
AllMyBrain
CGI
com's
github
YUI
AnnoCPAN
RT
API
SQL
DBI
username
usernames
CALLBACKS
CALLBACKS
HTML
LDAP
RUNMODES
TODO
URL
CAPAUTHTOKEN
webserver
Hardcode
hardcode
everytime
initialize
authen
customizations
runmode
runmodes
prerun
pre
callback
callbacks
checkbox
desaturating
writeable
detaint
URLs));
Test::Spelling::all_pod_files_spelling_ok();
|
