summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 16:04:48 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 16:04:48 (GMT)
commitaf397e9889dc08f2ef1382acb2bbe8d60dada02e (patch)
tree4aa82f0d14232add9bf751bc1058de6d4683f843 /tests
parent77946f661583330fa93c84272c3cb2d06ee1ec9d (diff)
downloadtcl-af397e9889dc08f2ef1382acb2bbe8d60dada02e.zip
tcl-af397e9889dc08f2ef1382acb2bbe8d60dada02e.tar.gz
tcl-af397e9889dc08f2ef1382acb2bbe8d60dada02e.tar.bz2
Line numbers wrong in compiled [namespace upvar].
Diffstat (limited to 'tests')
-rw-r--r--tests/upvar.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test
index d88d2c9..df7f551 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -553,6 +553,27 @@ test upvar-NS-1.9 {nsupvar links to correct variable} \
-returnCodes error \
-cleanup {namespace delete test_ns_1}
+test upvar-NS-2.1 {CompileWord OBOE} -setup {
+ proc linenumber {} {dict get [info frame -1] line}
+} -body {
+ apply {n {
+ namespace upvar {*}{
+ } [return [incr n -[linenumber]]] x y
+ }} [linenumber]
+} -cleanup {
+ rename linenumber {}
+} -result 1
+test upvar-NS-2.2 {CompileWord OBOE} -setup {
+ proc linenumber {} {dict get [info frame -1] line}
+} -body {
+ apply {n {
+ namespace upvar :: {*}{
+ } [return [incr n -[linenumber]]] x
+ }} [linenumber]
+} -cleanup {
+ rename linenumber {}
+} -result 1
+
# cleanup
::tcltest::cleanupTests