diff options
author | dgp <dgp@users.sourceforge.net> | 2016-10-07 18:53:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-10-07 18:53:27 (GMT) |
commit | de85f56bb02d77f1647772db4f21d13638c286e4 (patch) | |
tree | 17c86a2cb335c36d103206cf8e36ca46e9f34aeb | |
parent | fe8acb939b97ac2a181f6196c9a2c32759a30531 (diff) | |
parent | be3376f36c02b2b317b509aed67b7751e656ecbb (diff) | |
download | tcl-de85f56bb02d77f1647772db4f21d13638c286e4.zip tcl-de85f56bb02d77f1647772db4f21d13638c286e4.tar.gz tcl-de85f56bb02d77f1647772db4f21d13638c286e4.tar.bz2 |
merge trunk
-rw-r--r-- | generic/tclCmdMZ.c | 2 | ||||
-rw-r--r-- | tests/string.test | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index df22261..3b81cbe 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1873,7 +1873,7 @@ StringMapCmd( /* * This test is tricky, but has to be that way or you get other strange - * inconsistencies (see test string-10.20 for illustration why!) + * inconsistencies (see test string-10.20.1 for illustration why!) */ if (Tcl_FetchIntRep(objv[objc-2], &tclDictType) && objv[objc-2]->bytes == NULL){ diff --git a/tests/string.test b/tests/string.test index 418bc61..5fdb510 100644 --- a/tests/string.test +++ b/tests/string.test @@ -901,6 +901,10 @@ test string-10.20 {string map, dictionaries don't alter map ordering} { set map {aa X a Y} list [string map [dict create aa X a Y] aaa] [string map $map aaa] [dict size $map] [string map $map aaa] } {XY XY 2 XY} +test string-10.20.1 {string map, dictionaries don't alter map ordering} { + set map {a X b Y a Z} + list [string map [dict create a X b Y a Z] aaa] [string map $map aaa] [dict size $map] [string map $map aaa] +} {ZZZ XXX 2 XXX} test string-10.21 {string map, ABR checks} { string map {longstring foob} long } long |