summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 15:44:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 15:44:21 (GMT)
commit77946f661583330fa93c84272c3cb2d06ee1ec9d (patch)
treef80120585e4a1dac922ed236f9febbe1519a0482 /tests
parent68feed9f4e09c3677ca335a790e197df2bdc5cf5 (diff)
downloadtcl-77946f661583330fa93c84272c3cb2d06ee1ec9d.zip
tcl-77946f661583330fa93c84272c3cb2d06ee1ec9d.tar.gz
tcl-77946f661583330fa93c84272c3cb2d06ee1ec9d.tar.bz2
Line numbers wrong in compiled [upvar].
Diffstat (limited to 'tests')
-rw-r--r--tests/upvar.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test
index 457c9f8..d88d2c9 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -405,6 +405,17 @@ test upvar-9.7 {Tcl_UpVar procedure} testupvar {
} {1234}
catch {unset a}
+test upvar-10.1 {CompileWord OBOE} -setup {
+ proc linenumber {} {dict get [info frame -1] line}
+} -body {
+ apply {n {
+ upvar 1 {*}{
+ } [return [incr n -[linenumber]]] x
+ }} [linenumber]
+} -cleanup {
+ rename linenumber {}
+} -result 1
+
#
# Tests for 'namespace upvar'. As the implementation is essentially the same as