Move formerly TODO test, now PASSing

... to more permanent location.
Perl · Dec 15, 2024 · 91779f2 · 91779f2
1 parent 68c51a5
commit 91779f2
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 8 deletions.
diff --git 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
@@ -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();