Fix an object sharing bug for arrays

Commands which modify variables in place such
as append, lappend, incr and lset did not correctly
account for modifying a shared array through an array
element (dict sugar).

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 28 insertions, 0 deletions

diff --git a/tests/misc.test b/tests/misc.test
index f9a2de7..f259185 100644
--- a/tests/misc.test
+++ b/tests/misc.test
@@ -338,4 +338,32 @@ test parsevar-1.1 "Variables should include double colons" {
 	set x
 } 2
 
+test sharing-1.1 "Problems with ref sharing in arrays: lappend" {
+	set a {a 1 c 2}
+	set b $a
+	lappend b(c) 3
+	set a(c)
+} 2
+
+test sharing-1.2 "Problems with ref sharing in arrays: append" {
+	set a {a 1 c 2}
+	set b $a
+	append b(c) 3
+	set a(c)
+} 2
+
+test sharing-1.3 "Problems with ref sharing in arrays: incr" {
+	set a {a 1 c 2}
+	set b $a
+	incr b(c)
+	set a(c)
+} 2
+
+test sharing-1.4 "Problems with ref sharing in arrays: lset" {
+	set a {a 1 c {2 3}}
+	set b $a
+	lset b(c) 1 x
+	set a(c)
+} {2 3}
+
 testreport