diff options
author | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:44:21 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:44:21 (GMT) |
commit | aed9fbb19c01b6aed6fc21b3ea96d445bab28f80 (patch) | |
tree | f80120585e4a1dac922ed236f9febbe1519a0482 /tests/upvar.test | |
parent | e4dfb0d689c07715c52b1a8b95391e5af075c02f (diff) | |
download | tcl-aed9fbb19c01b6aed6fc21b3ea96d445bab28f80.zip tcl-aed9fbb19c01b6aed6fc21b3ea96d445bab28f80.tar.gz tcl-aed9fbb19c01b6aed6fc21b3ea96d445bab28f80.tar.bz2 |
Line numbers wrong in compiled [upvar].
Diffstat (limited to 'tests/upvar.test')
-rw-r--r-- | tests/upvar.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test index 457c9f8..d88d2c9 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -405,6 +405,17 @@ test upvar-9.7 {Tcl_UpVar procedure} testupvar { } {1234} catch {unset a} +test upvar-10.1 {CompileWord OBOE} -setup { + proc linenumber {} {dict get [info frame -1] line} +} -body { + apply {n { + upvar 1 {*}{ + } [return [incr n -[linenumber]]] x + }} [linenumber] +} -cleanup { + rename linenumber {} +} -result 1 + # # Tests for 'namespace upvar'. As the implementation is essentially the same as |