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 | 1b0845930c4443b53093d14ad56bf2d932ec40b2 (patch) | |
| tree | 5f3f379cfbda273dc21e1071c0c8e64b82f096c5 /tests/dict.test | |
| parent | ad07565ec073b413895d29fa06f19a63b39aa83e (diff) | |
| download | tcl-1b0845930c4443b53093d14ad56bf2d932ec40b2.zip tcl-1b0845930c4443b53093d14ad56bf2d932ec40b2.tar.gz tcl-1b0845930c4443b53093d14ad56bf2d932ec40b2.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 {} |