diff options
author | dgp <dgp@users.sourceforge.net> | 2013-09-19 16:41:04 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 16:41:04 (GMT) |
commit | d35d4b2c53b9f938c70be1660b60c3aec73dc1c3 (patch) | |
tree | d4c31e2e16495e07b1372e8a4d4fe71c7a17bac8 /tests/upvar.test | |
parent | b4a00d3ac52eaa4ec6e9ab0f512670916ba0e24a (diff) | |
parent | c91c7b7cf1a5d17289e85b2ca29782437b967039 (diff) | |
download | tcl-d35d4b2c53b9f938c70be1660b60c3aec73dc1c3.zip tcl-d35d4b2c53b9f938c70be1660b60c3aec73dc1c3.tar.gz tcl-d35d4b2c53b9f938c70be1660b60c3aec73dc1c3.tar.bz2 |
Line numbers wrong in compiled [global] and [variable].
Diffstat (limited to 'tests/upvar.test')
-rw-r--r-- | tests/upvar.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test index 9cbfd05..e93f58a 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -568,6 +568,16 @@ test upvar-NS-3.2 {CompileWord OBOE} -setup { } -cleanup { rename linenumber {} } -result 1 +test upvar-NS-3.3 {CompileWord OBOE} -setup { + proc linenumber {} {dict get [info frame -1] line} +} -body { + apply {n { + variable x {*}{ + } [return [incr n -[linenumber]]] + }} [linenumber] +} -cleanup { + rename linenumber {} +} -result 1 # cleanup |