diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-29 03:15:11 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-29 03:15:11 (GMT) |
commit | 85a2a9172920e13d3a1aa6ff861073ad690ccb12 (patch) | |
tree | a36d9351e7580de003fd8b57e031bdfedce03de8 /tests | |
parent | a6d654980e6e0e35e1cb74dc978f654c216ce7e4 (diff) | |
parent | 175931c905a640bfd9ee76f0896c142b8549e391 (diff) | |
download | tcl-85a2a9172920e13d3a1aa6ff861073ad690ccb12.zip tcl-85a2a9172920e13d3a1aa6ff861073ad690ccb12.tar.gz tcl-85a2a9172920e13d3a1aa6ff861073ad690ccb12.tar.bz2 |
Fix [7cddd2845c] - crash with >= INT_MAX operands
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bigdata.test | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index a1ccd32..ccd34af 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -879,15 +879,25 @@ bigtest linsert-bigdata-1 "linsert" {4294967330 1} -body { # # list and {*} -bigtestRO list-bigdata-1 {list {*} } {4294967296 0 4294967295} -body { - unset -nocomplain l2 +# TODO - compiled and uncompiled behave differently so tested separately +test list-bigdata-1.compiled {list {*}} -body { + set l [bigList 0x100000000] set l2 [list {*}$l] + unset l list [llength $l2] [lindex $l2 0] [lindex $l2 end] -} -setup { - set l [bigList 0x100000000] } -cleanup { bigClean -} -constraints bug-7cddd2845c +} -constraints { + bigdata +} -result {4294967296 0 5} +test list-bigdata-1.uncompiled {list {*}} -body { + set l [bigList 0x7fffffff] + testevalex {set l2 [list {*}$l]} +} -cleanup { + bigClean +} -constraints { + bigdata +} -result {Number of words in command exceeds limit 2147483647.} -returnCodes error # # llength |