diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-07 18:52:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-07 18:52:57 (GMT) |
| commit | 870f61c05d5a0b8f4e38871340f9eaeb89729546 (patch) | |
| tree | fe19a954900b367b2c8743acb5e39b9d203cab63 /tests | |
| parent | 65853069738bf0f680c58f4678f2d5d84a2bdf0d (diff) | |
| download | tcl-870f61c05d5a0b8f4e38871340f9eaeb89729546.zip tcl-870f61c05d5a0b8f4e38871340f9eaeb89729546.tar.gz tcl-870f61c05d5a0b8f4e38871340f9eaeb89729546.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.test | 4 |
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 |