diff options
author | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:04:47 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:04:47 (GMT) |
commit | e4dfb0d689c07715c52b1a8b95391e5af075c02f (patch) | |
tree | 50d9dfaabeaa6ad00cbc0faa2aa15af6c593c48e /tests | |
parent | 7887926261176ebf53677f83fa051cb4cfcc2cf7 (diff) | |
download | tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.zip tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.tar.gz tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.tar.bz2 |
Line numbers wrong in compiled [dict update].
Diffstat (limited to 'tests')
-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 bd7b920..7b584e8 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -1271,6 +1271,12 @@ test dict-23.7 {CompileWord OBOE} { } {} }} [linenumber] } 2 +test dict-23.8 {CompileWord OBOE} { + apply {n { + dict update foo {*}{ + } [return [incr n -[linenumber]]] x {} + }} [linenumber] +} 1 rename linenumber {} |