diff options
| author | griffin <briang42@easystreet.net> | 2022-09-27 18:50:33 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-09-27 18:50:33 (GMT) |
| commit | 7694cd7bef6d69dbd7d91d338f3626d9e6875e95 (patch) | |
| tree | 83aac66cf3ea0b9678accf5e120c93cc35822955 /tests/lseq.test | |
| parent | a0ee4e463ed283418dc94c826f9b65933fe5ba7d (diff) | |
| parent | e6a7cce3f165ad55c83585adc5de507471083a65 (diff) | |
| download | tcl-7694cd7bef6d69dbd7d91d338f3626d9e6875e95.zip tcl-7694cd7bef6d69dbd7d91d338f3626d9e6875e95.tar.gz tcl-7694cd7bef6d69dbd7d91d338f3626d9e6875e95.tar.bz2 | |
Fix bug-9933cc4d88
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index ffb8a94..e05b32d 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -472,6 +472,25 @@ test lseq-4.3 {TIP examples} { set res } {{10 9 8 7 6 5 4 3 2 1} {1 2 3 4 5 6 7 8 9 10} {} {10 8 6 4 2} {5.0 6.0 7.0 8.0 9.0 10.0 11.0 12.0 13.0 14.0 15.0} {5.0 10.0 15.0 20.0 25.0} {} {25.0 20.0 15.0 10.0 5.0} {1 3 5 7 9} {25.0 20.0 15.0 10.0 5.0 0.0 -5.0 -10.0 -15.0 -20.0 -25.0} 5 5 5} +# +# Ticket 9933cc4d88697f05976accebd31c1e3ba6efe9c6 - lseq corner case +test lseq-4.4 {lseq corner case} -body { + set tcmd { + set res {} + set s [catch {lindex [lseq 10 100] 0} e] + lappend res $s $e + set s [catch {lindex [lseq 10 9223372036854775000] 0} e] + lappend res $s $e + set s [catch {llength [lseq 10 9223372036854775000]} e] + lappend res $s $e + set s [catch {lindex [lseq 10 2147483647] 0} e] + lappend res $s $e + set s [catch {llength [lseq 10 2147483647]} e] + lappend res $s $e + } + eval $tcmd +} -result {0 10 1 {max length of a Tcl list exceeded} 1 {max length of a Tcl list exceeded} 0 10 0 2147483638} + # cleanup ::tcltest::cleanupTests |