summaryrefslogtreecommitdiffstats
path: root/tests/upvar.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2019-05-08 18:07:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2019-05-08 18:07:51 (GMT)
commitb8b961810253e1b691ad2d19915e6d6d4a3d569f (patch)
treefdbc6872ddee9c21aaa32fb94eca45162f383d70 /tests/upvar.test
parent9d68b2dbd19c376370345b938be80f15aab880d4 (diff)
parent5419f8e0ba508cfedb5c68a88aee618e25e17983 (diff)
downloadtcl-b8b961810253e1b691ad2d19915e6d6d4a3d569f.zip
tcl-b8b961810253e1b691ad2d19915e6d6d4a3d569f.tar.gz
tcl-b8b961810253e1b691ad2d19915e6d6d4a3d569f.tar.bz2
merge 8.6
Diffstat (limited to 'tests/upvar.test')
-rw-r--r--tests/upvar.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test
index 476250c..91153a6 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -356,6 +356,10 @@ test upvar-8.11 {upvar will not create a variable that looks like an array} -set
test upvar-9.1 {Tcl_UpVar2 procedure} testupvar {
list [catch {testupvar xyz a {} x global} msg] $msg
} {1 {bad level "xyz"}}
+test upvar-9.1.1 {TclGetFrame, via Tcl_UpVar2} testupvar {
+ apply {{} {testupvar xyz a {} x local; set x foo}}
+ set a
+} foo
test upvar-9.2 {Tcl_UpVar2 procedure} testupvar {
catch {unset a}
catch {unset x}