summaryrefslogtreecommitdiffstats
path: root/tests/lset.test
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-10-20 12:21:43 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-10-20 12:21:43 (GMT)
commit1d7b878a5cc101b9dab71fc0041c7c6bcd18e3f5 (patch)
tree142f7dd620b40e8168ca34cef822e5c4576d8484 /tests/lset.test
parent21b328fdbad15a78e6f77c80092e7bab72f42ae7 (diff)
downloadtcl-1d7b878a5cc101b9dab71fc0041c7c6bcd18e3f5.zip
tcl-1d7b878a5cc101b9dab71fc0041c7c6bcd18e3f5.tar.gz
tcl-1d7b878a5cc101b9dab71fc0041c7c6bcd18e3f5.tar.bz2
* generic/tclListObj.c (TclLsetFlat):
* tests/lset.test (lset-10.3): fixed handling of unshared lists with shared sublists, [Bug 1333036] reported by neuronstorm.
Diffstat (limited to 'tests/lset.test')
-rw-r--r--tests/lset.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/lset.test b/tests/lset.test
index 00facb2..e122f48 100644
--- a/tests/lset.test
+++ b/tests/lset.test
@@ -369,6 +369,12 @@ test lset-10.2 {lset, not compiled, shared data} testevalex {
list [testevalex {lset a {0 0} x}] $a
} {{{x q} {p q}} {{x q} {p q}}}
+test lset-10.3 {lset, not compiled, shared data, [Bug 1333036]} testevalex {
+ set a [list [list p q] [list r s]]
+ set b $a
+ list [testevalex {lset b {0 0} x}] $a
+} {{{x q} {r s}} {{p q} {r s}}}
+
test lset-11.1 {lset, not compiled, 2-d basics} testevalex {
set a {{b c} {d e}}
list [testevalex {lset a 0 0 f}] $a