diff options
Diffstat (limited to 'tests/var.test')
| -rw-r--r-- | tests/var.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/var.test b/tests/var.test index bf48224..5797434 100644 --- a/tests/var.test +++ b/tests/var.test @@ -14,7 +14,7 @@ # 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.31 2008/03/11 17:23:56 msofer Exp $ +# RCS: @(#) $Id: var.test,v 1.32 2008/07/13 23:15:22 nijtmans Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -503,12 +503,12 @@ test var-7.15 {Tcl_VariableObjCmd, array element parameter} { } "can't define \"arrayvar(1)\": name refers to an element in an array" test var-7.16 {Tcl_VariableObjCmd, no args} { list [catch {variable} msg] $msg -} {1 {wrong # args: should be "variable ?name value...? name ?value?"}} +} {1 {wrong # args: should be "variable ?name value ...? name ?value?"}} test var-7.17 {Tcl_VariableObjCmd, no args} { namespace eval test_ns_var { list [catch {variable} msg] $msg } -} {1 {wrong # args: should be "variable ?name value...? name ?value?"}} +} {1 {wrong # args: should be "variable ?name value ...? name ?value?"}} test var-8.1 {TclDeleteVars, "unset" traces are called with fully-qualified var names} { catch {namespace delete test_ns_var} |