From 91779f21adbb054eb4f1b8c470aa73fd2be5da0f Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Sun, 15 Dec 2024 10:26:37 -0500
Subject: [PATCH] Move formerly TODO test, now PASSing

... to more permanent location.
---
 t/re/pat.t   | 10 +++++++++-
 t/run/todo.t | 14 +++++++-------
 2 files changed, 16 insertions(+), 8 deletions(-)

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..111c2e2874dd 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -46,12 +46,12 @@ 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");
-}
+#{
+#    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();