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 | 34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07 (patch) | |
| tree | d4c31e2e16495e07b1372e8a4d4fe71c7a17bac8 /tests/upvar.test | |
| parent | 948a08dad17b744ed2527bc494a3f9b5ccd53ee7 (diff) | |
| parent | 44d124101c6297b356f7de3917c4d0666b8a0e31 (diff) | |
| download | tcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.zip tcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.tar.gz tcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.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 |