t/run/todo.t: Skip -DDEBUGGING tests unless Configured

Author: khwilliamson

t/run/todo.t

@@ -6,6 +6,7 @@ BEGIN {
     require './charset_tools.pl';
     require './loc_tools.pl';
 }
+
 use Config;
 
 use strict;
@@ -27,6 +28,9 @@ use warnings;
 
 my $switches = "";
 
+my $is_debugging_build = $Config{cppflags} =~ /-DDEBUGGING/;
+
+
 {   # Fixed by acababb42be12ff2986b73c1bfa963b70bb5d54e
     "abab" =~ /(?:[^b]*(?=(b)|(a))ab)*/;
     is($1, undef, "GH #16894");
@@ -60,13 +64,15 @@ TODO: {
 }
 
 TODO: {
+    todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
     local $::TODO = 'GH 16876';
     fresh_perl('$_ = "a"; s{ x | (?{ s{}{x} }) }{}gx;',
                { stderr => 'devnull' });
     is($?, 0, "No assertion failure");
 }
 
 TODO: {
+    todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
     local $::TODO = 'GH 16952';
     fresh_perl('s/d|(?{})!//.$&>0for$0,l..a0,0..0',
                { stderr => 'devnull' });