summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 16:41:04 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 16:41:04 (GMT)
commit34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07 (patch)
treed4c31e2e16495e07b1372e8a4d4fe71c7a17bac8 /tests
parent948a08dad17b744ed2527bc494a3f9b5ccd53ee7 (diff)
parent44d124101c6297b356f7de3917c4d0666b8a0e31 (diff)
downloadtcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.zip
tcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.tar.gz
tcl-34f5e7a008848bf85a6a5bf4d838aa3d8d21cd07.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 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