diff options
author | dgp <dgp@users.sourceforge.net> | 2013-09-19 13:06:06 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 13:06:06 (GMT) |
commit | 635d8c961aa06ec17403483a0ff3c0a3d524f3d1 (patch) | |
tree | 5f3f379cfbda273dc21e1071c0c8e64b82f096c5 /tests/dict.test | |
parent | 3abcbb2542b51d5fd6df940805672cba4660c3ec (diff) | |
download | tcl-635d8c961aa06ec17403483a0ff3c0a3d524f3d1.zip tcl-635d8c961aa06ec17403483a0ff3c0a3d524f3d1.tar.gz tcl-635d8c961aa06ec17403483a0ff3c0a3d524f3d1.tar.bz2 |
Line numbers wrong in compiled [dict set].
Diffstat (limited to 'tests/dict.test')
-rw-r--r-- | tests/dict.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test index 6271779..83f1ca7 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -1248,6 +1248,12 @@ test dict-23.3 {CompileWord OBOE} { apply {{} {tcl::dict::lappend foo bar \ [format baz]}} } {bar baz} +test dict-23.4 {CompileWord OBOE} { + apply {n { + dict set foo {*}{ + } [return [incr n -[linenumber]]] val + }} [linenumber] +} 1 rename linenumber {} |