Skip taint tests when -DSILENT_NO_TAINT_SUPPORT is enabled.

This should be reverted before merge, as Test-Harness is dual-life CPAN-first
Perl · Mar 26, 2023 · d4fa19e · d4fa19e
1 parent bca1c72
commit d4fa19e
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git 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
@@ -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,