[dbsrgits/DBIx-Class.git] / maint / Makefile.PL.inc / 11_authortests.pl

require File::Spec;
require File::Find;

my $xt_dirs;
File::Find::find(sub {
  return if $xt_dirs->{$File::Find::dir};
  $xt_dirs->{$File::Find::dir} = 1 if (
    $_ =~ /\.t$/ and -f $_
  );
}, 'xt');

my $xt_tests = join (' ', map { File::Spec->catfile($_, '*.t') } sort keys %$xt_dirs );

# this will add the xt tests to the `make test` target among other things
Meta->tests(join (' ', map { $_ || () } Meta->tests, $xt_tests ) );

# inject an explicit xt test run for the create_distdir target
postamble <<"EOP";

create_distdir : test_xt

test_xt :
\tPERL_DL_NONLAZY=1 RELEASE_TESTING=1 \$(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness(\$(TEST_VERBOSE), 'inc', '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $xt_tests

EOP


# keep the Makefile.PL eval happy
1;
Commit	Line	Data
20884f55	1	require File::Spec;
	2	require File::Find;
	3
	4	my $xt_dirs;
	5	File::Find::find(sub {
	6	return if $xt_dirs->{$File::Find::dir};
	7	$xt_dirs->{$File::Find::dir} = 1 if (
	8	$_ =~ /\.t$/ and -f $_
	9	);
	10	}, 'xt');
	11
	12	my $xt_tests = join (' ', map { File::Spec->catfile($_, '*.t') } sort keys %$xt_dirs );
	13
	14	# this will add the xt tests to the `make test` target among other things
	15	Meta->tests(join (' ', map { $_ \|\| () } Meta->tests, $xt_tests ) );
	16
da89304f	17	# inject an explicit xt test run for the create_distdir target
20884f55	18	postamble <<"EOP";
20884f55	19
da89304f	20	create_distdir : test_xt
20884f55	21
	22	test_xt :
	23	\tPERL_DL_NONLAZY=1 RELEASE_TESTING=1 \$(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness(\$(TEST_VERBOSE), 'inc', '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $xt_tests
	24
	25	EOP
	26
fc4b0448	27
	28	# keep the Makefile.PL eval happy
	29	1;