diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-12 20:38:03 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 11:23:44 +1000 |
commit | 93ea2fcea92f79350067d684b29e520eff8eabe8 (patch) | |
tree | a6a81f14530611ffec5f0383785bcac454da3ed7 /tests | |
parent | fe933ad8fdc1069d54fd97a961ef698109c600ae (diff) | |
download | jimtcl-93ea2fcea92f79350067d684b29e520eff8eabe8.zip jimtcl-93ea2fcea92f79350067d684b29e520eff8eabe8.tar.gz jimtcl-93ea2fcea92f79350067d684b29e520eff8eabe8.tar.bz2 |
array: array set to non-dict should fail
Currently returns the error message but does not set JIM_ERR
Also add a test case
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/dict2.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/dict2.test b/tests/dict2.test index 01826dc..2e9bcd4 100644 --- a/tests/dict2.test +++ b/tests/dict2.test @@ -120,6 +120,10 @@ test dict-3.15 {compiled dict get error cleanliness - Bug 2431847} -body { } -returnCodes error -result {key "d" not known in dictionary} test dict-3.16 {dict/list shimmering - Bug 3004007} {set l [list p 1 p 2 q 3];dict get $l q;set l} {p 1 p 2 q 3} test dict-3.17 {dict/list shimmering - Bug 3004007} {set l [list p 1 p 2 q 3];dict get $l q;llength $l} 6 +test dict-3.18 {array set non-dict get command} -constraints jim -returnCodes error -body { + set a one + array set a {a b c d} +} -result {missing value to go with key} test dict-4.1 {dict replace command} { dict replace {a b c d} |