diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-19 13:13:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 13:13:00 (GMT) |
| commit | 9d75751f2147019420220fdcf98b190c771c4006 (patch) | |
| tree | 8b1952594bfe664131235a2cdd9ad38ffe3bee56 /tests/dict.test | |
| parent | ac04e17db79d9572aab9d187570f96dc55cc2f18 (diff) | |
| parent | 635d8c961aa06ec17403483a0ff3c0a3d524f3d1 (diff) | |
| download | tcl-9d75751f2147019420220fdcf98b190c771c4006.zip tcl-9d75751f2147019420220fdcf98b190c771c4006.tar.gz tcl-9d75751f2147019420220fdcf98b190c771c4006.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 6c00c62..3658581 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -1870,6 +1870,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 {} test dict-24.22 {dict map results (non-compiled)} { |