diff options
| author | dgp <dgp@noemail.net> | 2013-09-19 16:41:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-09-19 16:41:04 (GMT) |
| commit | 4f5511a3af0af4a1aeff9799b1fc6933a3797b7c (patch) | |
| tree | 30e41342a646c404ff810147c62840779f5f67f7 /tests/upvar.test | |
| parent | a9d38caae8f0154cf86ff493d6eb3b637c0af1ac (diff) | |
| parent | de50b7818b27e7324c6491399a85344a52ac1cad (diff) | |
| download | tcl-4f5511a3af0af4a1aeff9799b1fc6933a3797b7c.zip tcl-4f5511a3af0af4a1aeff9799b1fc6933a3797b7c.tar.gz tcl-4f5511a3af0af4a1aeff9799b1fc6933a3797b7c.tar.bz2 | |
Line numbers wrong in compiled [global] and [variable].
FossilOrigin-Name: 4b8618f2b24a652e061582ab9578b8d82453360a
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 |