more consistent wrong # arg messages: change all messages containing ?options? to the form ?-option value ...?

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}