From d4fa19e3c491e8234156c7ad8b6f855b3b83a717 Mon Sep 17 00:00:00 2001 From: David Cantrell Date: Sun, 26 Mar 2023 18:15:12 +0100 Subject: [PATCH] Skip taint tests when -DSILENT_NO_TAINT_SUPPORT is enabled. This should be reverted before merge, as Test-Harness is dual-life CPAN-first --- cpan/Test-Harness/t/compat/test-harness-compat.t | 4 +++- cpan/Test-Harness/t/regression.t | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/cpan/Test-Harness/t/compat/test-harness-compat.t b/cpan/Test-Harness/t/compat/test-harness-compat.t index 14309163ed5d..4391a1a84b53 100644 --- a/cpan/Test-Harness/t/compat/test-harness-compat.t +++ b/cpan/Test-Harness/t/compat/test-harness-compat.t @@ -18,7 +18,9 @@ use Test::Harness qw(execute_tests); local $ENV{HARNESS_PERL_SWITCHES}; my $TEST_DIR = 't/sample-tests'; -my $NoTaintSupport = exists($Config{taint_support}) && !$Config{taint_support}; +my $NoTaintSupport = + (exists($Config{taint_support}) && !$Config{taint_support}) || + $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/; my @test_list = qw(descriptive die die_head_end die_last_minute duplicates head_end head_fail inc_taint junk_before_plan lone_not_bug diff --git a/cpan/Test-Harness/t/regression.t b/cpan/Test-Harness/t/regression.t index e67bb6a09e21..7d9a4b0f6d13 100644 --- a/cpan/Test-Harness/t/regression.t +++ b/cpan/Test-Harness/t/regression.t @@ -22,7 +22,9 @@ use TAP::Parser; my $IsVMS = $^O eq 'VMS'; my $IsWin32 = $^O eq 'MSWin32'; -my $NoTaintSupport = exists($Config{taint_support}) && !$Config{taint_support}; +my $NoTaintSupport = + (exists($Config{taint_support}) && !$Config{taint_support}) || + $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/; my $SAMPLE_TESTS = File::Spec->catdir( File::Spec->curdir,