diff options
author | dgp <dgp@users.sourceforge.net> | 2016-07-18 17:47:23 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-07-18 17:47:23 (GMT) |
commit | ff29fb76d85ded340e6ae5541e9a5c0826caff8d (patch) | |
tree | 02370625bbdf383b4a8329b37db2a945004edbd8 /tests/var.test | |
parent | 6f07c7ae05169ceba8daa453c192a7511cdf78ab (diff) | |
parent | 3766e26550a1315f09945ab1162d78d0143d32a2 (diff) | |
download | tcl-ff29fb76d85ded340e6ae5541e9a5c0826caff8d.zip tcl-ff29fb76d85ded340e6ae5541e9a5c0826caff8d.tar.gz tcl-ff29fb76d85ded340e6ae5541e9a5c0826caff8d.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/var.test')
-rw-r--r-- | tests/var.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/var.test b/tests/var.test index 690bd10..297034a 100644 --- a/tests/var.test +++ b/tests/var.test @@ -169,7 +169,9 @@ test var-1.17 {TclLookupVar, resurrect array element via upvar to deleted array: set result } } {0 2 1 {can't set "foo": upvar refers to element in deleted array}} -test var-1.18 {TclLookupVar, resurrect array element via upvar to deleted array: uncompiled code path} { +test var-1.18 {TclLookupVar, resurrect array element via upvar to deleted array: uncompiled code path} -setup { + unset -nocomplain test_ns_var::x +} -body { namespace eval test_ns_var { variable result {} variable x @@ -181,7 +183,7 @@ test var-1.18 {TclLookupVar, resurrect array element via upvar to deleted array: namespace delete [namespace current] set result } -} {0 2 1 {can't set "foo": upvar refers to element in deleted array}} +} -result {0 2 1 {can't set "foo": upvar refers to element in deleted array}} test var-1.19 {TclLookupVar, right error message when parsing variable name} -body { [format set] thisvar(doesntexist) } -returnCodes error -result {can't read "thisvar(doesntexist)": no such variable} |