diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-01-22 13:08:15 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-01-22 13:08:15 (GMT) |
| commit | d40680de05ee6071b6e4579157be4d7947a53ddd (patch) | |
| tree | a9b17a915c64cabe839d46f2d245253603f390fb /tests | |
| parent | 4aed2bc2cd16fef4ffe748ec35725686038a4fbb (diff) | |
| download | tcl-d40680de05ee6071b6e4579157be4d7947a53ddd.zip tcl-d40680de05ee6071b6e4579157be4d7947a53ddd.tar.gz tcl-d40680de05ee6071b6e4579157be4d7947a53ddd.tar.bz2 | |
* generic/tclDictObj.c (DictExistsCmd): [Bug 3475264]: Ensure that
errors only ever happen when insufficient arguments are supplied, and
not when a path doesn't exist or a dictionary is poorly formatted (the
two cases can't be easily distinguished).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/dict.test | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tests/dict.test b/tests/dict.test index cfaf36d..5821c32 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -222,9 +222,7 @@ test dict-9.2 {dict exists command} {dict exists {a b} b} 0 test dict-9.3 {dict exists command} {dict exists {a {b c}} a b} 1 test dict-9.4 {dict exists command} {dict exists {a {b c}} a c} 0 test dict-9.5 {dict exists command} {dict exists {a {b c}} b c} 0 -test dict-9.6 {dict exists command} { - list [catch {dict exists {a {b c d}} a c} msg] $msg -} {1 {missing value to go with key}} +test dict-9.6 {dict exists command} {dict exists {a {b c d}} a c} 0 test dict-9.7 {dict exists command} { list [catch {dict exists} msg] $msg } {1 {wrong # args: should be "dict exists dictionary key ?key ...?"}} |