diff --git a/t/run/todo.t b/t/run/todo.t index 24f4796b8ab8..5aed91aacdcf 100644 --- a/t/run/todo.t +++ b/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,6 +64,7 @@ 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' }); @@ -67,6 +72,7 @@ TODO: { } 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' });