diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-08 16:28:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-08 16:28:03 (GMT) |
| commit | 188cbbf97a74ee64a4df069443432ef1d9255a29 (patch) | |
| tree | 4e0a2650ac4cd11a73132c2a5f1e1f6e062164f4 | |
| parent | b8ad7e6569c1ac14d88d993310013ae3095d00b1 (diff) | |
| download | tcl-188cbbf97a74ee64a4df069443432ef1d9255a29.zip tcl-188cbbf97a74ee64a4df069443432ef1d9255a29.tar.gz tcl-188cbbf97a74ee64a4df069443432ef1d9255a29.tar.bz2 | |
update test for TIP 212
| -rw-r--r-- | tests/dict.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/dict.test b/tests/dict.test index 1318d57..bdb4531 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.8 2004/10/02 17:00:39 dkf Exp $ +# RCS: @(#) $Id: dict.test,v 1.9 2004/10/08 16:28:03 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -38,7 +38,7 @@ test dict-1.1 {dict command basic syntax} { } {1 {wrong # args: should be "dict subcommand ?arg ...?"}} 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, or values}} +} {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}} test dict-2.1 {dict create command} { dict create |