diff --git a/t/re/pat.t b/t/re/pat.t
index 39ce47538c83..1e7898c2209c 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 => 1295;  # Update this when adding/deleting tests.
+plan tests => 1296;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -2643,6 +2643,11 @@ local $SIG{__WARN__} = sub { die; };
 eval "qr/()x{/;" for 1..10;
 PROG
     }
+
+    {   # Fixed by acababb42be12ff2986b73c1bfa963b70bb5d54e
+        "abab" =~ /(?:[^b]*(?=(b)|(a))ab)*/;
+        is($1, undef, "GH #16894");
+    }
 } # End of sub run_tests
 
 1;
diff --git a/t/run/todo.t b/t/run/todo.t
index e20d33120ae3..8f4d9c64d12f 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -27,11 +27,6 @@ use warnings;
 
 my $switches = "";
 
-{   # Fixed by acababb42be12ff2986b73c1bfa963b70bb5d54e
-    "abab" =~ /(?:[^b]*(?=(b)|(a))ab)*/;
-    is($1, undef, "GH #16894");
-}
-
 our $TODO;
 TODO: {
     local $TODO = "GH 16250";