aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-08-01 11:07:32 +1000
committerSteve Bennett <steveb@workware.net.au>2011-08-01 11:07:32 +1000
commitcbeb3ea3fba64cca44600df912ea04656e0bf7f2 (patch)
tree903a8e1025a9bca520e23d9181a23a1504af3659 /tests
parent511deea93dd23de9794c7e84ece07bad807db789 (diff)
downloadjimtcl-cbeb3ea3fba64cca44600df912ea04656e0bf7f2.zip
jimtcl-cbeb3ea3fba64cca44600df912ea04656e0bf7f2.tar.gz
jimtcl-cbeb3ea3fba64cca44600df912ea04656e0bf7f2.tar.bz2
dict unset should not return error on missing last key
dict unset was returning an error with no message Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r--tests/dict.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test
index dc36b39..31250b1 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -197,5 +197,10 @@ test dict-22.11 {dict with command: no recursive structures [Bug 1786481]} {
string range [append foo OK] end-1 end
} OK
+test dict-23.1 {dict unset missing last level} {
+ set a {b c d e}
+ dict unset a xyz
+ dict size $a
+} 2
testreport