diff options
author | dkf <dkf@noemail.net> | 2004-01-17 00:52:17 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2004-01-17 00:52:17 (GMT) |
commit | 560293ad2b34f9ae21810ac4d77f244affc564df (patch) | |
tree | d4d17ffb8719b7c855c61dc53e7c649c58d507c3 /tests | |
parent | 5f2e8bd40b5466ffbadc77b48809b26faab1fd92 (diff) | |
download | tcl-560293ad2b34f9ae21810ac4d77f244affc564df.zip tcl-560293ad2b34f9ae21810ac4d77f244affc564df.tar.gz tcl-560293ad2b34f9ae21810ac4d77f244affc564df.tar.bz2 |
Fix a shimmering bug
FossilOrigin-Name: 0d952b7fa6387fc3c7a18fc00b0fdbb084a05762
Diffstat (limited to 'tests')
-rw-r--r-- | tests/cmdIL.test | 6 |
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 |