Run xt/ tests on non-plain installs
( cherry-pick of c26b30de and 554484cb )
FACEDESK: Module::Install::Makefile::tests_recursive() takes a single arg and
throws the rest away... I mean what the flying...
Peter Rabbitson
7 years ago
| 114 | 114 |
}
|
| 115 | 115 |
}
|
| 116 | 116 |
|
| 117 | |
tests_recursive (qw|
|
| 118 | |
t
|
| 119 | |
|);
|
|
117 |
tests_recursive ('t');
|
|
118 |
tests_recursive ('xt') if (
|
|
119 |
$Module::Install::AUTHOR
|
|
120 |
or
|
|
121 |
$ENV{DBICTEST_RUN_ALL_TESTS}
|
|
122 |
or
|
|
123 |
(
|
|
124 |
( $ENV{TRAVIS}||'' ) eq 'true'
|
|
125 |
and
|
|
126 |
($ENV{TRAVIS_REPO_SLUG}||'') =~ m|\w+/dbix-class$|
|
|
127 |
)
|
|
128 |
or
|
|
129 |
( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL5_CPANM_IS_RUNNING} and ! $ENV{RELEASE_TESTING} )
|
|
130 |
);
|
| 120 | 131 |
|
| 121 | 132 |
install_script (qw|
|
| 122 | 133 |
script/dbicadmin
|
| 342 | 342 |
or
|
| 343 | 343 |
DBICTest::RunMode->is_plain
|
| 344 | 344 |
) {
|
| 345 | |
for (qw(indirect multidimensional bareword::filehandles)) {
|
| 346 | |
exists $INC{ Module::Runtime::module_notional_filename($_) }
|
| 347 | |
and
|
| 348 | |
$tb->ok(0, "$_ load should not have been attempted!!!" )
|
|
345 |
for my $mod (qw(indirect multidimensional bareword::filehandles)) {
|
|
346 |
( my $fn = "$mod.pm" ) =~ s|::|/|g;
|
|
347 |
|
|
348 |
$tb->ok(0, "Load of '$mod' should not have been attempted!!!" )
|
|
349 |
if exists $INC{$fn};
|
| 349 | 350 |
}
|
| 350 | 351 |
}
|
| 351 | 352 |
}
|
| 115 | 115 |
},
|
| 116 | 116 |
|
| 117 | 117 |
'DBIx::Class::Admin::*' => { skip => 1 },
|
|
118 |
'DBIx::Class::Optional::Dependencies' => { skip => 1 },
|
| 118 | 119 |
'DBIx::Class::ClassResolver::PassThrough' => { skip => 1 },
|
| 119 | 120 |
'DBIx::Class::Componentised' => { skip => 1 },
|
| 120 | 121 |
'DBIx::Class::AccessorGroup' => { skip => 1 },
|
|
| 173 | 174 |
|
| 174 | 175 |
skip ("$module exempt", 1) if ($ex->{skip});
|
| 175 | 176 |
|
|
177 |
skip ("$module not loadable", 1) unless eval "require $module";
|
|
178 |
|
| 176 | 179 |
# build parms up from ignore list
|
| 177 | 180 |
my $parms = {};
|
| 178 | 181 |
$parms->{trustme} =
|