summaryrefslogtreecommitdiffstats
path: root/tests/var.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/var.test')
-rw-r--r--tests/var.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/var.test b/tests/var.test
index a6e54ff..de08a35 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -14,12 +14,12 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: var.test,v 1.6 1999/06/26 03:54:33 jenn Exp $
+# RCS: @(#) $Id: var.test,v 1.7 1999/06/26 20:55:17 rjohnson Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
catch {rename p ""}
@@ -124,7 +124,7 @@ test var-1.15 {TclLookupVar, resurrect variable via upvar to deleted namespace:
proc p {} {
variable ::test_ns_var::foo
lappend result [catch {set foo} msg] $msg
- namespace delete ::test_ns_var
+ namespace delete ::test_ns_var
lappend result [catch {set foo 3} msg] $msg
lappend result [catch {set foo(3) 3} msg] $msg
}
@@ -133,15 +133,15 @@ test var-1.15 {TclLookupVar, resurrect variable via upvar to deleted namespace:
test var-1.16 {TclLookupVar, resurrect variable via upvar to deleted namespace: uncompiled code path} {
namespace eval test_ns_var {
variable result
- namespace eval subns {
+ namespace eval subns {
variable foo 2
}
upvar 0 subns::foo foo
lappend result [catch {set foo} msg] $msg
- namespace delete subns
+ namespace delete subns
lappend result [catch {set foo 3} msg] $msg
lappend result [catch {set foo(3) 3} msg] $msg
- namespace delete [namespace current]
+ namespace delete [namespace current]
set result
}
} {0 2 1 {can't set "foo": upvar refers to variable in deleted namespace} 1 {can't set "foo(3)": upvar refers to variable in deleted namespace}}
@@ -156,7 +156,7 @@ test var-1.17 {TclLookupVar, resurrect array element via upvar to deleted array:
lappend result [catch {set foo 3} msg] $msg
}
set result [p]
- namespace delete [namespace current]
+ namespace delete [namespace current]
set result
}
} {0 2 1 {can't set "foo": upvar refers to element in deleted array}}
@@ -169,7 +169,7 @@ test var-1.18 {TclLookupVar, resurrect array element via upvar to deleted array:
lappend result [catch {set foo} msg] $msg
unset x
lappend result [catch {set foo 3} msg] $msg
- namespace delete [namespace current]
+ namespace delete [namespace current]
set result
}
} {0 2 1 {can't set "foo": upvar refers to element in deleted array}}