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

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

diff --git a/t/re/pat.t b/t/re/pat.t
index e547e0c531e8..c5319aff7f2f 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 => 1297;  # Update this when adding/deleting tests.
+plan tests => 1298;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -2655,6 +2655,12 @@ PROG
         is($?, 0, "No assertion failure (GH 16952)");
     }
 
+    {
+        fresh_perl('$_ = "a"; s{ x | (?{ s{}{x} }) }{}gx;',
+                   { stderr => 'devnull' });
+        is($?, 0, "No assertion failure (GH 16876)");
+    }
+
 } # End of sub run_tests
 
 1;
diff --git a/t/run/todo.t b/t/run/todo.t
index 7bd8beca59d5..0dc8f6ab7d8d 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -39,13 +39,6 @@ TODO: {
     "undef:de567\nundef:de567", { eval $switches }, "");
 }
 
-TODO: {
-    local $::TODO = 'GH 16876';
-    fresh_perl('$_ = "a"; s{ x | (?{ s{}{x} }) }{}gx;',
-               { stderr => 'devnull' });
-    is($?, 0, "No assertion failure");
-}
-
 TODO: {
     local $::TODO = 'GH 16971';
     fresh_perl('split(/00|0\G/, "000")',