diff options
| author | griffin <briang42@easystreet.net> | 2022-09-29 16:30:31 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-09-29 16:30:31 (GMT) |
| commit | a5a978ca98e23b9808e5311944f4b37143a0c85f (patch) | |
| tree | 6537ceb12a53cc0b0d517e724641280bb282c226 /tests/lseq.test | |
| parent | eea655f8511157d811dc0b7be61de559c52ab81a (diff) | |
| parent | bec96305308d0c234215d25b194f1ff8417dc8b4 (diff) | |
| download | tcl-a5a978ca98e23b9808e5311944f4b37143a0c85f.zip tcl-a5a978ca98e23b9808e5311944f4b37143a0c85f.tar.gz tcl-a5a978ca98e23b9808e5311944f4b37143a0c85f.tar.bz2 | |
Fix bug-99e834bf33
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index 45e3cd3..3d9988e 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -489,8 +489,18 @@ test lseq-4.4 {lseq corner case} -body { lappend res $s $e } eval $tcmd +} -cleanup { + unset res } -result {0 10 0 10 0 9223372036854774991 0 10 0 2147483638} -# {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}] +} -cleanup { + unset res +} -result {4 3} # cleanup |