6 return if $xt_dirs->{$File::Find::dir};
7 $xt_dirs->{$File::Find::dir} = 1 if (
12 my @xt_tests = map { File::Spec->catfile($_, '*.t') } sort keys %$xt_dirs;
14 # this will add the xt tests to the `make test` target among other things
15 Meta->tests(join (' ', map { $_ || () } @xt_tests, Meta->tests ) );
17 # inject an explicit xt test run, mainly to check the contents of
18 # lib and the generated POD's *before* anything is copied around
20 # at the end rerun the whitespace test in the distdir, to make sure everything
24 dbic_clonedir_copy_generated_pod : test_xt
28 # When xt tests are explicitly requested, we want to run with RELEASE_TESTING=1
29 # so that all optdeps are turned into a hard failure
30 # However portably modifying ENV for a single command is surprisingly hard
31 # So instead we (ab)use perl's ability to stack -e options, and simply modify
32 # the ENV from within perl itself
33 $mm_proto->test_via_harness(
37 map { $mm_proto->quote_literal($_) } qw(-e $ENV{RELEASE_TESTING}=1;$ENV{DBICTEST_NO_MAKEFILE_VERIFICATION}=1;)
41 map { $mm_proto->quote_literal($_) } @xt_tests
46 create_distdir : dbic_distdir_retest_whitespace
48 dbic_distdir_retest_whitespace :
52 $mm_proto->test_via_harness(
56 map { $mm_proto->quote_literal($_) } qw(-Ilib -e $ENV{RELEASE_TESTING}=1;$ENV{DBICTEST_NO_MAKEFILE_VERIFICATION}=1;)
65 # keep the Makefile.PL eval happy