Tcl Source Code

Artifact 5ecc4b679e44fa647c1f10aa4f62c8e7c1dbc533:

0000: 23 20 54 68 69 73 20 74 65 73 74 20 66 69 6c 65  # This test file
0010: 20 63 6f 76 65 72 73 20 74 68 65 20 64 69 63 74   covers the dict
0020: 69 6f 6e 61 72 79 20 6f 62 6a 65 63 74 20 74 79  ionary object ty
0030: 70 65 20 61 6e 64 20 74 68 65 20 64 69 63 74 0a  pe and the dict.
0040: 23 20 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 74  # command used t
0050: 6f 20 77 6f 72 6b 20 77 69 74 68 20 76 61 6c 75  o work with valu
0060: 65 73 20 6f 66 20 74 68 61 74 20 74 79 70 65 2e  es of that type.
0070: 0a 23 0a 23 20 54 68 69 73 20 66 69 6c 65 20 63  .#.# This file c
0080: 6f 6e 74 61 69 6e 73 20 61 20 63 6f 6c 6c 65 63  ontains a collec
0090: 74 69 6f 6e 20 6f 66 20 74 65 73 74 73 20 66 6f  tion of tests fo
00a0: 72 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66  r one or more of
00b0: 20 74 68 65 20 54 63 6c 0a 23 20 62 75 69 6c 74   the Tcl.# built
00c0: 2d 69 6e 20 63 6f 6d 6d 61 6e 64 73 2e 20 53 6f  -in commands. So
00d0: 75 72 63 69 6e 67 20 74 68 69 73 20 66 69 6c 65  urcing this file
00e0: 20 69 6e 74 6f 20 54 63 6c 20 72 75 6e 73 20 74   into Tcl runs t
00f0: 68 65 20 74 65 73 74 73 20 61 6e 64 0a 23 20 67  he tests and.# g
0100: 65 6e 65 72 61 74 65 73 20 6f 75 74 70 75 74 20  enerates output 
0110: 66 6f 72 20 65 72 72 6f 72 73 2e 20 20 4e 6f 20  for errors.  No 
0120: 6f 75 74 70 75 74 20 6d 65 61 6e 73 20 6e 6f 20  output means no 
0130: 65 72 72 6f 72 73 20 77 65 72 65 20 66 6f 75 6e  errors were foun
0140: 64 2e 0a 23 0a 23 20 43 6f 70 79 72 69 67 68 74  d..#.# Copyright
0150: 20 28 63 29 20 32 30 30 33 20 44 6f 6e 61 6c 20   (c) 2003 Donal 
0160: 4b 2e 20 46 65 6c 6c 6f 77 73 0a 23 20 53 65 65  K. Fellows.# See
0170: 20 74 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e   the file "licen
0180: 73 65 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e  se.terms" for in
0190: 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61  formation on usa
01a0: 67 65 20 61 6e 64 20 72 65 64 69 73 74 72 69 62  ge and redistrib
01b0: 75 74 69 6f 6e 0a 23 20 6f 66 20 74 68 69 73 20  ution.# of this 
01c0: 66 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20  file, and for a 
01d0: 44 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c  DISCLAIMER OF AL
01e0: 4c 20 57 41 52 52 41 4e 54 49 45 53 2e 0a 23 0a  L WARRANTIES..#.
01f0: 23 20 52 43 53 3a 20 40 28 23 29 20 24 49 64 24  # RCS: @(#) $Id$
0200: 0a 0a 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 5b  ..if {[lsearch [
0210: 6e 61 6d 65 73 70 61 63 65 20 63 68 69 6c 64 72  namespace childr
0220: 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 5d 20 3d  en] ::tcltest] =
0230: 3d 20 2d 31 7d 20 7b 0a 20 20 20 20 70 61 63 6b  = -1} {.    pack
0240: 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74  age require tclt
0250: 65 73 74 0a 20 20 20 20 6e 61 6d 65 73 70 61 63  est.    namespac
0260: 65 20 69 6d 70 6f 72 74 20 2d 66 6f 72 63 65 20  e import -force 
0270: 3a 3a 74 63 6c 74 65 73 74 3a 3a 2a 0a 7d 0a 0a  ::tcltest::*.}..
0280: 23 20 50 72 6f 63 65 64 75 72 65 20 74 6f 20 68  # Procedure to h
0290: 65 6c 70 20 63 68 65 63 6b 20 74 68 65 20 63 6f  elp check the co
02a0: 6e 74 65 6e 74 73 20 6f 66 20 61 20 64 69 63 74  ntents of a dict
02b0: 69 6f 6e 61 72 79 2e 20 20 4e 6f 74 65 20 74 68  ionary.  Note th
02c0: 61 74 20 77 65 0a 23 20 63 61 6e 27 74 20 6a 75  at we.# can't ju
02d0: 73 74 20 63 6f 6d 70 61 72 65 20 74 68 65 20 73  st compare the s
02e0: 74 72 69 6e 67 20 76 65 72 73 69 6f 6e 20 62 65  tring version be
02f0: 63 61 75 73 65 20 74 68 65 20 6f 72 64 65 72 20  cause the order 
0300: 6f 66 20 74 68 65 0a 23 20 65 6c 65 6d 65 6e 74  of the.# element
0310: 73 20 69 73 20 28 64 65 6c 69 62 65 72 61 74 65  s is (deliberate
0320: 6c 79 29 20 6e 6f 74 20 64 65 66 69 6e 65 64 2e  ly) not defined.
0330: 20 20 54 68 69 73 20 69 73 20 62 65 63 61 75 73    This is becaus
0340: 65 20 69 74 20 69 73 0a 23 20 64 65 70 65 6e 64  e it is.# depend
0350: 65 6e 74 20 6f 6e 20 74 68 65 20 75 6e 64 65 72  ent on the under
0360: 6c 79 69 6e 67 20 68 61 73 68 20 74 61 62 6c 65  lying hash table
0370: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   implementation 
0380: 61 6e 64 20 61 6c 73 6f 0a 23 20 70 6f 74 65 6e  and also.# poten
0390: 74 69 61 6c 6c 79 20 6f 6e 20 74 68 65 20 68 69  tially on the hi
03a0: 73 74 6f 72 79 20 6f 66 20 74 68 65 20 76 61 6c  story of the val
03b0: 75 65 20 69 74 73 65 6c 66 2e 20 20 4e 65 74 20  ue itself.  Net 
03c0: 72 65 73 75 6c 74 3a 20 79 6f 75 0a 23 20 63 61  result: you.# ca
03d0: 6e 6e 6f 74 20 73 61 66 65 6c 79 20 61 73 73 75  nnot safely assu
03e0: 6d 65 20 61 6e 79 74 68 69 6e 67 20 61 62 6f 75  me anything abou
03f0: 74 20 74 68 65 20 6f 72 64 65 72 69 6e 67 20 6f  t the ordering o
0400: 66 20 76 61 6c 75 65 73 2e 0a 70 72 6f 63 20 67  f values..proc g
0410: 65 74 4f 72 64 65 72 20 7b 64 69 63 74 56 61 6c  etOrder {dictVal
0420: 20 61 72 67 73 7d 20 7b 0a 20 20 20 20 66 6f 72   args} {.    for
0430: 65 61 63 68 20 6b 65 79 20 24 61 72 67 73 20 7b  each key $args {
0440: 0a 09 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74  ..lappend result
0450: 20 24 6b 65 79 20 5b 64 69 63 74 20 67 65 74 20   $key [dict get 
0460: 24 64 69 63 74 56 61 6c 20 24 6b 65 79 5d 0a 20  $dictVal $key]. 
0470: 20 20 20 7d 0a 20 20 20 20 6c 61 70 70 65 6e 64     }.    lappend
0480: 20 72 65 73 75 6c 74 20 5b 64 69 63 74 20 73 69   result [dict si
0490: 7a 65 20 24 64 69 63 74 56 61 6c 5d 0a 20 20 20  ze $dictVal].   
04a0: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0a   return $result.
04b0: 7d 0a 0a 74 65 73 74 20 64 69 63 74 2d 31 2e 31  }..test dict-1.1
04c0: 20 7b 64 69 63 74 20 63 6f 6d 6d 61 6e 64 20 62   {dict command b
04d0: 61 73 69 63 20 73 79 6e 74 61 78 7d 20 7b 0a 20  asic syntax} {. 
04e0: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b     list [catch {
04f0: 64 69 63 74 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  dict} msg] $msg.
0500: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
0510: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
0520: 69 63 74 20 73 75 62 63 6f 6d 6d 61 6e 64 20 3f  ict subcommand ?
0530: 61 72 67 20 2e 2e 2e 3f 22 7d 7d 0a 74 65 73 74  arg ...?"}}.test
0540: 20 64 69 63 74 2d 31 2e 32 20 7b 64 69 63 74 20   dict-1.2 {dict 
0550: 63 6f 6d 6d 61 6e 64 20 62 61 73 69 63 20 73 79  command basic sy
0560: 6e 74 61 78 7d 20 7b 0a 20 20 20 20 6c 69 73 74  ntax} {.    list
0570: 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 3f 7d   [catch {dict ?}
0580: 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20   msg] $msg.} {1 
0590: 7b 62 61 64 20 73 75 62 63 6f 6d 6d 61 6e 64 20  {bad subcommand 
05a0: 22 3f 22 3a 20 6d 75 73 74 20 62 65 20 61 70 70  "?": must be app
05b0: 65 6e 64 2c 20 63 72 65 61 74 65 2c 20 65 78 69  end, create, exi
05c0: 73 74 73 2c 20 66 69 6c 74 65 72 2c 20 66 6f 72  sts, filter, for
05d0: 2c 20 67 65 74 2c 20 69 6e 63 72 2c 20 69 6e 66  , get, incr, inf
05e0: 6f 2c 20 6b 65 79 73 2c 20 6c 61 70 70 65 6e 64  o, keys, lappend
05f0: 2c 20 72 65 6d 6f 76 65 2c 20 72 65 70 6c 61 63  , remove, replac
0600: 65 2c 20 73 65 74 2c 20 73 69 7a 65 2c 20 75 6e  e, set, size, un
0610: 73 65 74 2c 20 6f 72 20 76 61 6c 75 65 73 7d 7d  set, or values}}
0620: 0a 0a 74 65 73 74 20 64 69 63 74 2d 32 2e 31 20  ..test dict-2.1 
0630: 7b 64 69 63 74 20 63 72 65 61 74 65 20 63 6f 6d  {dict create com
0640: 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 64 69 63 74  mand} {.    dict
0650: 20 63 72 65 61 74 65 0a 7d 20 7b 7d 0a 74 65 73   create.} {}.tes
0660: 74 20 64 69 63 74 2d 32 2e 32 20 7b 64 69 63 74  t dict-2.2 {dict
0670: 20 63 72 65 61 74 65 20 63 6f 6d 6d 61 6e 64 7d   create command}
0680: 20 7b 0a 20 20 20 20 64 69 63 74 20 63 72 65 61   {.    dict crea
0690: 74 65 20 61 20 62 0a 7d 20 7b 61 20 62 7d 0a 74  te a b.} {a b}.t
06a0: 65 73 74 20 64 69 63 74 2d 32 2e 33 20 7b 64 69  est dict-2.3 {di
06b0: 63 74 20 63 72 65 61 74 65 20 63 6f 6d 6d 61 6e  ct create comman
06c0: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 65 73  d} {.    set res
06d0: 75 6c 74 20 7b 7d 0a 20 20 20 20 73 65 74 20 64  ult {}.    set d
06e0: 69 63 74 20 5b 64 69 63 74 20 63 72 65 61 74 65  ict [dict create
06f0: 20 61 20 62 20 63 20 64 5d 0a 20 20 20 20 23 20   a b c d].    # 
0700: 43 61 6e 27 74 20 63 6f 6d 70 61 72 65 20 64 69  Can't compare di
0710: 72 65 63 74 6c 79 20 61 73 20 6f 72 64 65 72 69  rectly as orderi
0720: 6e 67 20 6f 66 20 76 61 6c 75 65 73 20 69 73 20  ng of values is 
0730: 75 6e 64 65 66 69 6e 65 64 0a 20 20 20 20 66 6f  undefined.    fo
0740: 72 65 61 63 68 20 6b 65 79 20 7b 61 20 63 7d 20  reach key {a c} 
0750: 7b 0a 09 73 65 74 20 69 64 78 20 5b 6c 73 65 61  {..set idx [lsea
0760: 72 63 68 20 2d 65 78 61 63 74 20 24 64 69 63 74  rch -exact $dict
0770: 20 24 6b 65 79 5d 0a 09 69 66 20 7b 24 69 64 78   $key]..if {$idx
0780: 20 26 20 31 7d 20 7b 0a 09 20 20 20 20 65 72 72   & 1} {..    err
0790: 6f 72 20 22 66 6f 75 6e 64 20 24 6b 65 79 20 61  or "found $key a
07a0: 74 20 6f 64 64 20 69 6e 64 65 78 20 24 69 64 78  t odd index $idx
07b0: 20 69 6e 20 24 64 69 63 74 22 0a 09 7d 0a 09 6c   in $dict"..}..l
07c0: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 6c  append result [l
07d0: 69 6e 64 65 78 20 24 64 69 63 74 20 5b 65 78 70  index $dict [exp
07e0: 72 20 7b 24 69 64 78 2b 31 7d 5d 5d 0a 20 20 20  r {$idx+1}]].   
07f0: 20 7d 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c   }.    set resul
0800: 74 0a 7d 20 7b 62 20 64 7d 0a 74 65 73 74 20 64  t.} {b d}.test d
0810: 69 63 74 2d 32 2e 34 20 7b 64 69 63 74 20 63 72  ict-2.4 {dict cr
0820: 65 61 74 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  eate command} {.
0830: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
0840: 7b 64 69 63 74 20 63 72 65 61 74 65 20 61 7d 20  {dict create a} 
0850: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
0860: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
0870: 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 63 72  ould be "dict cr
0880: 65 61 74 65 20 3f 6b 65 79 20 76 61 6c 75 65 20  eate ?key value 
0890: 2e 2e 2e 3f 22 7d 7d 0a 74 65 73 74 20 64 69 63  ...?"}}.test dic
08a0: 74 2d 32 2e 35 20 7b 64 69 63 74 20 63 72 65 61  t-2.5 {dict crea
08b0: 74 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  te command} {.  
08c0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64    list [catch {d
08d0: 69 63 74 20 63 72 65 61 74 65 20 61 20 62 20 63  ict create a b c
08e0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31  } msg] $msg.} {1
08f0: 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   {wrong # args: 
0900: 73 68 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20  should be "dict 
0910: 63 72 65 61 74 65 20 3f 6b 65 79 20 76 61 6c 75  create ?key valu
0920: 65 20 2e 2e 2e 3f 22 7d 7d 0a 0a 74 65 73 74 20  e ...?"}}..test 
0930: 64 69 63 74 2d 33 2e 31 20 7b 64 69 63 74 20 67  dict-3.1 {dict g
0940: 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63  et command} {dic
0950: 74 20 67 65 74 20 7b 61 20 62 7d 20 61 7d 20 62  t get {a b} a} b
0960: 0a 74 65 73 74 20 64 69 63 74 2d 33 2e 32 20 7b  .test dict-3.2 {
0970: 64 69 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64  dict get command
0980: 7d 20 7b 64 69 63 74 20 67 65 74 20 7b 61 20 62  } {dict get {a b
0990: 20 63 20 64 7d 20 61 7d 20 62 0a 74 65 73 74 20   c d} a} b.test 
09a0: 64 69 63 74 2d 33 2e 33 20 7b 64 69 63 74 20 67  dict-3.3 {dict g
09b0: 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63  et command} {dic
09c0: 74 20 67 65 74 20 7b 61 20 62 20 63 20 64 7d 20  t get {a b c d} 
09d0: 63 7d 20 64 0a 74 65 73 74 20 64 69 63 74 2d 33  c} d.test dict-3
09e0: 2e 34 20 7b 64 69 63 74 20 67 65 74 20 63 6f 6d  .4 {dict get com
09f0: 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74  mand} {.    list
0a00: 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 67 65   [catch {dict ge
0a10: 74 20 7b 61 20 62 20 63 20 64 7d 20 62 7d 20 6d  t {a b c d} b} m
0a20: 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6b  sg] $msg.} {1 {k
0a30: 65 79 20 22 62 22 20 6e 6f 74 20 6b 6e 6f 77 6e  ey "b" not known
0a40: 20 69 6e 20 64 69 63 74 69 6f 6e 61 72 79 7d 7d   in dictionary}}
0a50: 0a 74 65 73 74 20 64 69 63 74 2d 33 2e 35 20 7b  .test dict-3.5 {
0a60: 64 69 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64  dict get command
0a70: 7d 20 7b 64 69 63 74 20 67 65 74 20 7b 61 20 7b  } {dict get {a {
0a80: 70 20 71 20 72 20 73 7d 20 62 20 7b 75 20 76 20  p q r s} b {u v 
0a90: 78 20 79 7d 7d 20 61 20 70 7d 20 71 0a 74 65 73  x y}} a p} q.tes
0aa0: 74 20 64 69 63 74 2d 33 2e 36 20 7b 64 69 63 74  t dict-3.6 {dict
0ab0: 20 67 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64   get command} {d
0ac0: 69 63 74 20 67 65 74 20 7b 61 20 7b 70 20 71 20  ict get {a {p q 
0ad0: 72 20 73 7d 20 62 20 7b 75 20 76 20 78 20 79 7d  r s} b {u v x y}
0ae0: 7d 20 61 20 72 7d 20 73 0a 74 65 73 74 20 64 69  } a r} s.test di
0af0: 63 74 2d 33 2e 37 20 7b 64 69 63 74 20 67 65 74  ct-3.7 {dict get
0b00: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20   command} {dict 
0b10: 67 65 74 20 7b 61 20 7b 70 20 71 20 72 20 73 7d  get {a {p q r s}
0b20: 20 62 20 7b 75 20 76 20 78 20 79 7d 7d 20 62 20   b {u v x y}} b 
0b30: 75 7d 20 76 0a 74 65 73 74 20 64 69 63 74 2d 33  u} v.test dict-3
0b40: 2e 38 20 7b 64 69 63 74 20 67 65 74 20 63 6f 6d  .8 {dict get com
0b50: 6d 61 6e 64 7d 20 7b 64 69 63 74 20 67 65 74 20  mand} {dict get 
0b60: 7b 61 20 7b 70 20 71 20 72 20 73 7d 20 62 20 7b  {a {p q r s} b {
0b70: 75 20 76 20 78 20 79 7d 7d 20 62 20 78 7d 20 79  u v x y}} b x} y
0b80: 0a 74 65 73 74 20 64 69 63 74 2d 33 2e 39 20 7b  .test dict-3.9 {
0b90: 64 69 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64  dict get command
0ba0: 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  } {.    list [ca
0bb0: 74 63 68 20 7b 64 69 63 74 20 67 65 74 20 7b 61  tch {dict get {a
0bc0: 20 7b 70 20 71 20 72 20 73 7d 20 62 20 7b 75 20   {p q r s} b {u 
0bd0: 76 20 78 20 79 7d 7d 20 61 20 7a 7d 20 6d 73 67  v x y}} a z} msg
0be0: 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6b 65 79  ] $msg.} {1 {key
0bf0: 20 22 7a 22 20 6e 6f 74 20 6b 6e 6f 77 6e 20 69   "z" not known i
0c00: 6e 20 64 69 63 74 69 6f 6e 61 72 79 7d 7d 0a 74  n dictionary}}.t
0c10: 65 73 74 20 64 69 63 74 2d 33 2e 31 30 20 7b 64  est dict-3.10 {d
0c20: 69 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64 7d  ict get command}
0c30: 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   {.    list [cat
0c40: 63 68 20 7b 64 69 63 74 20 67 65 74 20 7b 61 20  ch {dict get {a 
0c50: 7b 70 20 71 20 72 20 73 7d 20 62 20 7b 75 20 76  {p q r s} b {u v
0c60: 20 78 20 79 7d 7d 20 63 20 7a 7d 20 6d 73 67 5d   x y}} c z} msg]
0c70: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6b 65 79 20   $msg.} {1 {key 
0c80: 22 63 22 20 6e 6f 74 20 6b 6e 6f 77 6e 20 69 6e  "c" not known in
0c90: 20 64 69 63 74 69 6f 6e 61 72 79 7d 7d 0a 74 65   dictionary}}.te
0ca0: 73 74 20 64 69 63 74 2d 33 2e 31 31 20 7b 64 69  st dict-3.11 {di
0cb0: 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64 7d 20  ct get command} 
0cc0: 7b 64 69 63 74 20 67 65 74 20 5b 64 69 63 74 20  {dict get [dict 
0cd0: 63 72 65 61 74 65 20 61 20 62 20 63 20 64 5d 20  create a b c d] 
0ce0: 61 7d 20 62 0a 74 65 73 74 20 64 69 63 74 2d 33  a} b.test dict-3
0cf0: 2e 31 32 20 7b 64 69 63 74 20 67 65 74 20 63 6f  .12 {dict get co
0d00: 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73  mmand} {.    lis
0d10: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 67  t [catch {dict g
0d20: 65 74 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20  et} msg] $msg.} 
0d30: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73  {1 {wrong # args
0d40: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69 63  : should be "dic
0d50: 74 20 67 65 74 20 64 69 63 74 69 6f 6e 61 72 79  t get dictionary
0d60: 20 3f 6b 65 79 20 6b 65 79 20 2e 2e 2e 3f 22 7d   ?key key ...?"}
0d70: 7d 0a 74 65 73 74 20 64 69 63 74 2d 33 2e 31 33  }.test dict-3.13
0d80: 20 7b 64 69 63 74 20 67 65 74 20 63 6f 6d 6d 61   {dict get comma
0d90: 6e 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69  nd} {.    set di
0da0: 63 74 20 5b 64 69 63 74 20 67 65 74 20 7b 61 20  ct [dict get {a 
0db0: 62 20 63 20 64 7d 5d 0a 20 20 20 20 69 66 20 7b  b c d}].    if {
0dc0: 24 64 69 63 74 20 65 71 20 22 61 20 62 20 63 20  $dict eq "a b c 
0dd0: 64 22 7d 20 7b 0a 09 73 75 62 73 74 20 4f 4b 0a  d"} {..subst OK.
0de0: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 64      } elseif {$d
0df0: 69 63 74 20 65 71 20 22 63 20 64 20 61 20 62 22  ict eq "c d a b"
0e00: 7d 20 7b 0a 09 73 75 62 73 74 20 4f 4b 0a 20 20  } {..subst OK.  
0e10: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 65 74 20    } else {..set 
0e20: 64 69 63 74 0a 20 20 20 20 7d 0a 7d 20 4f 4b 0a  dict.    }.} OK.
0e30: 74 65 73 74 20 64 69 63 74 2d 33 2e 31 34 20 7b  test dict-3.14 {
0e40: 64 69 63 74 20 67 65 74 20 63 6f 6d 6d 61 6e 64  dict get command
0e50: 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  } {.    list [ca
0e60: 74 63 68 20 7b 64 69 63 74 20 67 65 74 20 7b 61  tch {dict get {a
0e70: 20 62 20 63 20 64 7d 20 61 20 63 7d 20 6d 73 67   b c d} a c} msg
0e80: 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6d 69 73  ] $msg.} {1 {mis
0e90: 73 69 6e 67 20 76 61 6c 75 65 20 74 6f 20 67 6f  sing value to go
0ea0: 20 77 69 74 68 20 6b 65 79 7d 7d 0a 0a 74 65 73   with key}}..tes
0eb0: 74 20 64 69 63 74 2d 34 2e 31 20 7b 64 69 63 74  t dict-4.1 {dict
0ec0: 20 72 65 70 6c 61 63 65 20 63 6f 6d 6d 61 6e 64   replace command
0ed0: 7d 20 7b 0a 20 20 20 20 67 65 74 4f 72 64 65 72  } {.    getOrder
0ee0: 20 5b 64 69 63 74 20 72 65 70 6c 61 63 65 20 7b   [dict replace {
0ef0: 61 20 62 20 63 20 64 7d 5d 20 61 20 63 0a 7d 20  a b c d}] a c.} 
0f00: 7b 61 20 62 20 63 20 64 20 32 7d 0a 74 65 73 74  {a b c d 2}.test
0f10: 20 64 69 63 74 2d 34 2e 32 20 7b 64 69 63 74 20   dict-4.2 {dict 
0f20: 72 65 70 6c 61 63 65 20 63 6f 6d 6d 61 6e 64 7d  replace command}
0f30: 20 7b 0a 20 20 20 20 67 65 74 4f 72 64 65 72 20   {.    getOrder 
0f40: 5b 64 69 63 74 20 72 65 70 6c 61 63 65 20 7b 61  [dict replace {a
0f50: 20 62 20 63 20 64 7d 20 65 20 66 5d 20 61 20 63   b c d} e f] a c
0f60: 20 65 0a 7d 20 7b 61 20 62 20 63 20 64 20 65 20   e.} {a b c d e 
0f70: 66 20 33 7d 0a 74 65 73 74 20 64 69 63 74 2d 34  f 3}.test dict-4
0f80: 2e 33 20 7b 64 69 63 74 20 72 65 70 6c 61 63 65  .3 {dict replace
0f90: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
0fa0: 67 65 74 4f 72 64 65 72 20 5b 64 69 63 74 20 72  getOrder [dict r
0fb0: 65 70 6c 61 63 65 20 7b 61 20 62 20 63 20 64 7d  eplace {a b c d}
0fc0: 20 63 20 66 5d 20 61 20 63 0a 7d 20 7b 61 20 62   c f] a c.} {a b
0fd0: 20 63 20 66 20 32 7d 0a 74 65 73 74 20 64 69 63   c f 2}.test dic
0fe0: 74 2d 34 2e 34 20 7b 64 69 63 74 20 72 65 70 6c  t-4.4 {dict repl
0ff0: 61 63 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20  ace command} {. 
1000: 20 20 20 67 65 74 4f 72 64 65 72 20 5b 64 69 63     getOrder [dic
1010: 74 20 72 65 70 6c 61 63 65 20 7b 61 20 62 20 63  t replace {a b c
1020: 20 64 7d 20 63 20 78 20 61 20 79 5d 20 61 20 63   d} c x a y] a c
1030: 0a 7d 20 7b 61 20 79 20 63 20 78 20 32 7d 0a 74  .} {a y c x 2}.t
1040: 65 73 74 20 64 69 63 74 2d 34 2e 35 20 7b 64 69  est dict-4.5 {di
1050: 63 74 20 72 65 70 6c 61 63 65 20 63 6f 6d 6d 61  ct replace comma
1060: 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b  nd} {.    list [
1070: 63 61 74 63 68 20 7b 64 69 63 74 20 72 65 70 6c  catch {dict repl
1080: 61 63 65 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  ace} msg] $msg.}
1090: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
10a0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69  s: should be "di
10b0: 63 74 20 72 65 70 6c 61 63 65 20 64 69 63 74 69  ct replace dicti
10c0: 6f 6e 61 72 79 20 3f 6b 65 79 20 76 61 6c 75 65  onary ?key value
10d0: 20 2e 2e 2e 3f 22 7d 7d 0a 74 65 73 74 20 64 69   ...?"}}.test di
10e0: 63 74 2d 34 2e 36 20 7b 64 69 63 74 20 72 65 70  ct-4.6 {dict rep
10f0: 6c 61 63 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  lace command} {.
1100: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
1110: 7b 64 69 63 74 20 72 65 70 6c 61 63 65 20 7b 61  {dict replace {a
1120: 20 61 7d 20 61 7d 20 6d 73 67 5d 20 24 6d 73 67   a} a} msg] $msg
1130: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61  .} {1 {wrong # a
1140: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22  rgs: should be "
1150: 64 69 63 74 20 72 65 70 6c 61 63 65 20 64 69 63  dict replace dic
1160: 74 69 6f 6e 61 72 79 20 3f 6b 65 79 20 76 61 6c  tionary ?key val
1170: 75 65 20 2e 2e 2e 3f 22 7d 7d 0a 74 65 73 74 20  ue ...?"}}.test 
1180: 64 69 63 74 2d 34 2e 37 20 7b 64 69 63 74 20 72  dict-4.7 {dict r
1190: 65 70 6c 61 63 65 20 63 6f 6d 6d 61 6e 64 7d 20  eplace command} 
11a0: 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63  {.    list [catc
11b0: 68 20 7b 64 69 63 74 20 72 65 70 6c 61 63 65 20  h {dict replace 
11c0: 7b 61 20 61 20 61 7d 20 61 20 62 7d 20 6d 73 67  {a a a} a b} msg
11d0: 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6d 69 73  ] $msg.} {1 {mis
11e0: 73 69 6e 67 20 76 61 6c 75 65 20 74 6f 20 67 6f  sing value to go
11f0: 20 77 69 74 68 20 6b 65 79 7d 7d 0a 74 65 73 74   with key}}.test
1200: 20 64 69 63 74 2d 34 2e 38 20 7b 64 69 63 74 20   dict-4.8 {dict 
1210: 72 65 70 6c 61 63 65 20 63 6f 6d 6d 61 6e 64 7d  replace command}
1220: 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   {.    list [cat
1230: 63 68 20 7b 64 69 63 74 20 72 65 70 6c 61 63 65  ch {dict replace
1240: 20 5b 6c 69 73 74 20 61 20 61 20 61 5d 20 61 20   [list a a a] a 
1250: 62 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b  b} msg] $msg.} {
1260: 31 20 7b 6d 69 73 73 69 6e 67 20 76 61 6c 75 65  1 {missing value
1270: 20 74 6f 20 67 6f 20 77 69 74 68 20 6b 65 79 7d   to go with key}
1280: 7d 0a 74 65 73 74 20 64 69 63 74 2d 34 2e 39 20  }.test dict-4.9 
1290: 7b 64 69 63 74 20 72 65 70 6c 61 63 65 20 63 6f  {dict replace co
12a0: 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20 72 65 70  mmand} {dict rep
12b0: 6c 61 63 65 20 5b 6c 69 73 74 20 61 20 61 5d 20  lace [list a a] 
12c0: 61 20 62 7d 20 7b 61 20 62 7d 0a 0a 74 65 73 74  a b} {a b}..test
12d0: 20 64 69 63 74 2d 35 2e 31 20 7b 64 69 63 74 20   dict-5.1 {dict 
12e0: 72 65 6d 6f 76 65 20 63 6f 6d 6d 61 6e 64 7d 20  remove command} 
12f0: 7b 64 69 63 74 20 72 65 6d 6f 76 65 20 7b 61 20  {dict remove {a 
1300: 62 20 63 20 64 7d 20 61 7d 20 7b 63 20 64 7d 0a  b c d} a} {c d}.
1310: 74 65 73 74 20 64 69 63 74 2d 35 2e 32 20 7b 64  test dict-5.2 {d
1320: 69 63 74 20 72 65 6d 6f 76 65 20 63 6f 6d 6d 61  ict remove comma
1330: 6e 64 7d 20 7b 64 69 63 74 20 72 65 6d 6f 76 65  nd} {dict remove
1340: 20 7b 61 20 62 20 63 20 64 7d 20 63 7d 20 7b 61   {a b c d} c} {a
1350: 20 62 7d 0a 74 65 73 74 20 64 69 63 74 2d 35 2e   b}.test dict-5.
1360: 33 20 7b 64 69 63 74 20 72 65 6d 6f 76 65 20 63  3 {dict remove c
1370: 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20 72 65  ommand} {dict re
1380: 6d 6f 76 65 20 7b 61 20 62 20 63 20 64 7d 20 61  move {a b c d} a
1390: 20 63 7d 20 7b 7d 0a 74 65 73 74 20 64 69 63 74   c} {}.test dict
13a0: 2d 35 2e 34 20 7b 64 69 63 74 20 72 65 6d 6f 76  -5.4 {dict remov
13b0: 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74  e command} {dict
13c0: 20 72 65 6d 6f 76 65 20 7b 61 20 62 20 63 20 64   remove {a b c d
13d0: 7d 20 63 20 61 7d 20 7b 7d 0a 74 65 73 74 20 64  } c a} {}.test d
13e0: 69 63 74 2d 35 2e 35 20 7b 64 69 63 74 20 72 65  ict-5.5 {dict re
13f0: 6d 6f 76 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  move command} {.
1400: 20 20 20 20 67 65 74 4f 72 64 65 72 20 5b 64 69      getOrder [di
1410: 63 74 20 72 65 6d 6f 76 65 20 7b 61 20 62 20 63  ct remove {a b c
1420: 20 64 7d 5d 20 61 20 63 0a 7d 20 7b 61 20 62 20   d}] a c.} {a b 
1430: 63 20 64 20 32 7d 0a 74 65 73 74 20 64 69 63 74  c d 2}.test dict
1440: 2d 35 2e 36 20 7b 64 69 63 74 20 72 65 6d 6f 76  -5.6 {dict remov
1450: 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74  e command} {dict
1460: 20 72 65 6d 6f 76 65 20 7b 61 20 62 7d 20 63 7d   remove {a b} c}
1470: 20 7b 61 20 62 7d 0a 74 65 73 74 20 64 69 63 74   {a b}.test dict
1480: 2d 35 2e 37 20 7b 64 69 63 74 20 72 65 6d 6f 76  -5.7 {dict remov
1490: 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20  e command} {.   
14a0: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69   list [catch {di
14b0: 63 74 20 72 65 6d 6f 76 65 7d 20 6d 73 67 5d 20  ct remove} msg] 
14c0: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
14d0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
14e0: 62 65 20 22 64 69 63 74 20 72 65 6d 6f 76 65 20  be "dict remove 
14f0: 64 69 63 74 69 6f 6e 61 72 79 20 3f 6b 65 79 20  dictionary ?key 
1500: 2e 2e 2e 3f 22 7d 7d 0a 0a 74 65 73 74 20 64 69  ...?"}}..test di
1510: 63 74 2d 36 2e 31 20 7b 64 69 63 74 20 6b 65 79  ct-6.1 {dict key
1520: 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74  s command} {dict
1530: 20 6b 65 79 73 20 7b 61 20 62 7d 7d 20 61 0a 74   keys {a b}} a.t
1540: 65 73 74 20 64 69 63 74 2d 36 2e 32 20 7b 64 69  est dict-6.2 {di
1550: 63 74 20 6b 65 79 73 20 63 6f 6d 6d 61 6e 64 7d  ct keys command}
1560: 20 7b 64 69 63 74 20 6b 65 79 73 20 7b 63 20 64   {dict keys {c d
1570: 7d 7d 20 63 0a 74 65 73 74 20 64 69 63 74 2d 36  }} c.test dict-6
1580: 2e 33 20 7b 64 69 63 74 20 6b 65 79 73 20 63 6f  .3 {dict keys co
1590: 6d 6d 61 6e 64 7d 20 7b 6c 73 6f 72 74 20 5b 64  mmand} {lsort [d
15a0: 69 63 74 20 6b 65 79 73 20 7b 61 20 62 20 63 20  ict keys {a b c 
15b0: 64 7d 5d 7d 20 7b 61 20 63 7d 0a 74 65 73 74 20  d}]} {a c}.test 
15c0: 64 69 63 74 2d 36 2e 34 20 7b 64 69 63 74 20 6b  dict-6.4 {dict k
15d0: 65 79 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69  eys command} {di
15e0: 63 74 20 6b 65 79 73 20 7b 61 20 62 20 63 20 64  ct keys {a b c d
15f0: 7d 20 61 7d 20 61 0a 74 65 73 74 20 64 69 63 74  } a} a.test dict
1600: 2d 36 2e 35 20 7b 64 69 63 74 20 6b 65 79 73 20  -6.5 {dict keys 
1610: 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20 6b  command} {dict k
1620: 65 79 73 20 7b 61 20 62 20 63 20 64 7d 20 63 7d  eys {a b c d} c}
1630: 20 63 0a 74 65 73 74 20 64 69 63 74 2d 36 2e 36   c.test dict-6.6
1640: 20 7b 64 69 63 74 20 6b 65 79 73 20 63 6f 6d 6d   {dict keys comm
1650: 61 6e 64 7d 20 7b 64 69 63 74 20 6b 65 79 73 20  and} {dict keys 
1660: 7b 61 20 62 20 63 20 64 7d 20 65 7d 20 7b 7d 0a  {a b c d} e} {}.
1670: 74 65 73 74 20 64 69 63 74 2d 36 2e 37 20 7b 64  test dict-6.7 {d
1680: 69 63 74 20 6b 65 79 73 20 63 6f 6d 6d 61 6e 64  ict keys command
1690: 7d 20 7b 6c 73 6f 72 74 20 5b 64 69 63 74 20 6b  } {lsort [dict k
16a0: 65 79 73 20 7b 61 20 62 20 63 20 64 20 63 61 20  eys {a b c d ca 
16b0: 64 61 7d 20 63 2a 5d 7d 20 7b 63 20 63 61 7d 0a  da} c*]} {c ca}.
16c0: 74 65 73 74 20 64 69 63 74 2d 36 2e 38 20 7b 64  test dict-6.8 {d
16d0: 69 63 74 20 6b 65 79 73 20 63 6f 6d 6d 61 6e 64  ict keys command
16e0: 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  } {.    list [ca
16f0: 74 63 68 20 7b 64 69 63 74 20 6b 65 79 73 7d 20  tch {dict keys} 
1700: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
1710: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
1720: 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 6b 65  ould be "dict ke
1730: 79 73 20 64 69 63 74 69 6f 6e 61 72 79 20 3f 70  ys dictionary ?p
1740: 61 74 74 65 72 6e 3f 22 7d 7d 0a 74 65 73 74 20  attern?"}}.test 
1750: 64 69 63 74 2d 36 2e 39 20 7b 64 69 63 74 20 6b  dict-6.9 {dict k
1760: 65 79 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20  eys command} {. 
1770: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b     list [catch {
1780: 64 69 63 74 20 6b 65 79 73 20 7b 7d 20 61 20 62  dict keys {} a b
1790: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31  } msg] $msg.} {1
17a0: 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   {wrong # args: 
17b0: 73 68 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20  should be "dict 
17c0: 6b 65 79 73 20 64 69 63 74 69 6f 6e 61 72 79 20  keys dictionary 
17d0: 3f 70 61 74 74 65 72 6e 3f 22 7d 7d 0a 74 65 73  ?pattern?"}}.tes
17e0: 74 20 64 69 63 74 2d 36 2e 31 30 20 7b 64 69 63  t dict-6.10 {dic
17f0: 74 20 6b 65 79 73 20 63 6f 6d 6d 61 6e 64 7d 20  t keys command} 
1800: 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63  {.    list [catc
1810: 68 20 7b 64 69 63 74 20 6b 65 79 73 20 61 7d 20  h {dict keys a} 
1820: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
1830: 6d 69 73 73 69 6e 67 20 76 61 6c 75 65 20 74 6f  missing value to
1840: 20 67 6f 20 77 69 74 68 20 6b 65 79 7d 7d 0a 0a   go with key}}..
1850: 74 65 73 74 20 64 69 63 74 2d 37 2e 31 20 7b 64  test dict-7.1 {d
1860: 69 63 74 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61  ict values comma
1870: 6e 64 7d 20 7b 64 69 63 74 20 76 61 6c 75 65 73  nd} {dict values
1880: 20 7b 61 20 62 7d 7d 20 62 0a 74 65 73 74 20 64   {a b}} b.test d
1890: 69 63 74 2d 37 2e 32 20 7b 64 69 63 74 20 76 61  ict-7.2 {dict va
18a0: 6c 75 65 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64  lues command} {d
18b0: 69 63 74 20 76 61 6c 75 65 73 20 7b 63 20 64 7d  ict values {c d}
18c0: 7d 20 64 0a 74 65 73 74 20 64 69 63 74 2d 37 2e  } d.test dict-7.
18d0: 33 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 63  3 {dict values c
18e0: 6f 6d 6d 61 6e 64 7d 20 7b 6c 73 6f 72 74 20 5b  ommand} {lsort [
18f0: 64 69 63 74 20 76 61 6c 75 65 73 20 7b 61 20 62  dict values {a b
1900: 20 63 20 64 7d 5d 7d 20 7b 62 20 64 7d 0a 74 65   c d}]} {b d}.te
1910: 73 74 20 64 69 63 74 2d 37 2e 34 20 7b 64 69 63  st dict-7.4 {dic
1920: 74 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61 6e 64  t values command
1930: 7d 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 7b  } {dict values {
1940: 61 20 62 20 63 20 64 7d 20 62 7d 20 62 0a 74 65  a b c d} b} b.te
1950: 73 74 20 64 69 63 74 2d 37 2e 35 20 7b 64 69 63  st dict-7.5 {dic
1960: 74 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61 6e 64  t values command
1970: 7d 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 7b  } {dict values {
1980: 61 20 62 20 63 20 64 7d 20 64 7d 20 64 0a 74 65  a b c d} d} d.te
1990: 73 74 20 64 69 63 74 2d 37 2e 36 20 7b 64 69 63  st dict-7.6 {dic
19a0: 74 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61 6e 64  t values command
19b0: 7d 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 7b  } {dict values {
19c0: 61 20 62 20 63 20 64 7d 20 65 7d 20 7b 7d 0a 74  a b c d} e} {}.t
19d0: 65 73 74 20 64 69 63 74 2d 37 2e 37 20 7b 64 69  est dict-7.7 {di
19e0: 63 74 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61 6e  ct values comman
19f0: 64 7d 20 7b 6c 73 6f 72 74 20 5b 64 69 63 74 20  d} {lsort [dict 
1a00: 76 61 6c 75 65 73 20 7b 61 20 62 20 63 20 64 20  values {a b c d 
1a10: 63 61 20 64 61 7d 20 64 2a 5d 7d 20 7b 64 20 64  ca da} d*]} {d d
1a20: 61 7d 0a 74 65 73 74 20 64 69 63 74 2d 37 2e 38  a}.test dict-7.8
1a30: 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 63 6f   {dict values co
1a40: 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73  mmand} {.    lis
1a50: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 76  t [catch {dict v
1a60: 61 6c 75 65 73 7d 20 6d 73 67 5d 20 24 6d 73 67  alues} msg] $msg
1a70: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61  .} {1 {wrong # a
1a80: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22  rgs: should be "
1a90: 64 69 63 74 20 76 61 6c 75 65 73 20 64 69 63 74  dict values dict
1aa0: 69 6f 6e 61 72 79 20 3f 70 61 74 74 65 72 6e 3f  ionary ?pattern?
1ab0: 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 37 2e  "}}.test dict-7.
1ac0: 39 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20 63  9 {dict values c
1ad0: 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69  ommand} {.    li
1ae0: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
1af0: 76 61 6c 75 65 73 20 7b 7d 20 61 20 62 7d 20 6d  values {} a b} m
1b00: 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77  sg] $msg.} {1 {w
1b10: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f  rong # args: sho
1b20: 75 6c 64 20 62 65 20 22 64 69 63 74 20 76 61 6c  uld be "dict val
1b30: 75 65 73 20 64 69 63 74 69 6f 6e 61 72 79 20 3f  ues dictionary ?
1b40: 70 61 74 74 65 72 6e 3f 22 7d 7d 0a 74 65 73 74  pattern?"}}.test
1b50: 20 64 69 63 74 2d 37 2e 31 30 20 7b 64 69 63 74   dict-7.10 {dict
1b60: 20 76 61 6c 75 65 73 20 63 6f 6d 6d 61 6e 64 7d   values command}
1b70: 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   {.    list [cat
1b80: 63 68 20 7b 64 69 63 74 20 76 61 6c 75 65 73 20  ch {dict values 
1b90: 61 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b  a} msg] $msg.} {
1ba0: 31 20 7b 6d 69 73 73 69 6e 67 20 76 61 6c 75 65  1 {missing value
1bb0: 20 74 6f 20 67 6f 20 77 69 74 68 20 6b 65 79 7d   to go with key}
1bc0: 7d 0a 0a 74 65 73 74 20 64 69 63 74 2d 38 2e 31  }..test dict-8.1
1bd0: 20 7b 64 69 63 74 20 73 69 7a 65 20 63 6f 6d 6d   {dict size comm
1be0: 61 6e 64 7d 20 7b 64 69 63 74 20 73 69 7a 65 20  and} {dict size 
1bf0: 7b 7d 7d 20 30 0a 74 65 73 74 20 64 69 63 74 2d  {}} 0.test dict-
1c00: 38 2e 32 20 7b 64 69 63 74 20 73 69 7a 65 20 63  8.2 {dict size c
1c10: 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20 73 69  ommand} {dict si
1c20: 7a 65 20 7b 61 20 62 7d 7d 20 31 0a 74 65 73 74  ze {a b}} 1.test
1c30: 20 64 69 63 74 2d 38 2e 33 20 7b 64 69 63 74 20   dict-8.3 {dict 
1c40: 73 69 7a 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64  size command} {d
1c50: 69 63 74 20 73 69 7a 65 20 7b 61 20 62 20 63 20  ict size {a b c 
1c60: 64 7d 7d 20 32 0a 74 65 73 74 20 64 69 63 74 2d  d}} 2.test dict-
1c70: 38 2e 34 20 7b 64 69 63 74 20 73 69 7a 65 20 63  8.4 {dict size c
1c80: 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69  ommand} {.    li
1c90: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
1ca0: 73 69 7a 65 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  size} msg] $msg.
1cb0: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
1cc0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
1cd0: 69 63 74 20 73 69 7a 65 20 64 69 63 74 69 6f 6e  ict size diction
1ce0: 61 72 79 22 7d 7d 0a 74 65 73 74 20 64 69 63 74  ary"}}.test dict
1cf0: 2d 38 2e 35 20 7b 64 69 63 74 20 73 69 7a 65 20  -8.5 {dict size 
1d00: 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c  command} {.    l
1d10: 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74  ist [catch {dict
1d20: 20 73 69 7a 65 20 61 20 62 7d 20 6d 73 67 5d 20   size a b} msg] 
1d30: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
1d40: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
1d50: 62 65 20 22 64 69 63 74 20 73 69 7a 65 20 64 69  be "dict size di
1d60: 63 74 69 6f 6e 61 72 79 22 7d 7d 0a 74 65 73 74  ctionary"}}.test
1d70: 20 64 69 63 74 2d 38 2e 36 20 7b 64 69 63 74 20   dict-8.6 {dict 
1d80: 73 69 7a 65 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  size command} {.
1d90: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
1da0: 7b 64 69 63 74 20 73 69 7a 65 20 61 7d 20 6d 73  {dict size a} ms
1db0: 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6d 69  g] $msg.} {1 {mi
1dc0: 73 73 69 6e 67 20 76 61 6c 75 65 20 74 6f 20 67  ssing value to g
1dd0: 6f 20 77 69 74 68 20 6b 65 79 7d 7d 0a 0a 74 65  o with key}}..te
1de0: 73 74 20 64 69 63 74 2d 39 2e 31 20 7b 64 69 63  st dict-9.1 {dic
1df0: 74 20 65 78 69 73 74 73 20 63 6f 6d 6d 61 6e 64  t exists command
1e00: 7d 20 7b 64 69 63 74 20 65 78 69 73 74 73 20 7b  } {dict exists {
1e10: 61 20 62 7d 20 61 7d 20 31 0a 74 65 73 74 20 64  a b} a} 1.test d
1e20: 69 63 74 2d 39 2e 32 20 7b 64 69 63 74 20 65 78  ict-9.2 {dict ex
1e30: 69 73 74 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64  ists command} {d
1e40: 69 63 74 20 65 78 69 73 74 73 20 7b 61 20 62 7d  ict exists {a b}
1e50: 20 62 7d 20 30 0a 74 65 73 74 20 64 69 63 74 2d   b} 0.test dict-
1e60: 39 2e 33 20 7b 64 69 63 74 20 65 78 69 73 74 73  9.3 {dict exists
1e70: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63 74 20   command} {dict 
1e80: 65 78 69 73 74 73 20 7b 61 20 7b 62 20 63 7d 7d  exists {a {b c}}
1e90: 20 61 20 62 7d 20 31 0a 74 65 73 74 20 64 69 63   a b} 1.test dic
1ea0: 74 2d 39 2e 34 20 7b 64 69 63 74 20 65 78 69 73  t-9.4 {dict exis
1eb0: 74 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 64 69 63  ts command} {dic
1ec0: 74 20 65 78 69 73 74 73 20 7b 61 20 7b 62 20 63  t exists {a {b c
1ed0: 7d 7d 20 61 20 63 7d 20 30 0a 74 65 73 74 20 64  }} a c} 0.test d
1ee0: 69 63 74 2d 39 2e 35 20 7b 64 69 63 74 20 65 78  ict-9.5 {dict ex
1ef0: 69 73 74 73 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  ists command} {.
1f00: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
1f10: 7b 64 69 63 74 20 65 78 69 73 74 73 20 7b 61 20  {dict exists {a 
1f20: 7b 62 20 63 7d 7d 20 62 20 63 7d 20 6d 73 67 5d  {b c}} b c} msg]
1f30: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6b 65 79 20   $msg.} {1 {key 
1f40: 22 62 22 20 6e 6f 74 20 6b 6e 6f 77 6e 20 69 6e  "b" not known in
1f50: 20 64 69 63 74 69 6f 6e 61 72 79 7d 7d 0a 74 65   dictionary}}.te
1f60: 73 74 20 64 69 63 74 2d 39 2e 36 20 7b 64 69 63  st dict-9.6 {dic
1f70: 74 20 65 78 69 73 74 73 20 63 6f 6d 6d 61 6e 64  t exists command
1f80: 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  } {.    list [ca
1f90: 74 63 68 20 7b 64 69 63 74 20 65 78 69 73 74 73  tch {dict exists
1fa0: 20 7b 61 20 7b 62 20 63 20 64 7d 7d 20 61 20 63   {a {b c d}} a c
1fb0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31  } msg] $msg.} {1
1fc0: 20 7b 6d 69 73 73 69 6e 67 20 76 61 6c 75 65 20   {missing value 
1fd0: 74 6f 20 67 6f 20 77 69 74 68 20 6b 65 79 7d 7d  to go with key}}
1fe0: 0a 74 65 73 74 20 64 69 63 74 2d 39 2e 37 20 7b  .test dict-9.7 {
1ff0: 64 69 63 74 20 65 78 69 73 74 73 20 63 6f 6d 6d  dict exists comm
2000: 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20  and} {.    list 
2010: 5b 63 61 74 63 68 20 7b 64 69 63 74 20 65 78 69  [catch {dict exi
2020: 73 74 73 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  sts} msg] $msg.}
2030: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
2040: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69  s: should be "di
2050: 63 74 20 65 78 69 73 74 73 20 64 69 63 74 69 6f  ct exists dictio
2060: 6e 61 72 79 20 6b 65 79 20 3f 6b 65 79 20 2e 2e  nary key ?key ..
2070: 2e 3f 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d  .?"}}.test dict-
2080: 39 2e 38 20 7b 64 69 63 74 20 65 78 69 73 74 73  9.8 {dict exists
2090: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
20a0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63  list [catch {dic
20b0: 74 20 65 78 69 73 74 73 20 7b 7d 7d 20 6d 73 67  t exists {}} msg
20c0: 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f  ] $msg.} {1 {wro
20d0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
20e0: 64 20 62 65 20 22 64 69 63 74 20 65 78 69 73 74  d be "dict exist
20f0: 73 20 64 69 63 74 69 6f 6e 61 72 79 20 6b 65 79  s dictionary key
2100: 20 3f 6b 65 79 20 2e 2e 2e 3f 22 7d 7d 0a 0a 74   ?key ...?"}}..t
2110: 65 73 74 20 64 69 63 74 2d 31 30 2e 31 20 7b 64  est dict-10.1 {d
2120: 69 63 74 20 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64  ict info command
2130: 7d 20 7b 0a 20 20 20 20 23 20 41 63 74 75 61 6c  } {.    # Actual
2140: 20 73 74 72 69 6e 67 20 72 65 74 75 72 6e 65 64   string returned
2150: 20 62 79 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64   by this command
2160: 20 69 73 20 75 6e 64 65 66 69 6e 65 64 3b 20 69   is undefined; i
2170: 74 20 69 73 0a 20 20 20 20 23 20 69 6e 74 65 6e  t is.    # inten
2180: 64 65 64 20 66 6f 72 20 68 75 6d 61 6e 20 63 6f  ded for human co
2190: 6e 73 75 6d 70 74 69 6f 6e 20 61 6e 64 20 6e 6f  nsumption and no
21a0: 74 20 66 6f 72 20 75 73 65 20 62 79 20 73 63 72  t for use by scr
21b0: 69 70 74 73 2e 0a 20 20 20 20 64 69 63 74 20 69  ipts..    dict i
21c0: 6e 66 6f 20 7b 7d 0a 20 20 20 20 73 75 62 73 74  nfo {}.    subst
21d0: 20 7b 7d 0a 7d 20 7b 7d 0a 74 65 73 74 20 64 69   {}.} {}.test di
21e0: 63 74 2d 31 30 2e 32 20 7b 64 69 63 74 20 69 6e  ct-10.2 {dict in
21f0: 66 6f 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  fo command} {.  
2200: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64    list [catch {d
2210: 69 63 74 20 69 6e 66 6f 7d 20 6d 73 67 5d 20 24  ict info} msg] $
2220: 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20  msg.} {1 {wrong 
2230: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
2240: 65 20 22 64 69 63 74 20 69 6e 66 6f 20 64 69 63  e "dict info dic
2250: 74 69 6f 6e 61 72 79 22 7d 7d 0a 74 65 73 74 20  tionary"}}.test 
2260: 64 69 63 74 2d 31 30 2e 33 20 7b 64 69 63 74 20  dict-10.3 {dict 
2270: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  info command} {.
2280: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
2290: 7b 64 69 63 74 20 69 6e 66 6f 20 7b 7d 20 78 7d  {dict info {} x}
22a0: 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20   msg] $msg.} {1 
22b0: 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  {wrong # args: s
22c0: 68 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 69  hould be "dict i
22d0: 6e 66 6f 20 64 69 63 74 69 6f 6e 61 72 79 22 7d  nfo dictionary"}
22e0: 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 30 2e 34  }.test dict-10.4
22f0: 20 7b 64 69 63 74 20 69 6e 66 6f 20 63 6f 6d 6d   {dict info comm
2300: 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20  and} {.    list 
2310: 5b 63 61 74 63 68 20 7b 64 69 63 74 20 69 6e 66  [catch {dict inf
2320: 6f 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  o x} msg] $msg.}
2330: 20 7b 31 20 7b 6d 69 73 73 69 6e 67 20 76 61 6c   {1 {missing val
2340: 75 65 20 74 6f 20 67 6f 20 77 69 74 68 20 6b 65  ue to go with ke
2350: 79 7d 7d 0a 0a 74 65 73 74 20 64 69 63 74 2d 31  y}}..test dict-1
2360: 31 2e 31 20 7b 64 69 63 74 20 69 6e 63 72 20 63  1.1 {dict incr c
2370: 6f 6d 6d 61 6e 64 3a 20 75 6e 73 68 61 72 65 64  ommand: unshared
2380: 20 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 73 65   value} {.    se
2390: 74 20 64 69 63 74 76 20 5b 64 69 63 74 20 63 72  t dictv [dict cr
23a0: 65 61 74 65 20 5c 0a 09 20 20 20 20 61 20 5b 73  eate \..    a [s
23b0: 74 72 69 6e 67 20 69 6e 64 65 78 20 22 3d 30 3d  tring index "=0=
23c0: 22 20 31 5d 20 5c 0a 09 20 20 20 20 62 20 5b 65  " 1] \..    b [e
23d0: 78 70 72 20 7b 31 2b 32 7d 5d 20 5c 0a 09 20 20  xpr {1+2}] \..  
23e0: 20 20 63 20 5b 65 78 70 72 20 7b 77 69 64 65 28    c [expr {wide(
23f0: 30 78 38 30 30 30 30 30 30 30 29 2b 31 7d 5d 5d  0x80000000)+1}]]
2400: 0a 20 20 20 20 67 65 74 4f 72 64 65 72 20 5b 64  .    getOrder [d
2410: 69 63 74 20 69 6e 63 72 20 64 69 63 74 76 20 61  ict incr dictv a
2420: 5d 20 61 20 62 20 63 0a 7d 20 7b 61 20 31 20 62  ] a b c.} {a 1 b
2430: 20 33 20 63 20 32 31 34 37 34 38 33 36 34 39 20   3 c 2147483649 
2440: 33 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 31 2e  3}.test dict-11.
2450: 32 20 7b 64 69 63 74 20 69 6e 63 72 20 63 6f 6d  2 {dict incr com
2460: 6d 61 6e 64 3a 20 75 6e 73 68 61 72 65 64 20 76  mand: unshared v
2470: 61 6c 75 65 7d 20 7b 0a 20 20 20 20 73 65 74 20  alue} {.    set 
2480: 64 69 63 74 76 20 5b 64 69 63 74 20 63 72 65 61  dictv [dict crea
2490: 74 65 20 5c 0a 09 20 20 20 20 61 20 5b 73 74 72  te \..    a [str
24a0: 69 6e 67 20 69 6e 64 65 78 20 22 3d 30 3d 22 20  ing index "=0=" 
24b0: 31 5d 20 5c 0a 09 20 20 20 20 62 20 5b 65 78 70  1] \..    b [exp
24c0: 72 20 7b 31 2b 32 7d 5d 20 5c 0a 09 20 20 20 20  r {1+2}] \..    
24d0: 63 20 5b 65 78 70 72 20 7b 77 69 64 65 28 30 78  c [expr {wide(0x
24e0: 38 30 30 30 30 30 30 30 29 2b 31 7d 5d 5d 0a 20  80000000)+1}]]. 
24f0: 20 20 20 67 65 74 4f 72 64 65 72 20 5b 64 69 63     getOrder [dic
2500: 74 20 69 6e 63 72 20 64 69 63 74 76 20 62 5d 20  t incr dictv b] 
2510: 61 20 62 20 63 0a 7d 20 7b 61 20 30 20 62 20 34  a b c.} {a 0 b 4
2520: 20 63 20 32 31 34 37 34 38 33 36 34 39 20 33 7d   c 2147483649 3}
2530: 0a 74 65 73 74 20 64 69 63 74 2d 31 31 2e 33 20  .test dict-11.3 
2540: 7b 64 69 63 74 20 69 6e 63 72 20 63 6f 6d 6d 61  {dict incr comma
2550: 6e 64 3a 20 75 6e 73 68 61 72 65 64 20 76 61 6c  nd: unshared val
2560: 75 65 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69  ue} {.    set di
2570: 63 74 76 20 5b 64 69 63 74 20 63 72 65 61 74 65  ctv [dict create
2580: 20 5c 0a 09 20 20 20 20 61 20 5b 73 74 72 69 6e   \..    a [strin
2590: 67 20 69 6e 64 65 78 20 22 3d 30 3d 22 20 31 5d  g index "=0=" 1]
25a0: 20 5c 0a 09 20 20 20 20 62 20 5b 65 78 70 72 20   \..    b [expr 
25b0: 7b 31 2b 32 7d 5d 20 5c 0a 09 20 20 20 20 63 20  {1+2}] \..    c 
25c0: 5b 65 78 70 72 20 7b 77 69 64 65 28 30 78 38 30  [expr {wide(0x80
25d0: 30 30 30 30 30 30 29 2b 31 7d 5d 5d 0a 20 20 20  000000)+1}]].   
25e0: 20 67 65 74 4f 72 64 65 72 20 5b 64 69 63 74 20   getOrder [dict 
25f0: 69 6e 63 72 20 64 69 63 74 76 20 63 5d 20 61 20  incr dictv c] a 
2600: 62 20 63 0a 7d 20 7b 61 20 30 20 62 20 33 20 63  b c.} {a 0 b 3 c
2610: 20 32 31 34 37 34 38 33 36 35 30 20 33 7d 0a 74   2147483650 3}.t
2620: 65 73 74 20 64 69 63 74 2d 31 31 2e 34 20 7b 64  est dict-11.4 {d
2630: 69 63 74 20 69 6e 63 72 20 63 6f 6d 6d 61 6e 64  ict incr command
2640: 3a 20 73 68 61 72 65 64 20 76 61 6c 75 65 7d 20  : shared value} 
2650: 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74 76 20  {.    set dictv 
2660: 5b 64 69 63 74 20 63 72 65 61 74 65 20 61 20 30  [dict create a 0
2670: 20 62 20 5b 65 78 70 72 20 7b 31 2b 32 7d 5d 20   b [expr {1+2}] 
2680: 63 20 5b 65 78 70 72 20 7b 77 69 64 65 28 30 78  c [expr {wide(0x
2690: 38 30 30 30 30 30 30 30 29 2b 31 7d 5d 5d 0a 20  80000000)+1}]]. 
26a0: 20 20 20 73 65 74 20 73 68 61 72 69 6e 67 20 5b     set sharing [
26b0: 64 69 63 74 20 76 61 6c 75 65 73 20 24 64 69 63  dict values $dic
26c0: 74 76 5d 0a 20 20 20 20 67 65 74 4f 72 64 65 72  tv].    getOrder
26d0: 20 5b 64 69 63 74 20 69 6e 63 72 20 64 69 63 74   [dict incr dict
26e0: 76 20 61 5d 20 61 20 62 20 63 0a 7d 20 7b 61 20  v a] a b c.} {a 
26f0: 31 20 62 20 33 20 63 20 32 31 34 37 34 38 33 36  1 b 3 c 21474836
2700: 34 39 20 33 7d 0a 74 65 73 74 20 64 69 63 74 2d  49 3}.test dict-
2710: 31 31 2e 35 20 7b 64 69 63 74 20 69 6e 63 72 20  11.5 {dict incr 
2720: 63 6f 6d 6d 61 6e 64 3a 20 73 68 61 72 65 64 20  command: shared 
2730: 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 73 65 74  value} {.    set
2740: 20 64 69 63 74 76 20 5b 64 69 63 74 20 63 72 65   dictv [dict cre
2750: 61 74 65 20 61 20 30 20 62 20 5b 65 78 70 72 20  ate a 0 b [expr 
2760: 7b 31 2b 32 7d 5d 20 63 20 5b 65 78 70 72 20 7b  {1+2}] c [expr {
2770: 77 69 64 65 28 30 78 38 30 30 30 30 30 30 30 29  wide(0x80000000)
2780: 2b 31 7d 5d 5d 0a 20 20 20 20 73 65 74 20 73 68  +1}]].    set sh
2790: 61 72 69 6e 67 20 5b 64 69 63 74 20 76 61 6c 75  aring [dict valu
27a0: 65 73 20 24 64 69 63 74 76 5d 0a 20 20 20 20 67  es $dictv].    g
27b0: 65 74 4f 72 64 65 72 20 5b 64 69 63 74 20 69 6e  etOrder [dict in
27c0: 63 72 20 64 69 63 74 76 20 62 5d 20 61 20 62 20  cr dictv b] a b 
27d0: 63 0a 7d 20 7b 61 20 30 20 62 20 34 20 63 20 32  c.} {a 0 b 4 c 2
27e0: 31 34 37 34 38 33 36 34 39 20 33 7d 0a 74 65 73  147483649 3}.tes
27f0: 74 20 64 69 63 74 2d 31 31 2e 36 20 7b 64 69 63  t dict-11.6 {dic
2800: 74 20 69 6e 63 72 20 63 6f 6d 6d 61 6e 64 3a 20  t incr command: 
2810: 73 68 61 72 65 64 20 76 61 6c 75 65 7d 20 7b 0a  shared value} {.
2820: 20 20 20 20 73 65 74 20 64 69 63 74 76 20 5b 64      set dictv [d
2830: 69 63 74 20 63 72 65 61 74 65 20 61 20 30 20 62  ict create a 0 b
2840: 20 5b 65 78 70 72 20 7b 31 2b 32 7d 5d 20 63 20   [expr {1+2}] c 
2850: 5b 65 78 70 72 20 7b 77 69 64 65 28 30 78 38 30  [expr {wide(0x80
2860: 30 30 30 30 30 30 29 2b 31 7d 5d 5d 0a 20 20 20  000000)+1}]].   
2870: 20 73 65 74 20 73 68 61 72 69 6e 67 20 5b 64 69   set sharing [di
2880: 63 74 20 76 61 6c 75 65 73 20 24 64 69 63 74 76  ct values $dictv
2890: 5d 0a 20 20 20 20 67 65 74 4f 72 64 65 72 20 5b  ].    getOrder [
28a0: 64 69 63 74 20 69 6e 63 72 20 64 69 63 74 76 20  dict incr dictv 
28b0: 63 5d 20 61 20 62 20 63 0a 7d 20 7b 61 20 30 20  c] a b c.} {a 0 
28c0: 62 20 33 20 63 20 32 31 34 37 34 38 33 36 35 30  b 3 c 2147483650
28d0: 20 33 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 31   3}.test dict-11
28e0: 2e 37 20 7b 64 69 63 74 20 69 6e 63 72 20 63 6f  .7 {dict incr co
28f0: 6d 6d 61 6e 64 3a 20 75 6e 6b 6e 6f 77 6e 20 76  mmand: unknown v
2900: 61 6c 75 65 73 7d 20 7b 0a 20 20 20 20 73 65 74  alues} {.    set
2910: 20 64 69 63 74 76 20 5b 64 69 63 74 20 63 72 65   dictv [dict cre
2920: 61 74 65 20 61 20 30 20 62 20 5b 65 78 70 72 20  ate a 0 b [expr 
2930: 7b 31 2b 32 7d 5d 20 63 20 5b 65 78 70 72 20 7b  {1+2}] c [expr {
2940: 77 69 64 65 28 30 78 38 30 30 30 30 30 30 30 29  wide(0x80000000)
2950: 2b 31 7d 5d 5d 0a 20 20 20 20 67 65 74 4f 72 64  +1}]].    getOrd
2960: 65 72 20 5b 64 69 63 74 20 69 6e 63 72 20 64 69  er [dict incr di
2970: 63 74 76 20 64 5d 20 61 20 62 20 63 20 64 0a 7d  ctv d] a b c d.}
2980: 20 7b 61 20 30 20 62 20 33 20 63 20 32 31 34 37   {a 0 b 3 c 2147
2990: 34 38 33 36 34 39 20 64 20 31 20 34 7d 0a 74 65  483649 d 1 4}.te
29a0: 73 74 20 64 69 63 74 2d 31 31 2e 38 20 7b 64 69  st dict-11.8 {di
29b0: 63 74 20 69 6e 63 72 20 63 6f 6d 6d 61 6e 64 7d  ct incr command}
29c0: 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74 76   {.    set dictv
29d0: 20 7b 61 20 31 7d 0a 20 20 20 20 64 69 63 74 20   {a 1}.    dict 
29e0: 69 6e 63 72 20 64 69 63 74 76 20 61 20 32 0a 7d  incr dictv a 2.}
29f0: 20 7b 61 20 33 7d 0a 74 65 73 74 20 64 69 63 74   {a 3}.test dict
2a00: 2d 31 31 2e 39 20 7b 64 69 63 74 20 69 6e 63 72  -11.9 {dict incr
2a10: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
2a20: 73 65 74 20 64 69 63 74 76 20 7b 61 20 64 75 6d  set dictv {a dum
2a30: 6d 79 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  my}.    list [ca
2a40: 74 63 68 20 7b 64 69 63 74 20 69 6e 63 72 20 64  tch {dict incr d
2a50: 69 63 74 76 20 61 7d 20 6d 73 67 5d 20 24 6d 73  ictv a} msg] $ms
2a60: 67 0a 7d 20 7b 31 20 7b 65 78 70 65 63 74 65 64  g.} {1 {expected
2a70: 20 69 6e 74 65 67 65 72 20 62 75 74 20 67 6f 74   integer but got
2a80: 20 22 64 75 6d 6d 79 22 7d 7d 0a 74 65 73 74 20   "dummy"}}.test 
2a90: 64 69 63 74 2d 31 31 2e 31 30 20 7b 64 69 63 74  dict-11.10 {dict
2aa0: 20 69 6e 63 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b   incr command} {
2ab0: 0a 20 20 20 20 73 65 74 20 64 69 63 74 76 20 7b  .    set dictv {
2ac0: 61 20 31 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63  a 1}.    list [c
2ad0: 61 74 63 68 20 7b 64 69 63 74 20 69 6e 63 72 20  atch {dict incr 
2ae0: 64 69 63 74 76 20 61 20 64 75 6d 6d 79 7d 20 6d  dictv a dummy} m
2af0: 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 65  sg] $msg.} {1 {e
2b00: 78 70 65 63 74 65 64 20 69 6e 74 65 67 65 72 20  xpected integer 
2b10: 62 75 74 20 67 6f 74 20 22 64 75 6d 6d 79 22 7d  but got "dummy"}
2b20: 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 31 2e 31  }.test dict-11.1
2b30: 31 20 7b 64 69 63 74 20 69 6e 63 72 20 63 6f 6d  1 {dict incr com
2b40: 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 63 61 74 63  mand} {.    catc
2b50: 68 20 7b 75 6e 73 65 74 20 64 69 63 74 76 7d 0a  h {unset dictv}.
2b60: 20 20 20 20 64 69 63 74 20 69 6e 63 72 20 64 69      dict incr di
2b70: 63 74 76 20 61 0a 7d 20 7b 61 20 31 7d 0a 74 65  ctv a.} {a 1}.te
2b80: 73 74 20 64 69 63 74 2d 31 31 2e 31 32 20 7b 64  st dict-11.12 {d
2b90: 69 63 74 20 69 6e 63 72 20 63 6f 6d 6d 61 6e 64  ict incr command
2ba0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74  } {.    set dict
2bb0: 76 20 61 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  v a.    list [ca
2bc0: 74 63 68 20 7b 64 69 63 74 20 69 6e 63 72 20 64  tch {dict incr d
2bd0: 69 63 74 76 20 61 7d 20 6d 73 67 5d 20 24 6d 73  ictv a} msg] $ms
2be0: 67 0a 7d 20 7b 31 20 7b 6d 69 73 73 69 6e 67 20  g.} {1 {missing 
2bf0: 76 61 6c 75 65 20 74 6f 20 67 6f 20 77 69 74 68  value to go with
2c00: 20 6b 65 79 7d 7d 0a 74 65 73 74 20 64 69 63 74   key}}.test dict
2c10: 2d 31 31 2e 31 33 20 7b 64 69 63 74 20 69 6e 63  -11.13 {dict inc
2c20: 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20  r command} {.   
2c30: 20 73 65 74 20 64 69 63 74 76 20 61 0a 20 20 20   set dictv a.   
2c40: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69   list [catch {di
2c50: 63 74 20 69 6e 63 72 20 64 69 63 74 76 20 61 20  ct incr dictv a 
2c60: 61 20 61 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  a a} msg] $msg.}
2c70: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
2c80: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69  s: should be "di
2c90: 63 74 20 69 6e 63 72 20 76 61 72 4e 61 6d 65 20  ct incr varName 
2ca0: 6b 65 79 20 3f 69 6e 63 72 65 6d 65 6e 74 3f 22  key ?increment?"
2cb0: 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 31 2e  }}.test dict-11.
2cc0: 31 34 20 7b 64 69 63 74 20 69 6e 63 72 20 63 6f  14 {dict incr co
2cd0: 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 73 65 74  mmand} {.    set
2ce0: 20 64 69 63 74 76 20 61 0a 20 20 20 20 6c 69 73   dictv a.    lis
2cf0: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 69  t [catch {dict i
2d00: 6e 63 72 20 64 69 63 74 76 7d 20 6d 73 67 5d 20  ncr dictv} msg] 
2d10: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
2d20: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
2d30: 62 65 20 22 64 69 63 74 20 69 6e 63 72 20 76 61  be "dict incr va
2d40: 72 4e 61 6d 65 20 6b 65 79 20 3f 69 6e 63 72 65  rName key ?incre
2d50: 6d 65 6e 74 3f 22 7d 7d 0a 74 65 73 74 20 64 69  ment?"}}.test di
2d60: 63 74 2d 31 31 2e 31 35 20 7b 64 69 63 74 20 69  ct-11.15 {dict i
2d70: 6e 63 72 20 63 6f 6d 6d 61 6e 64 3a 20 77 72 69  ncr command: wri
2d80: 74 65 20 66 61 69 6c 75 72 65 7d 20 7b 0a 20 20  te failure} {.  
2d90: 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 64    catch {unset d
2da0: 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65 74 20  ictVar}.    set 
2db0: 64 69 63 74 56 61 72 28 62 6c 6f 63 6b 29 20 7b  dictVar(block) {
2dc0: 7d 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c 74  }.    set result
2dd0: 20 5b 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64   [list [catch {d
2de0: 69 63 74 20 69 6e 63 72 20 64 69 63 74 56 61 72  ict incr dictVar
2df0: 20 61 7d 20 6d 73 67 5d 20 24 6d 73 67 5d 0a 20   a} msg] $msg]. 
2e00: 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20     catch {unset 
2e10: 64 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65 74  dictVar}.    set
2e20: 20 72 65 73 75 6c 74 0a 7d 20 7b 31 20 7b 63 61   result.} {1 {ca
2e30: 6e 27 74 20 73 65 74 20 22 64 69 63 74 56 61 72  n't set "dictVar
2e40: 22 3a 20 76 61 72 69 61 62 6c 65 20 69 73 20 61  ": variable is a
2e50: 72 72 61 79 7d 7d 0a 0a 74 65 73 74 20 64 69 63  rray}}..test dic
2e60: 74 2d 31 32 2e 31 20 7b 64 69 63 74 20 6c 61 70  t-12.1 {dict lap
2e70: 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  pend command} {.
2e80: 20 20 20 20 73 65 74 20 64 69 63 74 76 20 7b 61      set dictv {a
2e90: 20 61 7d 0a 20 20 20 20 64 69 63 74 20 6c 61 70   a}.    dict lap
2ea0: 70 65 6e 64 20 64 69 63 74 76 20 61 0a 7d 20 7b  pend dictv a.} {
2eb0: 61 20 61 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  a a}.test dict-1
2ec0: 32 2e 32 20 7b 64 69 63 74 20 6c 61 70 70 65 6e  2.2 {dict lappen
2ed0: 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20  d command} {.   
2ee0: 20 73 65 74 20 64 69 63 74 76 20 7b 61 20 61 7d   set dictv {a a}
2ef0: 0a 20 20 20 20 73 65 74 20 73 68 61 72 69 6e 67  .    set sharing
2f00: 20 5b 64 69 63 74 20 76 61 6c 75 65 73 20 24 64   [dict values $d
2f10: 69 63 74 76 5d 0a 20 20 20 20 64 69 63 74 20 6c  ictv].    dict l
2f20: 61 70 70 65 6e 64 20 64 69 63 74 76 20 61 20 62  append dictv a b
2f30: 0a 7d 20 7b 61 20 7b 61 20 62 7d 7d 0a 74 65 73  .} {a {a b}}.tes
2f40: 74 20 64 69 63 74 2d 31 32 2e 33 20 7b 64 69 63  t dict-12.3 {dic
2f50: 74 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e  t lappend comman
2f60: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  d} {.    set dic
2f70: 74 76 20 7b 61 20 61 7d 0a 20 20 20 20 64 69 63  tv {a a}.    dic
2f80: 74 20 6c 61 70 70 65 6e 64 20 64 69 63 74 76 20  t lappend dictv 
2f90: 61 20 62 20 63 0a 7d 20 7b 61 20 7b 61 20 62 20  a b c.} {a {a b 
2fa0: 63 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 32  c}}.test dict-12
2fb0: 2e 32 20 7b 64 69 63 74 20 6c 61 70 70 65 6e 64  .2 {dict lappend
2fc0: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
2fd0: 73 65 74 20 64 69 63 74 76 20 5b 64 69 63 74 20  set dictv [dict 
2fe0: 63 72 65 61 74 65 20 61 20 5b 73 74 72 69 6e 67  create a [string
2ff0: 20 69 6e 64 65 78 20 3d 61 3d 20 31 5d 5d 0a 20   index =a= 1]]. 
3000: 20 20 20 64 69 63 74 20 6c 61 70 70 65 6e 64 20     dict lappend 
3010: 64 69 63 74 76 20 61 20 62 0a 7d 20 7b 61 20 7b  dictv a b.} {a {
3020: 61 20 62 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d  a b}}.test dict-
3030: 31 32 2e 34 20 7b 64 69 63 74 20 6c 61 70 70 65  12.4 {dict lappe
3040: 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  nd command} {.  
3050: 20 20 73 65 74 20 64 69 63 74 76 20 7b 7d 0a 20    set dictv {}. 
3060: 20 20 20 64 69 63 74 20 6c 61 70 70 65 6e 64 20     dict lappend 
3070: 64 69 63 74 76 20 61 20 78 20 79 20 7a 0a 7d 20  dictv a x y z.} 
3080: 7b 61 20 7b 78 20 79 20 7a 7d 7d 0a 74 65 73 74  {a {x y z}}.test
3090: 20 64 69 63 74 2d 31 32 2e 35 20 7b 64 69 63 74   dict-12.5 {dict
30a0: 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64   lappend command
30b0: 7d 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 75  } {.    catch {u
30c0: 6e 73 65 74 20 64 69 63 74 76 7d 0a 20 20 20 20  nset dictv}.    
30d0: 64 69 63 74 20 6c 61 70 70 65 6e 64 20 64 69 63  dict lappend dic
30e0: 74 76 20 61 20 62 0a 7d 20 7b 61 20 62 7d 0a 74  tv a b.} {a b}.t
30f0: 65 73 74 20 64 69 63 74 2d 31 32 2e 36 20 7b 64  est dict-12.6 {d
3100: 69 63 74 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d  ict lappend comm
3110: 61 6e 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64  and} {.    set d
3120: 69 63 74 76 20 61 0a 20 20 20 20 6c 69 73 74 20  ictv a.    list 
3130: 5b 63 61 74 63 68 20 7b 64 69 63 74 20 6c 61 70  [catch {dict lap
3140: 70 65 6e 64 20 64 69 63 74 76 20 61 20 61 7d 20  pend dictv a a} 
3150: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
3160: 6d 69 73 73 69 6e 67 20 76 61 6c 75 65 20 74 6f  missing value to
3170: 20 67 6f 20 77 69 74 68 20 6b 65 79 7d 7d 0a 74   go with key}}.t
3180: 65 73 74 20 64 69 63 74 2d 31 32 2e 37 20 7b 64  est dict-12.7 {d
3190: 69 63 74 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d  ict lappend comm
31a0: 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20  and} {.    list 
31b0: 5b 63 61 74 63 68 20 7b 64 69 63 74 20 6c 61 70  [catch {dict lap
31c0: 70 65 6e 64 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  pend} msg] $msg.
31d0: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
31e0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
31f0: 69 63 74 20 6c 61 70 70 65 6e 64 20 76 61 72 4e  ict lappend varN
3200: 61 6d 65 20 6b 65 79 20 3f 76 61 6c 75 65 20 2e  ame key ?value .
3210: 2e 2e 3f 22 7d 7d 0a 74 65 73 74 20 64 69 63 74  ..?"}}.test dict
3220: 2d 31 32 2e 38 20 7b 64 69 63 74 20 6c 61 70 70  -12.8 {dict lapp
3230: 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20  end command} {. 
3240: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b     list [catch {
3250: 64 69 63 74 20 6c 61 70 70 65 6e 64 20 64 69 63  dict lappend dic
3260: 74 76 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20  tv} msg] $msg.} 
3270: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73  {1 {wrong # args
3280: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69 63  : should be "dic
3290: 74 20 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d  t lappend varNam
32a0: 65 20 6b 65 79 20 3f 76 61 6c 75 65 20 2e 2e 2e  e key ?value ...
32b0: 3f 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  ?"}}.test dict-1
32c0: 32 2e 39 20 7b 64 69 63 74 20 6c 61 70 70 65 6e  2.9 {dict lappen
32d0: 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20  d command} {.   
32e0: 20 73 65 74 20 64 69 63 74 76 20 5b 64 69 63 74   set dictv [dict
32f0: 20 63 72 65 61 74 65 20 61 20 22 5c 7b 22 5d 0a   create a "\{"].
3300: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
3310: 7b 64 69 63 74 20 6c 61 70 70 65 6e 64 20 64 69  {dict lappend di
3320: 63 74 76 20 61 20 61 7d 20 6d 73 67 5d 20 24 6d  ctv a a} msg] $m
3330: 73 67 0a 7d 20 7b 31 20 7b 75 6e 6d 61 74 63 68  sg.} {1 {unmatch
3340: 65 64 20 6f 70 65 6e 20 62 72 61 63 65 20 69 6e  ed open brace in
3350: 20 6c 69 73 74 7d 7d 0a 74 65 73 74 20 64 69 63   list}}.test dic
3360: 74 2d 31 32 2e 31 30 20 7b 64 69 63 74 20 6c 61  t-12.10 {dict la
3370: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 3a 20 77  ppend command: w
3380: 72 69 74 65 20 66 61 69 6c 75 72 65 7d 20 7b 0a  rite failure} {.
3390: 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74      catch {unset
33a0: 20 64 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65   dictVar}.    se
33b0: 74 20 64 69 63 74 56 61 72 28 62 6c 6f 63 6b 29  t dictVar(block)
33c0: 20 7b 7d 0a 20 20 20 20 73 65 74 20 72 65 73 75   {}.    set resu
33d0: 6c 74 20 5b 6c 69 73 74 20 5b 63 61 74 63 68 20  lt [list [catch 
33e0: 7b 64 69 63 74 20 6c 61 70 70 65 6e 64 20 64 69  {dict lappend di
33f0: 63 74 56 61 72 20 61 20 78 7d 20 6d 73 67 5d 20  ctVar a x} msg] 
3400: 24 6d 73 67 5d 0a 20 20 20 20 63 61 74 63 68 20  $msg].    catch 
3410: 7b 75 6e 73 65 74 20 64 69 63 74 56 61 72 7d 0a  {unset dictVar}.
3420: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 0a 7d      set result.}
3430: 20 7b 31 20 7b 63 61 6e 27 74 20 73 65 74 20 22   {1 {can't set "
3440: 64 69 63 74 56 61 72 22 3a 20 76 61 72 69 61 62  dictVar": variab
3450: 6c 65 20 69 73 20 61 72 72 61 79 7d 7d 0a 0a 74  le is array}}..t
3460: 65 73 74 20 64 69 63 74 2d 31 33 2e 31 20 7b 64  est dict-13.1 {d
3470: 69 63 74 20 61 70 70 65 6e 64 20 63 6f 6d 6d 61  ict append comma
3480: 6e 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69  nd} {.    set di
3490: 63 74 76 20 7b 61 20 61 7d 0a 20 20 20 20 64 69  ctv {a a}.    di
34a0: 63 74 20 61 70 70 65 6e 64 20 64 69 63 74 76 20  ct append dictv 
34b0: 61 0a 7d 20 7b 61 20 61 7d 0a 74 65 73 74 20 64  a.} {a a}.test d
34c0: 69 63 74 2d 31 33 2e 32 20 7b 64 69 63 74 20 61  ict-13.2 {dict a
34d0: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b  ppend command} {
34e0: 0a 20 20 20 20 73 65 74 20 64 69 63 74 76 20 7b  .    set dictv {
34f0: 61 20 61 7d 0a 20 20 20 20 73 65 74 20 73 68 61  a a}.    set sha
3500: 72 69 6e 67 20 5b 64 69 63 74 20 76 61 6c 75 65  ring [dict value
3510: 73 20 24 64 69 63 74 76 5d 0a 20 20 20 20 64 69  s $dictv].    di
3520: 63 74 20 61 70 70 65 6e 64 20 64 69 63 74 76 20  ct append dictv 
3530: 61 20 62 0a 7d 20 7b 61 20 61 62 7d 0a 74 65 73  a b.} {a ab}.tes
3540: 74 20 64 69 63 74 2d 31 33 2e 33 20 7b 64 69 63  t dict-13.3 {dic
3550: 74 20 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64  t append command
3560: 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74  } {.    set dict
3570: 76 20 7b 61 20 61 7d 0a 20 20 20 20 64 69 63 74  v {a a}.    dict
3580: 20 61 70 70 65 6e 64 20 64 69 63 74 76 20 61 20   append dictv a 
3590: 62 20 63 0a 7d 20 7b 61 20 61 62 63 7d 0a 74 65  b c.} {a abc}.te
35a0: 73 74 20 64 69 63 74 2d 31 33 2e 32 20 7b 64 69  st dict-13.2 {di
35b0: 63 74 20 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e  ct append comman
35c0: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  d} {.    set dic
35d0: 74 76 20 5b 64 69 63 74 20 63 72 65 61 74 65 20  tv [dict create 
35e0: 61 20 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20  a [string index 
35f0: 3d 61 3d 20 31 5d 5d 0a 20 20 20 20 64 69 63 74  =a= 1]].    dict
3600: 20 61 70 70 65 6e 64 20 64 69 63 74 76 20 61 20   append dictv a 
3610: 62 0a 7d 20 7b 61 20 61 62 7d 0a 74 65 73 74 20  b.} {a ab}.test 
3620: 64 69 63 74 2d 31 33 2e 34 20 7b 64 69 63 74 20  dict-13.4 {dict 
3630: 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20  append command} 
3640: 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74 76 20  {.    set dictv 
3650: 7b 7d 0a 20 20 20 20 64 69 63 74 20 61 70 70 65  {}.    dict appe
3660: 6e 64 20 64 69 63 74 76 20 61 20 78 20 79 20 7a  nd dictv a x y z
3670: 0a 7d 20 7b 61 20 78 79 7a 7d 0a 74 65 73 74 20  .} {a xyz}.test 
3680: 64 69 63 74 2d 31 33 2e 35 20 7b 64 69 63 74 20  dict-13.5 {dict 
3690: 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20  append command} 
36a0: 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73  {.    catch {uns
36b0: 65 74 20 64 69 63 74 76 7d 0a 20 20 20 20 64 69  et dictv}.    di
36c0: 63 74 20 61 70 70 65 6e 64 20 64 69 63 74 76 20  ct append dictv 
36d0: 61 20 62 0a 7d 20 7b 61 20 62 7d 0a 74 65 73 74  a b.} {a b}.test
36e0: 20 64 69 63 74 2d 31 33 2e 36 20 7b 64 69 63 74   dict-13.6 {dict
36f0: 20 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d   append command}
3700: 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74 76   {.    set dictv
3710: 20 61 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   a.    list [cat
3720: 63 68 20 7b 64 69 63 74 20 61 70 70 65 6e 64 20  ch {dict append 
3730: 64 69 63 74 76 20 61 20 61 7d 20 6d 73 67 5d 20  dictv a a} msg] 
3740: 24 6d 73 67 0a 7d 20 7b 31 20 7b 6d 69 73 73 69  $msg.} {1 {missi
3750: 6e 67 20 76 61 6c 75 65 20 74 6f 20 67 6f 20 77  ng value to go w
3760: 69 74 68 20 6b 65 79 7d 7d 0a 74 65 73 74 20 64  ith key}}.test d
3770: 69 63 74 2d 31 33 2e 37 20 7b 64 69 63 74 20 61  ict-13.7 {dict a
3780: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 7d 20 7b  ppend command} {
3790: 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68  .    list [catch
37a0: 20 7b 64 69 63 74 20 61 70 70 65 6e 64 7d 20 6d   {dict append} m
37b0: 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77  sg] $msg.} {1 {w
37c0: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f  rong # args: sho
37d0: 75 6c 64 20 62 65 20 22 64 69 63 74 20 61 70 70  uld be "dict app
37e0: 65 6e 64 20 76 61 72 4e 61 6d 65 20 6b 65 79 20  end varName key 
37f0: 3f 76 61 6c 75 65 20 2e 2e 2e 3f 22 7d 7d 0a 74  ?value ...?"}}.t
3800: 65 73 74 20 64 69 63 74 2d 31 33 2e 38 20 7b 64  est dict-13.8 {d
3810: 69 63 74 20 61 70 70 65 6e 64 20 63 6f 6d 6d 61  ict append comma
3820: 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b  nd} {.    list [
3830: 63 61 74 63 68 20 7b 64 69 63 74 20 61 70 70 65  catch {dict appe
3840: 6e 64 20 64 69 63 74 76 7d 20 6d 73 67 5d 20 24  nd dictv} msg] $
3850: 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20  msg.} {1 {wrong 
3860: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
3870: 65 20 22 64 69 63 74 20 61 70 70 65 6e 64 20 76  e "dict append v
3880: 61 72 4e 61 6d 65 20 6b 65 79 20 3f 76 61 6c 75  arName key ?valu
3890: 65 20 2e 2e 2e 3f 22 7d 7d 0a 74 65 73 74 20 64  e ...?"}}.test d
38a0: 69 63 74 2d 31 33 2e 39 20 7b 64 69 63 74 20 61  ict-13.9 {dict a
38b0: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 3a 20 77  ppend command: w
38c0: 72 69 74 65 20 66 61 69 6c 75 72 65 7d 20 7b 0a  rite failure} {.
38d0: 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74      catch {unset
38e0: 20 64 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65   dictVar}.    se
38f0: 74 20 64 69 63 74 56 61 72 28 62 6c 6f 63 6b 29  t dictVar(block)
3900: 20 7b 7d 0a 20 20 20 20 73 65 74 20 72 65 73 75   {}.    set resu
3910: 6c 74 20 5b 6c 69 73 74 20 5b 63 61 74 63 68 20  lt [list [catch 
3920: 7b 64 69 63 74 20 61 70 70 65 6e 64 20 64 69 63  {dict append dic
3930: 74 56 61 72 20 61 20 78 7d 20 6d 73 67 5d 20 24  tVar a x} msg] $
3940: 6d 73 67 5d 0a 20 20 20 20 63 61 74 63 68 20 7b  msg].    catch {
3950: 75 6e 73 65 74 20 64 69 63 74 56 61 72 7d 0a 20  unset dictVar}. 
3960: 20 20 20 73 65 74 20 72 65 73 75 6c 74 0a 7d 20     set result.} 
3970: 7b 31 20 7b 63 61 6e 27 74 20 73 65 74 20 22 64  {1 {can't set "d
3980: 69 63 74 56 61 72 22 3a 20 76 61 72 69 61 62 6c  ictVar": variabl
3990: 65 20 69 73 20 61 72 72 61 79 7d 7d 0a 0a 74 65  e is array}}..te
39a0: 73 74 20 64 69 63 74 2d 31 34 2e 31 20 7b 64 69  st dict-14.1 {di
39b0: 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 3a 20  ct for command: 
39c0: 73 79 6e 74 61 78 7d 20 7b 0a 20 20 20 20 6c 69  syntax} {.    li
39d0: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
39e0: 66 6f 72 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  for} msg] $msg.}
39f0: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
3a00: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69  s: should be "di
3a10: 63 74 20 66 6f 72 20 7b 6b 65 79 56 61 72 20 76  ct for {keyVar v
3a20: 61 6c 75 65 56 61 72 7d 20 64 69 63 74 69 6f 6e  alueVar} diction
3a30: 61 72 79 20 73 63 72 69 70 74 22 7d 7d 0a 74 65  ary script"}}.te
3a40: 73 74 20 64 69 63 74 2d 31 34 2e 32 20 7b 64 69  st dict-14.2 {di
3a50: 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 3a 20  ct for command: 
3a60: 73 79 6e 74 61 78 7d 20 7b 0a 20 20 20 20 6c 69  syntax} {.    li
3a70: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
3a80: 66 6f 72 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67  for x} msg] $msg
3a90: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61  .} {1 {wrong # a
3aa0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22  rgs: should be "
3ab0: 64 69 63 74 20 66 6f 72 20 7b 6b 65 79 56 61 72  dict for {keyVar
3ac0: 20 76 61 6c 75 65 56 61 72 7d 20 64 69 63 74 69   valueVar} dicti
3ad0: 6f 6e 61 72 79 20 73 63 72 69 70 74 22 7d 7d 0a  onary script"}}.
3ae0: 74 65 73 74 20 64 69 63 74 2d 31 34 2e 33 20 7b  test dict-14.3 {
3af0: 64 69 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64  dict for command
3b00: 3a 20 73 79 6e 74 61 78 7d 20 7b 0a 20 20 20 20  : syntax} {.    
3b10: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63  list [catch {dic
3b20: 74 20 66 6f 72 20 78 20 78 7d 20 6d 73 67 5d 20  t for x x} msg] 
3b30: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
3b40: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
3b50: 62 65 20 22 64 69 63 74 20 66 6f 72 20 7b 6b 65  be "dict for {ke
3b60: 79 56 61 72 20 76 61 6c 75 65 56 61 72 7d 20 64  yVar valueVar} d
3b70: 69 63 74 69 6f 6e 61 72 79 20 73 63 72 69 70 74  ictionary script
3b80: 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 34  "}}.test dict-14
3b90: 2e 34 20 7b 64 69 63 74 20 66 6f 72 20 63 6f 6d  .4 {dict for com
3ba0: 6d 61 6e 64 3a 20 73 79 6e 74 61 78 7d 20 7b 0a  mand: syntax} {.
3bb0: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
3bc0: 7b 64 69 63 74 20 66 6f 72 20 78 20 78 20 78 20  {dict for x x x 
3bd0: 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b  x} msg] $msg.} {
3be0: 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  1 {wrong # args:
3bf0: 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69 63 74   should be "dict
3c00: 20 66 6f 72 20 7b 6b 65 79 56 61 72 20 76 61 6c   for {keyVar val
3c10: 75 65 56 61 72 7d 20 64 69 63 74 69 6f 6e 61 72  ueVar} dictionar
3c20: 79 20 73 63 72 69 70 74 22 7d 7d 0a 74 65 73 74  y script"}}.test
3c30: 20 64 69 63 74 2d 31 34 2e 35 20 7b 64 69 63 74   dict-14.5 {dict
3c40: 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 3a 20 73 79   for command: sy
3c50: 6e 74 61 78 7d 20 7b 0a 20 20 20 20 6c 69 73 74  ntax} {.    list
3c60: 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 66 6f   [catch {dict fo
3c70: 72 20 78 20 78 20 78 7d 20 6d 73 67 5d 20 24 6d  r x x x} msg] $m
3c80: 73 67 0a 7d 20 7b 31 20 7b 6d 75 73 74 20 68 61  sg.} {1 {must ha
3c90: 76 65 20 65 78 61 63 74 6c 79 20 74 77 6f 20 76  ve exactly two v
3ca0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 7d 7d 0a  ariable names}}.
3cb0: 74 65 73 74 20 64 69 63 74 2d 31 34 2e 36 20 7b  test dict-14.6 {
3cc0: 64 69 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64  dict for command
3cd0: 3a 20 73 79 6e 74 61 78 7d 20 7b 0a 20 20 20 20  : syntax} {.    
3ce0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63  list [catch {dic
3cf0: 74 20 66 6f 72 20 7b 78 20 78 20 78 7d 20 78 20  t for {x x x} x 
3d00: 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b  x} msg] $msg.} {
3d10: 31 20 7b 6d 75 73 74 20 68 61 76 65 20 65 78 61  1 {must have exa
3d20: 63 74 6c 79 20 74 77 6f 20 76 61 72 69 61 62 6c  ctly two variabl
3d30: 65 20 6e 61 6d 65 73 7d 7d 0a 74 65 73 74 20 64  e names}}.test d
3d40: 69 63 74 2d 31 34 2e 37 20 7b 64 69 63 74 20 66  ict-14.7 {dict f
3d50: 6f 72 20 63 6f 6d 6d 61 6e 64 3a 20 73 79 6e 74  or command: synt
3d60: 61 78 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b  ax} {.    list [
3d70: 63 61 74 63 68 20 7b 64 69 63 74 20 66 6f 72 20  catch {dict for 
3d80: 22 5c 7b 78 22 20 78 20 78 7d 20 6d 73 67 5d 20  "\{x" x x} msg] 
3d90: 24 6d 73 67 0a 7d 20 7b 31 20 7b 75 6e 6d 61 74  $msg.} {1 {unmat
3da0: 63 68 65 64 20 6f 70 65 6e 20 62 72 61 63 65 20  ched open brace 
3db0: 69 6e 20 6c 69 73 74 7d 7d 0a 74 65 73 74 20 64  in list}}.test d
3dc0: 69 63 74 2d 31 34 2e 38 20 7b 64 69 63 74 20 66  ict-14.8 {dict f
3dd0: 6f 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  or command} {.  
3de0: 20 20 23 20 54 68 69 73 20 74 65 73 74 20 63 6f    # This test co
3df0: 6e 66 69 72 6d 73 20 74 68 61 74 20 5b 64 69 63  nfirms that [dic
3e00: 74 20 6b 65 79 73 5d 2c 20 5b 64 69 63 74 20 76  t keys], [dict v
3e10: 61 6c 75 65 73 5d 20 61 6e 64 20 5b 64 69 63 74  alues] and [dict
3e20: 20 66 6f 72 5d 0a 20 20 20 20 23 20 61 6c 6c 20   for].    # all 
3e30: 74 72 61 76 65 72 73 65 20 61 20 64 69 63 74 69  traverse a dicti
3e40: 6f 6e 61 72 79 20 69 6e 20 74 68 65 20 73 61 6d  onary in the sam
3e50: 65 20 6f 72 64 65 72 2e 0a 20 20 20 20 73 65 74  e order..    set
3e60: 20 64 69 63 74 76 20 7b 61 20 41 20 62 20 42 20   dictv {a A b B 
3e70: 63 20 43 7d 0a 20 20 20 20 73 65 74 20 6b 65 79  c C}.    set key
3e80: 73 20 7b 7d 0a 20 20 20 20 73 65 74 20 76 61 6c  s {}.    set val
3e90: 75 65 73 20 7b 7d 0a 20 20 20 20 64 69 63 74 20  ues {}.    dict 
3ea0: 66 6f 72 20 7b 6b 20 76 7d 20 24 64 69 63 74 76  for {k v} $dictv
3eb0: 20 7b 0a 09 6c 61 70 70 65 6e 64 20 6b 65 79 73   {..lappend keys
3ec0: 20 24 6b 0a 09 6c 61 70 70 65 6e 64 20 76 61 6c   $k..lappend val
3ed0: 75 65 73 20 24 76 0a 20 20 20 20 7d 0a 20 20 20  ues $v.    }.   
3ee0: 20 73 65 74 20 72 65 73 75 6c 74 20 5b 65 78 70   set result [exp
3ef0: 72 20 7b 0a 09 24 6b 65 79 73 20 65 71 20 5b 64  r {..$keys eq [d
3f00: 69 63 74 20 6b 65 79 73 20 24 64 69 63 74 76 5d  ict keys $dictv]
3f10: 20 26 26 20 24 76 61 6c 75 65 73 20 65 71 20 5b   && $values eq [
3f20: 64 69 63 74 20 76 61 6c 75 65 73 20 24 64 69 63  dict values $dic
3f30: 74 76 5d 0a 20 20 20 20 7d 5d 0a 20 20 20 20 65  tv].    }].    e
3f40: 78 70 72 20 7b 24 72 65 73 75 6c 74 20 3f 20 22  xpr {$result ? "
3f50: 59 45 53 22 20 3a 20 5b 6c 69 73 74 20 22 4e 4f  YES" : [list "NO
3f60: 22 20 24 64 69 63 74 76 20 24 6b 65 79 73 20 24  " $dictv $keys $
3f70: 76 61 6c 75 65 73 5d 7d 0a 7d 20 59 45 53 0a 74  values]}.} YES.t
3f80: 65 73 74 20 64 69 63 74 2d 31 34 2e 39 20 7b 64  est dict-14.9 {d
3f90: 69 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 7d  ict for command}
3fa0: 20 7b 0a 20 20 20 20 64 69 63 74 20 66 6f 72 20   {.    dict for 
3fb0: 7b 6b 20 76 7d 20 7b 7d 20 7b 0a 09 65 72 72 6f  {k v} {} {..erro
3fc0: 72 20 22 75 6e 65 78 70 65 63 74 65 64 20 65 78  r "unexpected ex
3fd0: 65 63 75 74 69 6f 6e 20 6f 66 20 27 64 69 63 74  ecution of 'dict
3fe0: 20 66 6f 72 27 20 62 6f 64 79 22 0a 20 20 20 20   for' body".    
3ff0: 7d 0a 7d 20 7b 7d 0a 74 65 73 74 20 64 69 63 74  }.} {}.test dict
4000: 2d 31 34 2e 31 30 20 7b 64 69 63 74 20 66 6f 72  -14.10 {dict for
4010: 20 63 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70 74   command: script
4020: 20 72 65 73 75 6c 74 73 7d 20 7b 0a 20 20 20 20   results} {.    
4030: 73 65 74 20 74 69 6d 65 73 20 30 0a 20 20 20 20  set times 0.    
4040: 64 69 63 74 20 66 6f 72 20 7b 6b 20 76 7d 20 7b  dict for {k v} {
4050: 61 20 61 20 62 20 62 7d 20 7b 0a 09 69 6e 63 72  a a b b} {..incr
4060: 20 74 69 6d 65 73 0a 09 63 6f 6e 74 69 6e 75 65   times..continue
4070: 0a 09 65 72 72 6f 72 20 22 73 68 6f 75 6c 64 6e  ..error "shouldn
4080: 27 74 20 67 65 74 20 68 65 72 65 22 0a 20 20 20  't get here".   
4090: 20 7d 0a 20 20 20 20 73 65 74 20 74 69 6d 65 73   }.    set times
40a0: 0a 7d 20 32 0a 74 65 73 74 20 64 69 63 74 2d 31  .} 2.test dict-1
40b0: 34 2e 31 31 20 7b 64 69 63 74 20 66 6f 72 20 63  4.11 {dict for c
40c0: 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70 74 20 72  ommand: script r
40d0: 65 73 75 6c 74 73 7d 20 7b 0a 20 20 20 20 73 65  esults} {.    se
40e0: 74 20 74 69 6d 65 73 20 30 0a 20 20 20 20 64 69  t times 0.    di
40f0: 63 74 20 66 6f 72 20 7b 6b 20 76 7d 20 7b 61 20  ct for {k v} {a 
4100: 61 20 62 20 62 7d 20 7b 0a 09 69 6e 63 72 20 74  a b b} {..incr t
4110: 69 6d 65 73 0a 09 62 72 65 61 6b 0a 09 65 72 72  imes..break..err
4120: 6f 72 20 22 73 68 6f 75 6c 64 6e 27 74 20 67 65  or "shouldn't ge
4130: 74 20 68 65 72 65 22 0a 20 20 20 20 7d 0a 20 20  t here".    }.  
4140: 20 20 73 65 74 20 74 69 6d 65 73 0a 7d 20 31 0a    set times.} 1.
4150: 74 65 73 74 20 64 69 63 74 2d 31 34 2e 31 32 20  test dict-14.12 
4160: 7b 64 69 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e  {dict for comman
4170: 64 3a 20 73 63 72 69 70 74 20 72 65 73 75 6c 74  d: script result
4180: 73 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 69 6d  s} {.    set tim
4190: 65 73 20 30 0a 20 20 20 20 6c 69 73 74 20 5b 63  es 0.    list [c
41a0: 61 74 63 68 20 7b 0a 09 64 69 63 74 20 66 6f 72  atch {..dict for
41b0: 20 7b 6b 20 76 7d 20 7b 61 20 61 20 62 20 62 7d   {k v} {a a b b}
41c0: 20 7b 0a 09 20 20 20 20 69 6e 63 72 20 74 69 6d   {..    incr tim
41d0: 65 73 0a 09 20 20 20 20 65 72 72 6f 72 20 74 65  es..    error te
41e0: 73 74 0a 09 7d 0a 20 20 20 20 7d 20 6d 73 67 5d  st..}.    } msg]
41f0: 20 24 6d 73 67 20 24 74 69 6d 65 73 20 24 3a 3a   $msg $times $::
4200: 65 72 72 6f 72 49 6e 66 6f 0a 7d 20 7b 31 20 74  errorInfo.} {1 t
4210: 65 73 74 20 31 20 7b 74 65 73 74 0a 20 20 20 20  est 1 {test.    
4220: 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0a  while executing.
4230: 22 65 72 72 6f 72 20 74 65 73 74 22 0a 20 20 20  "error test".   
4240: 20 28 22 64 69 63 74 20 66 6f 72 22 20 62 6f 64   ("dict for" bod
4250: 79 20 6c 69 6e 65 20 33 29 0a 20 20 20 20 69 6e  y line 3).    in
4260: 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 74 68 69  voked from withi
4270: 6e 0a 22 64 69 63 74 20 66 6f 72 20 7b 6b 20 76  n."dict for {k v
4280: 7d 20 7b 61 20 61 20 62 20 62 7d 20 7b 0a 09 20  } {a a b b} {.. 
4290: 20 20 20 69 6e 63 72 20 74 69 6d 65 73 0a 09 20     incr times.. 
42a0: 20 20 20 65 72 72 6f 72 20 74 65 73 74 0a 09 7d     error test..}
42b0: 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 34  "}}.test dict-14
42c0: 2e 31 33 20 7b 64 69 63 74 20 66 6f 72 20 63 6f  .13 {dict for co
42d0: 6d 6d 61 6e 64 3a 20 73 63 72 69 70 74 20 72 65  mmand: script re
42e0: 73 75 6c 74 73 7d 20 7b 0a 20 20 20 20 70 72 6f  sults} {.    pro
42f0: 63 20 64 69 63 74 74 65 73 74 20 7b 7d 20 7b 0a  c dicttest {} {.
4300: 09 72 65 6e 61 6d 65 20 64 69 63 74 74 65 73 74  .rename dicttest
4310: 20 7b 7d 0a 09 64 69 63 74 20 66 6f 72 20 7b 6b   {}..dict for {k
4320: 20 76 7d 20 7b 61 20 62 7d 20 7b 0a 09 20 20 20   v} {a b} {..   
4330: 20 72 65 74 75 72 6e 20 6f 6b 2c 24 6b 2c 24 76   return ok,$k,$v
4340: 0a 09 20 20 20 20 65 72 72 6f 72 20 22 73 6b 69  ..    error "ski
4350: 70 70 65 64 20 72 65 74 75 72 6e 20 63 6f 6d 70  pped return comp
4360: 6c 65 74 65 6c 79 22 0a 09 7d 0a 09 65 72 72 6f  letely"..}..erro
4370: 72 20 22 72 65 74 75 72 6e 20 64 69 64 6e 27 74  r "return didn't
4380: 20 67 6f 20 66 61 72 20 65 6e 6f 75 67 68 22 0a   go far enough".
4390: 20 20 20 20 7d 0a 20 20 20 20 64 69 63 74 74 65      }.    dictte
43a0: 73 74 0a 7d 20 6f 6b 2c 61 2c 62 0a 74 65 73 74  st.} ok,a,b.test
43b0: 20 64 69 63 74 2d 31 34 2e 31 34 20 7b 64 69 63   dict-14.14 {dic
43c0: 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 3a 20 68  t for command: h
43d0: 61 6e 64 6c 65 20 72 65 70 72 65 73 65 6e 74 61  andle representa
43e0: 74 69 6f 6e 20 6c 6f 73 73 7d 20 7b 0a 20 20 20  tion loss} {.   
43f0: 20 73 65 74 20 64 69 63 74 56 61 72 20 7b 61 20   set dictVar {a 
4400: 62 20 63 20 64 20 65 20 66 20 67 20 68 7d 0a 20  b c d e f g h}. 
4410: 20 20 20 73 65 74 20 6b 65 79 73 20 7b 7d 0a 20     set keys {}. 
4420: 20 20 20 73 65 74 20 76 61 6c 75 65 73 20 7b 7d     set values {}
4430: 0a 20 20 20 20 64 69 63 74 20 66 6f 72 20 7b 6b  .    dict for {k
4440: 20 76 7d 20 24 64 69 63 74 56 61 72 20 7b 0a 09   v} $dictVar {..
4450: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 64 69  if {[llength $di
4460: 63 74 56 61 72 5d 7d 20 7b 0a 09 20 20 20 20 6c  ctVar]} {..    l
4470: 61 70 70 65 6e 64 20 6b 65 79 73 20 24 6b 0a 09  append keys $k..
4480: 20 20 20 20 6c 61 70 70 65 6e 64 20 76 61 6c 75      lappend valu
4490: 65 73 20 24 76 0a 09 7d 0a 20 20 20 20 7d 0a 20  es $v..}.    }. 
44a0: 20 20 20 6c 69 73 74 20 5b 6c 73 6f 72 74 20 24     list [lsort $
44b0: 6b 65 79 73 5d 20 5b 6c 73 6f 72 74 20 24 76 61  keys] [lsort $va
44c0: 6c 75 65 73 5d 0a 7d 20 7b 7b 61 20 63 20 65 20  lues].} {{a c e 
44d0: 67 7d 20 7b 62 20 64 20 66 20 68 7d 7d 0a 74 65  g} {b d f h}}.te
44e0: 73 74 20 64 69 63 74 2d 31 34 2e 31 35 20 7b 64  st dict-14.15 {d
44f0: 69 63 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 3a  ict for command:
4500: 20 6b 65 79 73 20 61 72 65 20 75 6e 69 71 75 65   keys are unique
4510: 20 61 6e 64 20 69 74 65 72 61 74 65 64 20 6f 76   and iterated ov
4520: 65 72 20 6f 6e 63 65 20 6f 6e 6c 79 7d 20 7b 0a  er once only} {.
4530: 20 20 20 20 73 65 74 20 64 69 63 74 56 61 72 20      set dictVar 
4540: 7b 61 31 20 61 20 61 32 20 62 20 62 31 20 63 20  {a1 a a2 b b1 c 
4550: 62 32 20 64 20 66 6f 6f 20 62 61 72 20 62 61 72  b2 d foo bar bar
4560: 20 66 6f 6f 7d 0a 20 20 20 20 63 61 74 63 68 20   foo}.    catch 
4570: 7b 75 6e 73 65 74 20 61 63 63 75 6d 7d 0a 20 20  {unset accum}.  
4580: 20 20 61 72 72 61 79 20 73 65 74 20 61 63 63 75    array set accu
4590: 6d 20 7b 7d 0a 20 20 20 20 64 69 63 74 20 66 6f  m {}.    dict fo
45a0: 72 20 7b 6b 20 76 7d 20 24 64 69 63 74 56 61 72  r {k v} $dictVar
45b0: 20 7b 0a 09 61 70 70 65 6e 64 20 61 63 63 75 6d   {..append accum
45c0: 28 24 6b 29 20 24 76 2c 0a 20 20 20 20 7d 0a 20  ($k) $v,.    }. 
45d0: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c     set result [l
45e0: 73 6f 72 74 20 5b 61 72 72 61 79 20 6e 61 6d 65  sort [array name
45f0: 73 20 61 63 63 75 6d 5d 5d 0a 20 20 20 20 6c 61  s accum]].    la
4600: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 3a 0a 20  ppend result :. 
4610: 20 20 20 66 6f 72 65 61 63 68 20 6b 20 24 72 65     foreach k $re
4620: 73 75 6c 74 20 7b 0a 09 63 61 74 63 68 20 7b 6c  sult {..catch {l
4630: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 61  append result $a
4640: 63 63 75 6d 28 24 6b 29 7d 0a 20 20 20 20 7d 0a  ccum($k)}.    }.
4650: 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74      catch {unset
4660: 20 61 63 63 75 6d 7d 0a 20 20 20 20 73 65 74 20   accum}.    set 
4670: 72 65 73 75 6c 74 0a 7d 20 7b 61 31 20 61 32 20  result.} {a1 a2 
4680: 62 31 20 62 32 20 62 61 72 20 66 6f 6f 20 3a 20  b1 b2 bar foo : 
4690: 61 2c 20 62 2c 20 63 2c 20 64 2c 20 66 6f 6f 2c  a, b, c, d, foo,
46a0: 20 62 61 72 2c 7d 0a 23 20 54 68 65 72 65 27 73   bar,}.# There's
46b0: 20 70 72 6f 62 61 62 6c 79 20 61 20 6c 6f 74 20   probably a lot 
46c0: 6d 6f 72 65 20 74 65 73 74 73 20 74 6f 20 61 64  more tests to ad
46d0: 64 20 68 65 72 65 2e 20 20 52 65 61 6c 6c 79 20  d here.  Really 
46e0: 6f 75 67 68 74 20 74 6f 20 75 73 65 0a 23 20 61  ought to use.# a
46f0: 20 63 6f 76 65 72 61 67 65 20 74 6f 6f 6c 20 66   coverage tool f
4700: 6f 72 20 74 68 69 73 20 6a 6f 62 2e 2e 2e 0a 0a  or this job.....
4710: 74 65 73 74 20 64 69 63 74 2d 31 35 2e 31 20 7b  test dict-15.1 {
4720: 64 69 63 74 20 73 65 74 20 63 6f 6d 6d 61 6e 64  dict set command
4730: 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63 74  } {.    set dict
4740: 56 61 72 20 7b 7d 0a 20 20 20 20 64 69 63 74 20  Var {}.    dict 
4750: 73 65 74 20 64 69 63 74 56 61 72 20 61 20 78 0a  set dictVar a x.
4760: 7d 20 7b 61 20 78 7d 0a 74 65 73 74 20 64 69 63  } {a x}.test dic
4770: 74 2d 31 35 2e 32 20 7b 64 69 63 74 20 73 65 74  t-15.2 {dict set
4780: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
4790: 73 65 74 20 64 69 63 74 76 61 72 20 7b 61 20 7b  set dictvar {a {
47a0: 7d 7d 0a 20 20 20 20 64 69 63 74 20 73 65 74 20  }}.    dict set 
47b0: 64 69 63 74 76 61 72 20 61 20 62 20 78 0a 7d 20  dictvar a b x.} 
47c0: 7b 61 20 7b 62 20 78 7d 7d 0a 74 65 73 74 20 64  {a {b x}}.test d
47d0: 69 63 74 2d 31 35 2e 33 20 7b 64 69 63 74 20 73  ict-15.3 {dict s
47e0: 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  et command} {.  
47f0: 20 20 73 65 74 20 64 69 63 74 76 61 72 20 7b 61    set dictvar {a
4800: 20 7b 62 20 7b 7d 7d 7d 0a 20 20 20 20 64 69 63   {b {}}}.    dic
4810: 74 20 73 65 74 20 64 69 63 74 76 61 72 20 61 20  t set dictvar a 
4820: 62 20 63 20 78 0a 7d 20 7b 61 20 7b 62 20 7b 63  b c x.} {a {b {c
4830: 20 78 7d 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d   x}}}.test dict-
4840: 31 35 2e 34 20 7b 64 69 63 74 20 73 65 74 20 63  15.4 {dict set c
4850: 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 73 65  ommand} {.    se
4860: 74 20 64 69 63 74 56 61 72 20 7b 61 20 79 7d 0a  t dictVar {a y}.
4870: 20 20 20 20 64 69 63 74 20 73 65 74 20 64 69 63      dict set dic
4880: 74 56 61 72 20 61 20 78 0a 7d 20 7b 61 20 78 7d  tVar a x.} {a x}
4890: 0a 74 65 73 74 20 64 69 63 74 2d 31 35 2e 35 20  .test dict-15.5 
48a0: 7b 64 69 63 74 20 73 65 74 20 63 6f 6d 6d 61 6e  {dict set comman
48b0: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  d} {.    set dic
48c0: 74 56 61 72 20 7b 61 20 7b 62 20 79 7d 7d 0a 20  tVar {a {b y}}. 
48d0: 20 20 20 64 69 63 74 20 73 65 74 20 64 69 63 74     dict set dict
48e0: 56 61 72 20 61 20 62 20 78 0a 7d 20 7b 61 20 7b  Var a b x.} {a {
48f0: 62 20 78 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d  b x}}.test dict-
4900: 31 35 2e 36 20 7b 64 69 63 74 20 73 65 74 20 63  15.6 {dict set c
4910: 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 73 65  ommand} {.    se
4920: 74 20 64 69 63 74 56 61 72 20 7b 61 20 7b 62 20  t dictVar {a {b 
4930: 7b 63 20 79 7d 7d 7d 0a 20 20 20 20 64 69 63 74  {c y}}}.    dict
4940: 20 73 65 74 20 64 69 63 74 56 61 72 20 61 20 62   set dictVar a b
4950: 20 63 20 78 0a 7d 20 7b 61 20 7b 62 20 7b 63 20   c x.} {a {b {c 
4960: 78 7d 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  x}}}.test dict-1
4970: 35 2e 37 20 7b 64 69 63 74 20 73 65 74 20 63 6f  5.7 {dict set co
4980: 6d 6d 61 6e 64 3a 20 6e 6f 20 70 61 74 68 20 63  mmand: no path c
4990: 72 65 61 74 69 6f 6e 7d 20 7b 0a 20 20 20 20 73  reation} {.    s
49a0: 65 74 20 64 69 63 74 56 61 72 20 7b 7d 0a 20 20  et dictVar {}.  
49b0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64    list [catch {d
49c0: 69 63 74 20 73 65 74 20 64 69 63 74 56 61 72 20  ict set dictVar 
49d0: 61 20 62 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67  a b x} msg] $msg
49e0: 0a 7d 20 7b 31 20 7b 6b 65 79 20 22 61 22 20 6e  .} {1 {key "a" n
49f0: 6f 74 20 6b 6e 6f 77 6e 20 69 6e 20 64 69 63 74  ot known in dict
4a00: 69 6f 6e 61 72 79 7d 7d 0a 74 65 73 74 20 64 69  ionary}}.test di
4a10: 63 74 2d 31 35 2e 38 20 7b 64 69 63 74 20 73 65  ct-15.8 {dict se
4a20: 74 20 63 6f 6d 6d 61 6e 64 3a 20 63 72 65 61 74  t command: creat
4a30: 65 73 20 76 61 72 69 61 62 6c 65 73 7d 20 7b 0a  es variables} {.
4a40: 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74      catch {unset
4a50: 20 64 69 63 74 56 61 72 7d 0a 20 20 20 20 64 69   dictVar}.    di
4a60: 63 74 20 73 65 74 20 64 69 63 74 56 61 72 20 61  ct set dictVar a
4a70: 20 78 0a 20 20 20 20 73 65 74 20 64 69 63 74 56   x.    set dictV
4a80: 61 72 0a 7d 20 7b 61 20 78 7d 0a 74 65 73 74 20  ar.} {a x}.test 
4a90: 64 69 63 74 2d 31 35 2e 39 20 7b 64 69 63 74 20  dict-15.9 {dict 
4aa0: 73 65 74 20 63 6f 6d 6d 61 6e 64 3a 20 77 72 69  set command: wri
4ab0: 74 65 20 66 61 69 6c 75 72 65 7d 20 7b 0a 20 20  te failure} {.  
4ac0: 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 64    catch {unset d
4ad0: 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65 74 20  ictVar}.    set 
4ae0: 64 69 63 74 56 61 72 28 62 6c 6f 63 6b 29 20 7b  dictVar(block) {
4af0: 7d 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c 74  }.    set result
4b00: 20 5b 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64   [list [catch {d
4b10: 69 63 74 20 73 65 74 20 64 69 63 74 56 61 72 20  ict set dictVar 
4b20: 61 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67 5d 0a  a x} msg] $msg].
4b30: 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74      catch {unset
4b40: 20 64 69 63 74 56 61 72 7d 0a 20 20 20 20 73 65   dictVar}.    se
4b50: 74 20 72 65 73 75 6c 74 0a 7d 20 7b 31 20 7b 63  t result.} {1 {c
4b60: 61 6e 27 74 20 73 65 74 20 22 64 69 63 74 56 61  an't set "dictVa
4b70: 72 22 3a 20 76 61 72 69 61 62 6c 65 20 69 73 20  r": variable is 
4b80: 61 72 72 61 79 7d 7d 0a 74 65 73 74 20 64 69 63  array}}.test dic
4b90: 74 2d 31 35 2e 31 30 20 7b 64 69 63 74 20 73 65  t-15.10 {dict se
4ba0: 74 20 63 6f 6d 6d 61 6e 64 3a 20 73 79 6e 74 61  t command: synta
4bb0: 78 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63  x} {.    list [c
4bc0: 61 74 63 68 20 7b 64 69 63 74 20 73 65 74 7d 20  atch {dict set} 
4bd0: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
4be0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
4bf0: 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 73 65  ould be "dict se
4c00: 74 20 76 61 72 4e 61 6d 65 20 6b 65 79 20 3f 6b  t varName key ?k
4c10: 65 79 20 2e 2e 2e 3f 20 76 61 6c 75 65 22 7d 7d  ey ...? value"}}
4c20: 0a 74 65 73 74 20 64 69 63 74 2d 31 35 2e 31 31  .test dict-15.11
4c30: 20 7b 64 69 63 74 20 73 65 74 20 63 6f 6d 6d 61   {dict set comma
4c40: 6e 64 3a 20 73 79 6e 74 61 78 7d 20 7b 0a 20 20  nd: syntax} {.  
4c50: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64    list [catch {d
4c60: 69 63 74 20 73 65 74 20 61 7d 20 6d 73 67 5d 20  ict set a} msg] 
4c70: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
4c80: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
4c90: 62 65 20 22 64 69 63 74 20 73 65 74 20 76 61 72  be "dict set var
4ca0: 4e 61 6d 65 20 6b 65 79 20 3f 6b 65 79 20 2e 2e  Name key ?key ..
4cb0: 2e 3f 20 76 61 6c 75 65 22 7d 7d 0a 74 65 73 74  .? value"}}.test
4cc0: 20 64 69 63 74 2d 31 35 2e 31 32 20 7b 64 69 63   dict-15.12 {dic
4cd0: 74 20 73 65 74 20 63 6f 6d 6d 61 6e 64 3a 20 73  t set command: s
4ce0: 79 6e 74 61 78 7d 20 7b 0a 20 20 20 20 6c 69 73  yntax} {.    lis
4cf0: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 73  t [catch {dict s
4d00: 65 74 20 61 20 61 7d 20 6d 73 67 5d 20 24 6d 73  et a a} msg] $ms
4d10: 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20  g.} {1 {wrong # 
4d20: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
4d30: 22 64 69 63 74 20 73 65 74 20 76 61 72 4e 61 6d  "dict set varNam
4d40: 65 20 6b 65 79 20 3f 6b 65 79 20 2e 2e 2e 3f 20  e key ?key ...? 
4d50: 76 61 6c 75 65 22 7d 7d 0a 74 65 73 74 20 64 69  value"}}.test di
4d60: 63 74 2d 31 35 2e 31 33 20 7b 64 69 63 74 20 73  ct-15.13 {dict s
4d70: 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  et command} {.  
4d80: 20 20 73 65 74 20 64 69 63 74 56 61 72 20 61 0a    set dictVar a.
4d90: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
4da0: 7b 64 69 63 74 20 73 65 74 20 64 69 63 74 56 61  {dict set dictVa
4db0: 72 20 62 20 63 7d 20 6d 73 67 5d 20 24 6d 73 67  r b c} msg] $msg
4dc0: 0a 7d 20 7b 31 20 7b 6d 69 73 73 69 6e 67 20 76  .} {1 {missing v
4dd0: 61 6c 75 65 20 74 6f 20 67 6f 20 77 69 74 68 20  alue to go with 
4de0: 6b 65 79 7d 7d 0a 0a 74 65 73 74 20 64 69 63 74  key}}..test dict
4df0: 2d 31 36 2e 31 20 7b 64 69 63 74 20 75 6e 73 65  -16.1 {dict unse
4e00: 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20  t command} {.   
4e10: 20 73 65 74 20 64 69 63 74 56 61 72 20 7b 61 20   set dictVar {a 
4e20: 62 20 63 20 64 7d 0a 20 20 20 20 64 69 63 74 20  b c d}.    dict 
4e30: 75 6e 73 65 74 20 64 69 63 74 56 61 72 20 61 0a  unset dictVar a.
4e40: 7d 20 7b 63 20 64 7d 0a 74 65 73 74 20 64 69 63  } {c d}.test dic
4e50: 74 2d 31 36 2e 32 20 7b 64 69 63 74 20 75 6e 73  t-16.2 {dict uns
4e60: 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20  et command} {.  
4e70: 20 20 73 65 74 20 64 69 63 74 56 61 72 20 7b 61    set dictVar {a
4e80: 20 62 20 63 20 64 7d 0a 20 20 20 20 64 69 63 74   b c d}.    dict
4e90: 20 75 6e 73 65 74 20 64 69 63 74 56 61 72 20 63   unset dictVar c
4ea0: 0a 7d 20 7b 61 20 62 7d 0a 74 65 73 74 20 64 69  .} {a b}.test di
4eb0: 63 74 2d 31 36 2e 33 20 7b 64 69 63 74 20 75 6e  ct-16.3 {dict un
4ec0: 73 65 74 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20  set command} {. 
4ed0: 20 20 20 73 65 74 20 64 69 63 74 56 61 72 20 7b     set dictVar {
4ee0: 61 20 62 7d 0a 20 20 20 20 64 69 63 74 20 75 6e  a b}.    dict un
4ef0: 73 65 74 20 64 69 63 74 56 61 72 20 63 0a 7d 20  set dictVar c.} 
4f00: 7b 61 20 62 7d 0a 74 65 73 74 20 64 69 63 74 2d  {a b}.test dict-
4f10: 31 36 2e 34 20 7b 64 69 63 74 20 75 6e 73 65 74  16.4 {dict unset
4f20: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
4f30: 73 65 74 20 64 69 63 74 56 61 72 20 7b 61 20 7b  set dictVar {a {
4f40: 62 20 63 20 64 20 65 7d 7d 0a 20 20 20 20 64 69  b c d e}}.    di
4f50: 63 74 20 75 6e 73 65 74 20 64 69 63 74 56 61 72  ct unset dictVar
4f60: 20 61 20 62 0a 7d 20 7b 61 20 7b 64 20 65 7d 7d   a b.} {a {d e}}
4f70: 0a 74 65 73 74 20 64 69 63 74 2d 31 36 2e 35 20  .test dict-16.5 
4f80: 7b 64 69 63 74 20 75 6e 73 65 74 20 63 6f 6d 6d  {dict unset comm
4f90: 61 6e 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64  and} {.    set d
4fa0: 69 63 74 56 61 72 20 61 0a 20 20 20 20 6c 69 73  ictVar a.    lis
4fb0: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 75  t [catch {dict u
4fc0: 6e 73 65 74 20 64 69 63 74 56 61 72 20 61 7d 20  nset dictVar a} 
4fd0: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
4fe0: 6d 69 73 73 69 6e 67 20 76 61 6c 75 65 20 74 6f  missing value to
4ff0: 20 67 6f 20 77 69 74 68 20 6b 65 79 7d 7d 0a 74   go with key}}.t
5000: 65 73 74 20 64 69 63 74 2d 31 36 2e 36 20 7b 64  est dict-16.6 {d
5010: 69 63 74 20 75 6e 73 65 74 20 63 6f 6d 6d 61 6e  ict unset comman
5020: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  d} {.    set dic
5030: 74 56 61 72 20 7b 61 20 62 7d 0a 20 20 20 20 6c  tVar {a b}.    l
5040: 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74  ist [catch {dict
5050: 20 75 6e 73 65 74 20 64 69 63 74 56 61 72 20 63   unset dictVar c
5060: 20 64 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20   d} msg] $msg.} 
5070: 7b 31 20 7b 6b 65 79 20 22 63 22 20 6e 6f 74 20  {1 {key "c" not 
5080: 6b 6e 6f 77 6e 20 69 6e 20 64 69 63 74 69 6f 6e  known in diction
5090: 61 72 79 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d  ary}}.test dict-
50a0: 31 36 2e 37 20 7b 64 69 63 74 20 75 6e 73 65 74  16.7 {dict unset
50b0: 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20   command} {.    
50c0: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 64 69 63  catch {unset dic
50d0: 74 56 61 72 7d 0a 20 20 20 20 6c 69 73 74 20 5b  tVar}.    list [
50e0: 69 6e 66 6f 20 65 78 69 73 74 73 20 64 69 63 74  info exists dict
50f0: 56 61 72 5d 20 5b 64 69 63 74 20 75 6e 73 65 74  Var] [dict unset
5100: 20 64 69 63 74 56 61 72 20 61 5d 20 5b 69 6e 66   dictVar a] [inf
5110: 6f 20 65 78 69 73 74 73 20 64 69 63 74 56 61 72  o exists dictVar
5120: 5d 0a 7d 20 7b 30 20 7b 7d 20 31 7d 0a 74 65 73  ].} {0 {} 1}.tes
5130: 74 20 64 69 63 74 2d 31 36 2e 38 20 7b 64 69 63  t dict-16.8 {dic
5140: 74 20 75 6e 73 65 74 20 63 6f 6d 6d 61 6e 64 7d  t unset command}
5150: 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   {.    list [cat
5160: 63 68 20 7b 64 69 63 74 20 75 6e 73 65 74 20 64  ch {dict unset d
5170: 69 63 74 56 61 72 7d 20 6d 73 67 5d 20 24 6d 73  ictVar} msg] $ms
5180: 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20  g.} {1 {wrong # 
5190: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
51a0: 22 64 69 63 74 20 75 6e 73 65 74 20 76 61 72 4e  "dict unset varN
51b0: 61 6d 65 20 6b 65 79 20 3f 6b 65 79 20 2e 2e 2e  ame key ?key ...
51c0: 3f 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  ?"}}.test dict-1
51d0: 36 2e 39 20 7b 64 69 63 74 20 75 6e 73 65 74 20  6.9 {dict unset 
51e0: 63 6f 6d 6d 61 6e 64 3a 20 77 72 69 74 65 20 66  command: write f
51f0: 61 69 6c 75 72 65 7d 20 7b 0a 20 20 20 20 63 61  ailure} {.    ca
5200: 74 63 68 20 7b 75 6e 73 65 74 20 64 69 63 74 56  tch {unset dictV
5210: 61 72 7d 0a 20 20 20 20 73 65 74 20 64 69 63 74  ar}.    set dict
5220: 56 61 72 28 62 6c 6f 63 6b 29 20 7b 7d 0a 20 20  Var(block) {}.  
5230: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69    set result [li
5240: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
5250: 75 6e 73 65 74 20 64 69 63 74 56 61 72 20 61 7d  unset dictVar a}
5260: 20 6d 73 67 5d 20 24 6d 73 67 5d 0a 20 20 20 20   msg] $msg].    
5270: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 64 69 63  catch {unset dic
5280: 74 56 61 72 7d 0a 20 20 20 20 73 65 74 20 72 65  tVar}.    set re
5290: 73 75 6c 74 0a 7d 20 7b 31 20 7b 63 61 6e 27 74  sult.} {1 {can't
52a0: 20 73 65 74 20 22 64 69 63 74 56 61 72 22 3a 20   set "dictVar": 
52b0: 76 61 72 69 61 62 6c 65 20 69 73 20 61 72 72 61  variable is arra
52c0: 79 7d 7d 0a 0a 74 65 73 74 20 64 69 63 74 2d 31  y}}..test dict-1
52d0: 37 2e 31 20 7b 64 69 63 74 20 66 69 6c 74 65 72  7.1 {dict filter
52e0: 20 63 6f 6d 6d 61 6e 64 3a 20 6b 65 79 7d 20 7b   command: key} {
52f0: 0a 20 20 20 20 73 65 74 20 64 69 63 74 56 61 72  .    set dictVar
5300: 20 7b 61 31 20 61 20 61 32 20 62 20 62 31 20 63   {a1 a a2 b b1 c
5310: 20 62 32 20 64 20 66 6f 6f 20 62 61 72 20 62 61   b2 d foo bar ba
5320: 72 20 66 6f 6f 7d 0a 20 20 20 20 64 69 63 74 20  r foo}.    dict 
5330: 66 69 6c 74 65 72 20 24 64 69 63 74 56 61 72 20  filter $dictVar 
5340: 6b 65 79 20 61 32 0a 7d 20 7b 61 32 20 62 7d 0a  key a2.} {a2 b}.
5350: 74 65 73 74 20 64 69 63 74 2d 31 37 2e 32 20 7b  test dict-17.2 {
5360: 64 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d  dict filter comm
5370: 61 6e 64 3a 20 6b 65 79 7d 20 7b 0a 20 20 20 20  and: key} {.    
5380: 73 65 74 20 64 69 63 74 56 61 72 20 7b 61 31 20  set dictVar {a1 
5390: 61 20 61 32 20 62 20 62 31 20 63 20 62 32 20 64  a a2 b b1 c b2 d
53a0: 20 66 6f 6f 20 62 61 72 20 62 61 72 20 66 6f 6f   foo bar bar foo
53b0: 7d 0a 20 20 20 20 64 69 63 74 20 73 69 7a 65 20  }.    dict size 
53c0: 5b 64 69 63 74 20 66 69 6c 74 65 72 20 24 64 69  [dict filter $di
53d0: 63 74 56 61 72 20 6b 65 79 20 2a 5d 0a 7d 20 36  ctVar key *].} 6
53e0: 0a 74 65 73 74 20 64 69 63 74 2d 31 37 2e 33 20  .test dict-17.3 
53f0: 7b 64 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d  {dict filter com
5400: 6d 61 6e 64 3a 20 6b 65 79 7d 20 7b 0a 20 20 20  mand: key} {.   
5410: 20 73 65 74 20 64 69 63 74 56 61 72 20 7b 61 31   set dictVar {a1
5420: 20 61 20 61 32 20 62 20 62 31 20 63 20 62 32 20   a a2 b b1 c b2 
5430: 64 20 66 6f 6f 20 62 61 72 20 62 61 72 20 66 6f  d foo bar bar fo
5440: 6f 7d 0a 20 20 20 20 67 65 74 4f 72 64 65 72 20  o}.    getOrder 
5450: 5b 64 69 63 74 20 66 69 6c 74 65 72 20 24 64 69  [dict filter $di
5460: 63 74 56 61 72 20 6b 65 79 20 3f 3f 3f 5d 20 62  ctVar key ???] b
5470: 61 72 20 66 6f 6f 0a 7d 20 7b 62 61 72 20 66 6f  ar foo.} {bar fo
5480: 6f 20 66 6f 6f 20 62 61 72 20 32 7d 0a 74 65 73  o foo bar 2}.tes
5490: 74 20 64 69 63 74 2d 31 37 2e 34 20 7b 64 69 63  t dict-17.4 {dic
54a0: 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64  t filter command
54b0: 3a 20 6b 65 79 7d 20 7b 0a 20 20 20 20 6c 69 73  : key} {.    lis
54c0: 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 66  t [catch {dict f
54d0: 69 6c 74 65 72 20 7b 7d 20 6b 65 79 7d 20 6d 73  ilter {} key} ms
54e0: 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72  g] $msg.} {1 {wr
54f0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
5500: 6c 64 20 62 65 20 22 64 69 63 74 20 66 69 6c 74  ld be "dict filt
5510: 65 72 20 64 69 63 74 69 6f 6e 61 72 79 20 6b 65  er dictionary ke
5520: 79 20 67 6c 6f 62 50 61 74 74 65 72 6e 22 7d 7d  y globPattern"}}
5530: 0a 74 65 73 74 20 64 69 63 74 2d 31 37 2e 35 20  .test dict-17.5 
5540: 7b 64 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d  {dict filter com
5550: 6d 61 6e 64 3a 20 6b 65 79 7d 20 7b 0a 20 20 20  mand: key} {.   
5560: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69   list [catch {di
5570: 63 74 20 66 69 6c 74 65 72 20 7b 7d 20 6b 65 79  ct filter {} key
5580: 20 61 20 61 7d 20 6d 73 67 5d 20 24 6d 73 67 0a   a a} msg] $msg.
5590: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
55a0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
55b0: 69 63 74 20 66 69 6c 74 65 72 20 64 69 63 74 69  ict filter dicti
55c0: 6f 6e 61 72 79 20 6b 65 79 20 67 6c 6f 62 50 61  onary key globPa
55d0: 74 74 65 72 6e 22 7d 7d 0a 74 65 73 74 20 64 69  ttern"}}.test di
55e0: 63 74 2d 31 37 2e 36 20 7b 64 69 63 74 20 66 69  ct-17.6 {dict fi
55f0: 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 3a 20 76 61  lter command: va
5600: 6c 75 65 7d 20 7b 0a 20 20 20 20 73 65 74 20 64  lue} {.    set d
5610: 69 63 74 56 61 72 20 7b 61 31 20 61 20 61 32 20  ictVar {a1 a a2 
5620: 62 20 62 31 20 63 20 62 32 20 64 20 66 6f 6f 20  b b1 c b2 d foo 
5630: 62 61 72 20 62 61 72 20 66 6f 6f 7d 0a 20 20 20  bar bar foo}.   
5640: 20 64 69 63 74 20 66 69 6c 74 65 72 20 24 64 69   dict filter $di
5650: 63 74 56 61 72 20 76 61 6c 75 65 20 63 0a 7d 20  ctVar value c.} 
5660: 7b 62 31 20 63 7d 0a 74 65 73 74 20 64 69 63 74  {b1 c}.test dict
5670: 2d 31 37 2e 37 20 7b 64 69 63 74 20 66 69 6c 74  -17.7 {dict filt
5680: 65 72 20 63 6f 6d 6d 61 6e 64 3a 20 76 61 6c 75  er command: valu
5690: 65 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  e} {.    set dic
56a0: 74 56 61 72 20 7b 61 31 20 61 20 61 32 20 62 20  tVar {a1 a a2 b 
56b0: 62 31 20 63 20 62 32 20 64 20 66 6f 6f 20 62 61  b1 c b2 d foo ba
56c0: 72 20 62 61 72 20 66 6f 6f 7d 0a 20 20 20 20 64  r bar foo}.    d
56d0: 69 63 74 20 73 69 7a 65 20 5b 64 69 63 74 20 66  ict size [dict f
56e0: 69 6c 74 65 72 20 24 64 69 63 74 56 61 72 20 76  ilter $dictVar v
56f0: 61 6c 75 65 20 2a 5d 0a 7d 20 36 0a 74 65 73 74  alue *].} 6.test
5700: 20 64 69 63 74 2d 31 37 2e 38 20 7b 64 69 63 74   dict-17.8 {dict
5710: 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 3a   filter command:
5720: 20 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 73 65   value} {.    se
5730: 74 20 64 69 63 74 56 61 72 20 7b 61 31 20 61 20  t dictVar {a1 a 
5740: 61 32 20 62 20 62 31 20 63 20 62 32 20 64 20 66  a2 b b1 c b2 d f
5750: 6f 6f 20 62 61 72 20 62 61 72 20 66 6f 6f 7d 0a  oo bar bar foo}.
5760: 20 20 20 20 67 65 74 4f 72 64 65 72 20 5b 64 69      getOrder [di
5770: 63 74 20 66 69 6c 74 65 72 20 24 64 69 63 74 56  ct filter $dictV
5780: 61 72 20 76 61 6c 75 65 20 3f 3f 3f 5d 20 62 61  ar value ???] ba
5790: 72 20 66 6f 6f 0a 7d 20 7b 62 61 72 20 66 6f 6f  r foo.} {bar foo
57a0: 20 66 6f 6f 20 62 61 72 20 32 7d 0a 74 65 73 74   foo bar 2}.test
57b0: 20 64 69 63 74 2d 31 37 2e 39 20 7b 64 69 63 74   dict-17.9 {dict
57c0: 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 3a   filter command:
57d0: 20 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 6c 69   value} {.    li
57e0: 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20  st [catch {dict 
57f0: 66 69 6c 74 65 72 20 7b 7d 20 76 61 6c 75 65 7d  filter {} value}
5800: 20 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20   msg] $msg.} {1 
5810: 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  {wrong # args: s
5820: 68 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 66  hould be "dict f
5830: 69 6c 74 65 72 20 64 69 63 74 69 6f 6e 61 72 79  ilter dictionary
5840: 20 76 61 6c 75 65 20 67 6c 6f 62 50 61 74 74 65   value globPatte
5850: 72 6e 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d  rn"}}.test dict-
5860: 31 37 2e 31 30 20 7b 64 69 63 74 20 66 69 6c 74  17.10 {dict filt
5870: 65 72 20 63 6f 6d 6d 61 6e 64 3a 20 76 61 6c 75  er command: valu
5880: 65 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63  e} {.    list [c
5890: 61 74 63 68 20 7b 64 69 63 74 20 66 69 6c 74 65  atch {dict filte
58a0: 72 20 7b 7d 20 76 61 6c 75 65 20 61 20 61 7d 20  r {} value a a} 
58b0: 6d 73 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b  msg] $msg.} {1 {
58c0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
58d0: 6f 75 6c 64 20 62 65 20 22 64 69 63 74 20 66 69  ould be "dict fi
58e0: 6c 74 65 72 20 64 69 63 74 69 6f 6e 61 72 79 20  lter dictionary 
58f0: 76 61 6c 75 65 20 67 6c 6f 62 50 61 74 74 65 72  value globPatter
5900: 6e 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  n"}}.test dict-1
5910: 37 2e 31 31 20 7b 64 69 63 74 20 66 69 6c 74 65  7.11 {dict filte
5920: 72 20 63 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70  r command: scrip
5930: 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 69 63  t} {.    set dic
5940: 74 56 61 72 20 7b 61 31 20 61 20 61 32 20 62 20  tVar {a1 a a2 b 
5950: 62 31 20 63 20 62 32 20 64 20 66 6f 6f 20 62 61  b1 c b2 d foo ba
5960: 72 20 62 61 72 20 66 6f 6f 7d 0a 20 20 20 20 73  r bar foo}.    s
5970: 65 74 20 6e 20 30 0a 20 20 20 20 6c 69 73 74 20  et n 0.    list 
5980: 5b 67 65 74 4f 72 64 65 72 20 5b 64 69 63 74 20  [getOrder [dict 
5990: 66 69 6c 74 65 72 20 24 64 69 63 74 56 61 72 20  filter $dictVar 
59a0: 73 63 72 69 70 74 20 7b 6b 20 76 7d 20 7b 0a 09  script {k v} {..
59b0: 69 6e 63 72 20 6e 0a 09 65 78 70 72 20 7b 5b 73  incr n..expr {[s
59c0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6b 5d  tring length $k]
59d0: 20 3d 3d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67   == [string leng
59e0: 74 68 20 24 76 5d 7d 0a 20 20 20 20 7d 5d 20 62  th $v]}.    }] b
59f0: 61 72 20 66 6f 6f 5d 20 24 6e 0a 7d 20 7b 7b 62  ar foo] $n.} {{b
5a00: 61 72 20 66 6f 6f 20 66 6f 6f 20 62 61 72 20 32  ar foo foo bar 2
5a10: 7d 20 36 7d 0a 74 65 73 74 20 64 69 63 74 2d 31  } 6}.test dict-1
5a20: 37 2e 31 32 20 7b 64 69 63 74 20 66 69 6c 74 65  7.12 {dict filte
5a30: 72 20 63 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70  r command: scrip
5a40: 74 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63  t} {.    list [c
5a50: 61 74 63 68 20 7b 64 69 63 74 20 66 69 6c 74 65  atch {dict filte
5a60: 72 20 7b 61 20 62 7d 20 73 63 72 69 70 74 20 7b  r {a b} script {
5a70: 6b 20 76 7d 20 7b 63 6f 6e 63 61 74 20 24 6b 20  k v} {concat $k 
5a80: 24 76 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d  $v}} msg] $msg.}
5a90: 20 7b 31 20 7b 65 78 70 65 63 74 65 64 20 62 6f   {1 {expected bo
5aa0: 6f 6c 65 61 6e 20 76 61 6c 75 65 20 62 75 74 20  olean value but 
5ab0: 67 6f 74 20 22 61 20 62 22 7d 7d 0a 74 65 73 74  got "a b"}}.test
5ac0: 20 64 69 63 74 2d 31 37 2e 31 33 20 7b 64 69 63   dict-17.13 {dic
5ad0: 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64  t filter command
5ae0: 3a 20 73 63 72 69 70 74 7d 20 7b 0a 20 20 20 20  : script} {.    
5af0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69 63  list [catch {dic
5b00: 74 20 66 69 6c 74 65 72 20 7b 61 20 62 7d 20 73  t filter {a b} s
5b10: 63 72 69 70 74 20 7b 6b 20 76 7d 20 7b 65 72 72  cript {k v} {err
5b20: 6f 72 20 78 7d 7d 20 6d 73 67 5d 20 24 6d 73 67  or x}} msg] $msg
5b30: 20 5c 0a 09 20 20 20 20 24 3a 3a 65 72 72 6f 72   \..    $::error
5b40: 49 6e 66 6f 0a 7d 20 7b 31 20 78 20 7b 78 0a 20  Info.} {1 x {x. 
5b50: 20 20 20 77 68 69 6c 65 20 65 78 65 63 75 74 69     while executi
5b60: 6e 67 0a 22 65 72 72 6f 72 20 78 22 0a 20 20 20  ng."error x".   
5b70: 20 28 22 64 69 63 74 20 66 69 6c 74 65 72 22 20   ("dict filter" 
5b80: 73 63 72 69 70 74 20 6c 69 6e 65 20 31 29 0a 20  script line 1). 
5b90: 20 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20     invoked from 
5ba0: 77 69 74 68 69 6e 0a 22 64 69 63 74 20 66 69 6c  within."dict fil
5bb0: 74 65 72 20 7b 61 20 62 7d 20 73 63 72 69 70 74  ter {a b} script
5bc0: 20 7b 6b 20 76 7d 20 7b 65 72 72 6f 72 20 78 7d   {k v} {error x}
5bd0: 22 7d 7d 0a 74 65 73 74 20 64 69 63 74 2d 31 37  "}}.test dict-17
5be0: 2e 31 34 20 7b 64 69 63 74 20 66 69 6c 74 65 72  .14 {dict filter
5bf0: 20 63 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70 74   command: script
5c00: 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 20 30 0a  } {.    set n 0.
5c10: 20 20 20 20 6c 69 73 74 20 5b 64 69 63 74 20 66      list [dict f
5c20: 69 6c 74 65 72 20 7b 61 20 62 20 63 20 64 7d 20  ilter {a b c d} 
5c30: 73 63 72 69 70 74 20 7b 6b 20 76 7d 20 7b 0a 09  script {k v} {..
5c40: 69 6e 63 72 20 6e 0a 09 62 72 65 61 6b 0a 09 65  incr n..break..e
5c50: 72 72 6f 72 20 62 6f 6f 6d 21 0a 20 20 20 20 7d  rror boom!.    }
5c60: 5d 20 24 6e 0a 7d 20 7b 7b 7d 20 31 7d 0a 74 65  ] $n.} {{} 1}.te
5c70: 73 74 20 64 69 63 74 2d 31 37 2e 31 35 20 7b 64  st dict-17.15 {d
5c80: 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61  ict filter comma
5c90: 6e 64 3a 20 73 63 72 69 70 74 7d 20 7b 0a 20 20  nd: script} {.  
5ca0: 20 20 73 65 74 20 6e 20 30 0a 20 20 20 20 6c 69    set n 0.    li
5cb0: 73 74 20 5b 64 69 63 74 20 66 69 6c 74 65 72 20  st [dict filter 
5cc0: 7b 61 20 62 20 63 20 64 7d 20 73 63 72 69 70 74  {a b c d} script
5cd0: 20 7b 6b 20 76 7d 20 7b 0a 09 69 6e 63 72 20 6e   {k v} {..incr n
5ce0: 0a 09 63 6f 6e 74 69 6e 75 65 0a 09 65 72 72 6f  ..continue..erro
5cf0: 72 20 62 6f 6f 6d 21 0a 20 20 20 20 7d 5d 20 24  r boom!.    }] $
5d00: 6e 0a 7d 20 7b 7b 7d 20 32 7d 0a 74 65 73 74 20  n.} {{} 2}.test 
5d10: 64 69 63 74 2d 31 37 2e 31 36 20 7b 64 69 63 74  dict-17.16 {dict
5d20: 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 3a   filter command:
5d30: 20 73 63 72 69 70 74 7d 20 7b 0a 20 20 20 20 70   script} {.    p
5d40: 72 6f 63 20 64 69 63 74 74 65 73 74 20 7b 7d 20  roc dicttest {} 
5d50: 7b 0a 09 72 65 6e 61 6d 65 20 64 69 63 74 74 65  {..rename dictte
5d60: 73 74 20 7b 7d 0a 09 64 69 63 74 20 66 69 6c 74  st {}..dict filt
5d70: 65 72 20 7b 61 20 62 7d 20 73 63 72 69 70 74 20  er {a b} script 
5d80: 7b 6b 20 76 7d 20 7b 0a 09 20 20 20 20 72 65 74  {k v} {..    ret
5d90: 75 72 6e 20 6f 6b 2c 24 6b 2c 24 76 0a 09 20 20  urn ok,$k,$v..  
5da0: 20 20 65 72 72 6f 72 20 22 73 6b 69 70 70 65 64    error "skipped
5db0: 20 72 65 74 75 72 6e 20 63 6f 6d 70 6c 65 74 65   return complete
5dc0: 6c 79 22 0a 09 7d 0a 09 65 72 72 6f 72 20 22 72  ly"..}..error "r
5dd0: 65 74 75 72 6e 20 64 69 64 6e 27 74 20 67 6f 20  eturn didn't go 
5de0: 66 61 72 20 65 6e 6f 75 67 68 22 0a 20 20 20 20  far enough".    
5df0: 7d 0a 20 20 20 20 64 69 63 74 74 65 73 74 0a 7d  }.    dicttest.}
5e00: 20 6f 6b 2c 61 2c 62 0a 74 65 73 74 20 64 69 63   ok,a,b.test dic
5e10: 74 2d 31 37 2e 31 37 20 7b 64 69 63 74 20 66 69  t-17.17 {dict fi
5e20: 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 3a 20 73 63  lter command: sc
5e30: 72 69 70 74 7d 20 7b 0a 20 20 20 20 64 69 63 74  ript} {.    dict
5e40: 20 66 69 6c 74 65 72 20 7b 61 20 62 7d 20 73 63   filter {a b} sc
5e50: 72 69 70 74 20 7b 6b 20 6b 7d 20 7b 63 6f 6e 74  ript {k k} {cont
5e60: 69 6e 75 65 7d 0a 20 20 20 20 73 65 74 20 6b 0a  inue}.    set k.
5e70: 7d 20 62 0a 74 65 73 74 20 64 69 63 74 2d 31 37  } b.test dict-17
5e80: 2e 31 38 20 7b 64 69 63 74 20 66 69 6c 74 65 72  .18 {dict filter
5e90: 20 63 6f 6d 6d 61 6e 64 3a 20 73 63 72 69 70 74   command: script
5ea0: 7d 20 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  } {.    list [ca
5eb0: 74 63 68 20 7b 64 69 63 74 20 66 69 6c 74 65 72  tch {dict filter
5ec0: 20 7b 61 20 62 7d 20 73 63 72 69 70 74 20 7b 6b   {a b} script {k
5ed0: 20 6b 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 7d   k}} msg] $msg.}
5ee0: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
5ef0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 69  s: should be "di
5f00: 63 74 20 66 69 6c 74 65 72 20 64 69 63 74 69 6f  ct filter dictio
5f10: 6e 61 72 79 20 73 63 72 69 70 74 20 7b 6b 65 79  nary script {key
5f20: 56 61 72 20 76 61 6c 75 65 56 61 72 7d 20 66 69  Var valueVar} fi
5f30: 6c 74 65 72 53 63 72 69 70 74 22 7d 7d 0a 74 65  lterScript"}}.te
5f40: 73 74 20 64 69 63 74 2d 31 37 2e 31 39 20 7b 64  st dict-17.19 {d
5f50: 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61  ict filter comma
5f60: 6e 64 3a 20 73 63 72 69 70 74 7d 20 7b 0a 20 20  nd: script} {.  
5f70: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64    list [catch {d
5f80: 69 63 74 20 66 69 6c 74 65 72 20 7b 61 20 62 7d  ict filter {a b}
5f90: 20 73 63 72 69 70 74 20 6b 20 7b 63 6f 6e 74 69   script k {conti
5fa0: 6e 75 65 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  nue}} msg] $msg.
5fb0: 7d 20 7b 31 20 7b 6d 75 73 74 20 68 61 76 65 20  } {1 {must have 
5fc0: 65 78 61 63 74 6c 79 20 74 77 6f 20 76 61 72 69  exactly two vari
5fd0: 61 62 6c 65 20 6e 61 6d 65 73 7d 7d 0a 74 65 73  able names}}.tes
5fe0: 74 20 64 69 63 74 2d 31 37 2e 32 30 20 7b 64 69  t dict-17.20 {di
5ff0: 63 74 20 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e  ct filter comman
6000: 64 3a 20 73 63 72 69 70 74 7d 20 7b 0a 20 20 20  d: script} {.   
6010: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 64 69   list [catch {di
6020: 63 74 20 66 69 6c 74 65 72 20 7b 61 20 62 7d 20  ct filter {a b} 
6030: 73 63 72 69 70 74 20 22 5c 7b 6b 20 76 22 20 7b  script "\{k v" {
6040: 63 6f 6e 74 69 6e 75 65 7d 7d 20 6d 73 67 5d 20  continue}} msg] 
6050: 24 6d 73 67 0a 7d 20 7b 31 20 7b 75 6e 6d 61 74  $msg.} {1 {unmat
6060: 63 68 65 64 20 6f 70 65 6e 20 62 72 61 63 65 20  ched open brace 
6070: 69 6e 20 6c 69 73 74 7d 7d 0a 74 65 73 74 20 64  in list}}.test d
6080: 69 63 74 2d 31 37 2e 32 31 20 7b 64 69 63 74 20  ict-17.21 {dict 
6090: 66 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 7d 20  filter command} 
60a0: 7b 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63  {.    list [catc
60b0: 68 20 7b 64 69 63 74 20 66 69 6c 74 65 72 20 7b  h {dict filter {
60c0: 61 20 62 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  a b}} msg] $msg.
60d0: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
60e0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
60f0: 69 63 74 20 66 69 6c 74 65 72 20 64 69 63 74 69  ict filter dicti
6100: 6f 6e 61 72 79 20 66 69 6c 74 65 72 54 79 70 65  onary filterType
6110: 20 2e 2e 2e 22 7d 7d 0a 74 65 73 74 20 64 69 63   ..."}}.test dic
6120: 74 2d 31 37 2e 32 32 20 7b 64 69 63 74 20 66 69  t-17.22 {dict fi
6130: 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a  lter command} {.
6140: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20      list [catch 
6150: 7b 64 69 63 74 20 66 69 6c 74 65 72 20 7b 61 20  {dict filter {a 
6160: 62 7d 20 4a 55 4e 4b 7d 20 6d 73 67 5d 20 24 6d  b} JUNK} msg] $m
6170: 73 67 0a 7d 20 7b 31 20 7b 62 61 64 20 66 69 6c  sg.} {1 {bad fil
6180: 74 65 72 54 79 70 65 20 22 4a 55 4e 4b 22 3a 20  terType "JUNK": 
6190: 6d 75 73 74 20 62 65 20 6b 65 79 2c 20 73 63 72  must be key, scr
61a0: 69 70 74 2c 20 6f 72 20 76 61 6c 75 65 7d 7d 0a  ipt, or value}}.
61b0: 74 65 73 74 20 64 69 63 74 2d 31 37 2e 32 33 20  test dict-17.23 
61c0: 7b 64 69 63 74 20 66 69 6c 74 65 72 20 63 6f 6d  {dict filter com
61d0: 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 6c 69 73 74  mand} {.    list
61e0: 20 5b 63 61 74 63 68 20 7b 64 69 63 74 20 66 69   [catch {dict fi
61f0: 6c 74 65 72 20 61 20 6b 65 79 20 2a 7d 20 6d 73  lter a key *} ms
6200: 67 5d 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6d 69  g] $msg.} {1 {mi
6210: 73 73 69 6e 67 20 76 61 6c 75 65 20 74 6f 20 67  ssing value to g
6220: 6f 20 77 69 74 68 20 6b 65 79 7d 7d 0a 0a 23 20  o with key}}..# 
6230: 63 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73  cleanup.::tcltes
6240: 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a  t::cleanupTests.
6250: 72 65 74 75 72 6e 0a 0a 23 20 4c 6f 63 61 6c 20  return..# Local 
6260: 56 61 72 69 61 62 6c 65 73 3a 0a 23 20 6d 6f 64  Variables:.# mod
6270: 65 3a 20 74 63 6c 0a 23 20 45 6e 64 3a 0a        e: tcl.# End:.