todo test for GH 16865 (Assertion failure in Perl_pp_sort/S_POPMARK)

Author: 1-1sam

t/run/todo.t

@@ -63,6 +63,12 @@ TODO: {
     "undef:de567\nundef:de567", { eval $switches }, "");
 }
 
+TODO: {
+    local $::TODO = 'GH 16865';
+    fresh_perl('\(sort { 0 } 0, 0 .. "a")', { stderr => 'devnull' });
+    is($?, 0, "No assertion failure");
+}
+
 TODO: {
     todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
     local $::TODO = 'GH 16876';