diff options
| author | griffin <briang42@easystreet.net> | 2022-09-29 16:10:07 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-09-29 16:10:07 (GMT) |
| commit | bec96305308d0c234215d25b194f1ff8417dc8b4 (patch) | |
| tree | a6a87e6d8c544f1ce5315090b52d0e6bcc73267b /tests/lseq.test | |
| parent | 42bd6877bcc8794524e5be946458a4427994b7a6 (diff) | |
| download | tcl-bec96305308d0c234215d25b194f1ff8417dc8b4.zip tcl-bec96305308d0c234215d25b194f1ff8417dc8b4.tar.gz tcl-bec96305308d0c234215d25b194f1ff8417dc8b4.tar.bz2 | |
Fix bug-99e834bf33
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index e05b32d..518a7bb 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -489,9 +489,19 @@ test lseq-4.4 {lseq corner case} -body { lappend res $s $e } eval $tcmd +} -cleanup { + unset res } -result {0 10 1 {max length of a Tcl list exceeded} 1 {max length of a Tcl list exceeded} 0 10 0 2147483638} +# Ticket 99e834bf33 - lseq, lindex end off by one + +test lseq-4.5 {lindex off by one} -body { + lappend res [eval {lindex [lseq 1 4] end}] + lappend res [eval {lindex [lseq 1 4] end-1}] +} -result {4 3} + + # cleanup ::tcltest::cleanupTests return |