summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 16:33:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 16:33:36 (GMT)
commit44d124101c6297b356f7de3917c4d0666b8a0e31 (patch)
treef49caee0b0f406649f1cc264fbb507d72a762bb8 /tests
parentc057be2da7fa9708565dfbf205fede984267ea30 (diff)
downloadtcl-44d124101c6297b356f7de3917c4d0666b8a0e31.zip
tcl-44d124101c6297b356f7de3917c4d0666b8a0e31.tar.gz
tcl-44d124101c6297b356f7de3917c4d0666b8a0e31.tar.bz2
Line numbers wrong in compiled [global] and [variable].
Diffstat (limited to 'tests')
-rw-r--r--tests/upvar.test10
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