diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/dict.test | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/dict.test b/tests/dict.test index cf9fc1f..c6e8987 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: dict.test,v 1.19 2006/08/09 13:51:02 dkf Exp $ +# RCS: @(#) $Id: dict.test,v 1.20 2007/03/02 10:32:13 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -1042,6 +1042,22 @@ test dict-21.13 {dict update command: compilation} { } getOrder [dicttest {a 1 c 2}] b c } {b 1 c 2 2} +test dict-21.14 {dict update command: compilation} { + proc dicttest x { + set indices {2 3} + trace add variable aa write "string length \$indices ;#" + dict update x k aa l bb {} + } + dicttest {k 1 l 2} +} {} +test dict-21.15 {dict update command: compilation} { + proc dicttest x { + set indices {2 3} + trace add variable aa read "string length \$indices ;#" + dict update x k aa l bb {} + } + dicttest {k 1 l 2} +} {} test dict-22.1 {dict with command} -body { dict with |