diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:48:57 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:48:57 (GMT) |
commit | 2dccd2a5670532686cbe9da74ccf8e2ce591a20b (patch) | |
tree | 9da7012e4e94d3535ea236e4eb0f171ec3f349eb /tests | |
parent | 6c4b78cfa8c06ea5963591778902da74850d1985 (diff) | |
parent | df75b9195608f60545ced2c165c87ad65288c66d (diff) | |
download | tcl-2dccd2a5670532686cbe9da74ccf8e2ce591a20b.zip tcl-2dccd2a5670532686cbe9da74ccf8e2ce591a20b.tar.gz tcl-2dccd2a5670532686cbe9da74ccf8e2ce591a20b.tar.bz2 |
Merge 8.6 - [ab123cfd3d] and [784befb0ba]
Diffstat (limited to 'tests')
-rw-r--r-- | tests/scan.test | 5 | ||||
-rw-r--r-- | tests/tailcall.test | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/tests/scan.test b/tests/scan.test index cf58828..98ec314 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -858,6 +858,11 @@ test scan-13.8 {Tcl_ScanObjCmd, inline XPG case lots of arguments} { set msg [scan "10 20 30" {%100$d %5$d %200$d}] list [llength $msg] [lindex $msg 99] [lindex $msg 4] [lindex $msg 199] } {200 10 20 30} +test scan-13.9 {Tcl_ScanObjCmd, inline XPG case limit error} -body { + # Note this applies to 64-bit builds as well so long as max number of + # command line arguments allowed for scan command is INT_MAX + scan abc {%2147483648$s} +} -result {"%n$" argument index out of range} -returnCodes error # scan infinities - not working diff --git a/tests/tailcall.test b/tests/tailcall.test index c738bb3..c9ec674 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 |