From 1d20d5be0d4e895553cfa9df6ea4769a4ed309c9 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 8 Jan 2019 13:29:29 +0000
Subject: bug [cc1e91552c]: added test cases showing the regression (expansion
 & lrange)

---
 tests/basic.test  |  4 ++++
 tests/lrange.test | 10 ++++++++++
 2 files changed, 14 insertions(+)

diff --git a/tests/basic.test b/tests/basic.test
index 865814a..137ad53 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -962,6 +962,10 @@ test basic-48.23.$noComp {expansion: handle return codes} -constraints $constrai
 	unset res t
 } -result {0 10 1 Hejsan}
 
+test basic-48.24.$noComp {expansion: empty not canonical list, regression test, bug [cc1e91552c]} $constraints {
+    run {list [list {*}{ }] [list {*}[format %c 32]] [list {*}[set a { }]]}
+} [lrepeat 3 {}]
+
 } ;# End of noComp loop
 
 test basic-49.1 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} testevalex {
diff --git a/tests/lrange.test b/tests/lrange.test
index ba10354..4ba645d 100644
--- a/tests/lrange.test
+++ b/tests/lrange.test
@@ -108,6 +108,16 @@ test lrange-3.6 {compiled with calculated indices, end out of range (after end)}
     list [lrange {a b c} 1 end+1] [lrange {a b c} 1+0 2+1] [lrange {a b c} 1 end+1] [lrange {a b c} end-1 3+1]
 } [lrepeat 4 {b c}]
 
+test lrange-3.7a {compiled on empty not canonical list (with static and dynamic indices), regression test, bug [cc1e91552c]} {
+    list [lrange { } 0 1] [lrange [format %c 32] 0 1] [lrange [set a { }] 0 1] \
+	 [lrange { } 0-1 end+1] [lrange [format %c 32] 0-1 end+1] [lrange $a 0-1 end+1]
+} [lrepeat 6 {}]
+test lrange-3.7b {not compiled on empty not canonical list (with static and dynamic indices), regression test, bug [cc1e91552c]} {
+    set cmd lrange
+    list [$cmd { } 0 1] [$cmd [format %c 32] 0 1] [$cmd [set a { }] 0 1] \
+	 [$cmd { } 0-1 end+1] [$cmd [format %c 32] 0-1 end+1] [$cmd $a 0-1 end+1]
+} [lrepeat 6 {}]
+
 
 # cleanup
 ::tcltest::cleanupTests
-- 
cgit v0.12