todo test for GH 16869 (Assertion failure in glob3)

Author: 1-1sam

t/run/todo.t

@@ -270,6 +270,16 @@ TODO: {
     is($?, 0, "No assertion failure; GH 16865");
 }
 
+TODO: {
+    todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
+    local $::TODO = 'GH 16869';
+    fresh_perl(<<~'HERE', {});
+        my $glob = ("0" x 4094) . "?";
+        glob $glob;
+        HERE
+    is($?, 0, 'No assertion failure; GH 16869');
+}
+
 TODO: {
     todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
     local $::TODO = 'GH 16876';