diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:08:30 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:08:30 (GMT) |
| commit | 43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17 (patch) | |
| tree | 74158fb01c3179efb6d8805341eade27e3b3c67c /tests | |
| parent | e5eeaadf3c490991f3360ae3cea60e064e0b2c37 (diff) | |
| download | tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.zip tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.tar.gz tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.tar.bz2 | |
Fix [784befb0ba] - tailcall crash
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/tailcall.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test index 3704333..35a7268 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -708,6 +708,13 @@ test tailcall-14.1-bc {{in a deleted namespace} {byte compiled}} -body { } } -returnCodes 1 -result {namespace "::ns" not found} +test tailcall-bug-784befb0ba {tailcall crash with 254 args} -body { + proc tccrash args {llength $args} + # Must be EXACTLY 254 for crash + proc p {} [list tailcall tccrash {*}[lrepeat 254 x]] + p +} -result 254 + # cleanup ::tcltest::cleanupTests |