diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-01-17 00:52:18 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-01-17 00:52:18 (GMT) |
| commit | 72e7c5746f7b65dde16f1956a8ff610feba195f5 (patch) | |
| tree | d4d17ffb8719b7c855c61dc53e7c649c58d507c3 /tests/cmdIL.test | |
| parent | ad2ff95ba8c9da2c069721644be9afd430a123a9 (diff) | |
| download | tcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.zip tcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.tar.gz tcl-72e7c5746f7b65dde16f1956a8ff610feba195f5.tar.bz2 | |
Fix a shimmering bug
Diffstat (limited to 'tests/cmdIL.test')
| -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 |