diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-19 16:33:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 16:33:36 (GMT) |
| commit | c91c7b7cf1a5d17289e85b2ca29782437b967039 (patch) | |
| tree | f49caee0b0f406649f1cc264fbb507d72a762bb8 /tests/upvar.test | |
| parent | bfcb6b40d2f77d552517ae44f7ced86acefd9dc5 (diff) | |
| download | tcl-c91c7b7cf1a5d17289e85b2ca29782437b967039.zip tcl-c91c7b7cf1a5d17289e85b2ca29782437b967039.tar.gz tcl-c91c7b7cf1a5d17289e85b2ca29782437b967039.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 f90abef..79c2d53 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -573,6 +573,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 |