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
63
64
65
66
67
68
69
|
use warnings;
use strict;
use Test::More;
use File::Find;
use File::Spec;
use Config;
use lib 't/lib';
use DBICTest;
unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_strictures') ) {
my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('test_strictures');
$ENV{RELEASE_TESTING}
? die ("Failed to load release-testing module requirements: $missing")
: plan skip_all => "Test needs: $missing"
}
use File::Find;
# The rationale is - if we can load all our optdeps
# that are related to lib/ - then we should be able to run
# perl -c checks (via syntax_ok), and all should just work
my $missing_groupdeps_present = grep
{ ! DBIx::Class::Optional::Dependencies->req_ok_for($_) }
grep
{ $_ !~ /^ (?: test | rdbms | dist ) _ /x }
keys %{DBIx::Class::Optional::Dependencies->req_group_list}
;
# don't test syntax when RT#106935 is triggered (mainly CI)
# FIXME - remove when RT is resolved
my $tainted_relpath = (
length $ENV{PATH}
and
${^TAINT}
and
grep
{ ! File::Spec->file_name_is_absolute($_) }
split /\Q$Config{path_sep}/, $ENV{PATH}
) ? 1 : 0;
find({
wanted => sub {
-f $_ or return;
m/\.(?: pm | pl | t )$ /ix or return;
return if m{^(?:
maint/Makefile.PL.inc/.+ # all the maint inc snippets are auto-strictured
|
t/lib/DBICTest/Util/OverrideRequire.pm # no stictures by design (load order sensitive)
)$}x;
my $f = $_;
Test::Strict::strict_ok($f);
Test::Strict::warnings_ok($f);
Test::Strict::syntax_ok($f) if (
! $tainted_relpath
and
! $missing_groupdeps_present
and
$f =~ /^ (?: lib )/x
);
},
no_chdir => 1,
}, (qw(lib t examples maint)) );
done_testing;
|
