diff --git a/t/re/pat.t b/t/re/pat.t index c5319aff7f2f..eae5bd861104 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -28,7 +28,7 @@ skip_all_without_unicode_tables(); my $has_locales = locales_enabled('LC_CTYPE'); my $utf8_locale = find_utf8_ctype_locale(); -plan tests => 1298; # Update this when adding/deleting tests. +plan tests => 1299; # Update this when adding/deleting tests. run_tests() unless caller; @@ -2627,6 +2627,14 @@ SKIP: } + { + fresh_perl('use re "eval"; + my @r; + for$0(qw(0 0)){push@r,qr/@r(?{})/};', + { stderr => 'devnull' }); + is($?, 0, "No assertion failure (GH 16627)"); + } + { # github #21661 fresh_perl_is(<<'PROG', <<'EXPECT', {}, "double-free on fatal warn with existing error"); diff --git a/t/run/todo.t b/t/run/todo.t index 0dc8f6ab7d8d..a8b2cfa7ab9b 100644 --- a/t/run/todo.t +++ b/t/run/todo.t @@ -46,12 +46,4 @@ TODO: { is($?, 0, "No assertion failure"); } -{ - fresh_perl('use re "eval"; - my @r; - for$0(qw(0 0)){push@r,qr/@r(?{})/};', - { stderr => 'devnull' }); - is($?, 0, "No assertion failure"); -} - done_testing();