summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-01-17 00:52:18 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-01-17 00:52:18 (GMT)
commit72e7c5746f7b65dde16f1956a8ff610feba195f5 (patch)
treed4d17ffb8719b7c855c61dc53e7c649c58d507c3 /tests
parentad2ff95ba8c9da2c069721644be9afd430a123a9 (diff)
downloadtcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.zip
tcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.tar.gz
tcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.tar.bz2
Fix a shimmering bug
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdIL.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 59e17c0..c7a8b65 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdIL.test,v 1.20 2004/01/17 00:38:57 dkf Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.21 2004/01/17 00:52:18 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -498,6 +498,10 @@ test cmdIL-6.12 {lassign command - memory leak testing} -setup {
rename getbytes {}
rename stress {}
}
+test cmdIL-6.13 {lassign command - shimmering protection} {
+ set x {a b c}
+ list [lassign $x $x y] $x [set $x] $y
+} {c {a b c} a b}
# cleanup
::tcltest::cleanupTests