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 | 15f57f3f56a5814b74c6dbd6de47d64bcc404b71 (patch) | |
| tree | a9b17a915c64cabe839d46f2d245253603f390fb /tests | |
| parent | cf850be37c59a3eba3ffe4e91083df63b0884e2d (diff) | |
| download | tcl-15f57f3f56a5814b74c6dbd6de47d64bcc404b71.zip tcl-15f57f3f56a5814b74c6dbd6de47d64bcc404b71.tar.gz tcl-15f57f3f56a5814b74c6dbd6de47d64bcc404b71.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 ...?"}} |