diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-22 22:16:06 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-22 22:16:06 (GMT) |
commit | 992b51fc822addcd91ae1ea44e0df3486e654c3d (patch) | |
tree | 86a28dd4bf00d016c19744f430376f68f2d0009a /tests | |
parent | 14a34c4087e1034699a9b588da8b0a9927479f45 (diff) | |
download | tcl-992b51fc822addcd91ae1ea44e0df3486e654c3d.zip tcl-992b51fc822addcd91ae1ea44e0df3486e654c3d.tar.gz tcl-992b51fc822addcd91ae1ea44e0df3486e654c3d.tar.bz2 |
Rebuild [dict] as a full compiled ensemble.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/dict.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/dict.test b/tests/dict.test index 4d3485b..a296fce 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: dict.test,v 1.21 2007/09/08 22:36:59 dkf Exp $ +# RCS: @(#) $Id: dict.test,v 1.22 2007/11/22 22:16:08 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -35,10 +35,10 @@ proc getOrder {dictVal args} { test dict-1.1 {dict command basic syntax} { list [catch {dict} msg] $msg -} {1 {wrong # args: should be "dict subcommand ?arg ...?"}} +} {1 {wrong # args: should be "dict subcommand ?argument ...?"}} test dict-1.2 {dict command basic syntax} { list [catch {dict ?} msg] $msg -} {1 {bad subcommand "?": must be append, create, exists, filter, for, get, incr, info, keys, lappend, merge, remove, replace, set, size, unset, update, values, or with}} +} {1 {unknown or ambiguous subcommand "?": must be append, create, exists, filter, for, get, incr, info, keys, lappend, merge, remove, replace, set, size, unset, update, values, or with}} test dict-2.1 {dict create command} { dict create |