fixes segfault [a9625d1f53554f9d]: elemObj used uninitialized, lindex on lseq wo args must return whole list

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/lseq.test b/tests/lseq.test
index 2a7de67..c2264da 100644
--- a/tests/lseq.test
+++ b/tests/lseq.test
@@ -674,6 +674,13 @@ test lseq-4.19 {varnames} -body {
     unset {*}$varlist res varlist v plist
 } -result {auto_execok 1 auto_load 2 auto_qualify 2 arithseries}
 
+test lseq-4.20 {lindex on lseq without index args, bug a9625d1f53554f9d} -body {
+    set res [lindex [lseq 1000]]
+    list [llength $res] [lindex $res 0] [lindex $res end]
+} -cleanup {
+    unset -nocomplain res
+} -result {1000 0 999}
+
 test lseq-convertToList {does not result in a memory error} -body {
 	trace add variable var1 write [list ::apply [list args {
 		error {this is an error}