summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-07-17 12:02:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-07-17 12:02:27 (GMT)
commit30b6493bb7a01568ed7fa236badef647b30ad038 (patch)
tree3f303842101d81e949e5894bff0d6ba99d78692f
parent812e86e692342eea4435ae5eb01bce552c7350e2 (diff)
downloadtcl-30b6493bb7a01568ed7fa236badef647b30ad038.zip
tcl-30b6493bb7a01568ed7fa236badef647b30ad038.tar.gz
tcl-30b6493bb7a01568ed7fa236badef647b30ad038.tar.bz2
[77d58e3a7a] Test case independence: var.
-rw-r--r--tests/var.test6
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}