summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-10-07 18:52:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-10-07 18:52:57 (GMT)
commitbe3376f36c02b2b317b509aed67b7751e656ecbb (patch)
treefe19a954900b367b2c8743acb5e39b9d203cab63 /tests
parent69e7f1b52d7d59ea5b1b6cb027c8fbdc88b9d38d (diff)
downloadtcl-be3376f36c02b2b317b509aed67b7751e656ecbb.zip
tcl-be3376f36c02b2b317b509aed67b7751e656ecbb.tar.gz
tcl-be3376f36c02b2b317b509aed67b7751e656ecbb.tar.bz2
Update [string map] tests to get illustration of need for pure dict
restriction up to date with ordered dicts.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test4
1 files changed, 4 insertions, 0 deletions
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