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 | 44d124101c6297b356f7de3917c4d0666b8a0e31 (patch) | |
| tree | f49caee0b0f406649f1cc264fbb507d72a762bb8 /tests/upvar.test | |
| parent | c057be2da7fa9708565dfbf205fede984267ea30 (diff) | |
| download | tcl-44d124101c6297b356f7de3917c4d0666b8a0e31.zip tcl-44d124101c6297b356f7de3917c4d0666b8a0e31.tar.gz tcl-44d124101c6297b356f7de3917c4d0666b8a0e31.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 |