diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-27 12:41:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-27 12:41:36 (GMT) |
| commit | 4ce7f0cd8682a44257e7189572ad13566fd7dbf4 (patch) | |
| tree | 50af5c54775f0366999b69f4b6e36c0d0a7ed354 | |
| parent | bada59f796d2327a3f24d6887eb1169aff05c5ba (diff) | |
| download | tcl-4ce7f0cd8682a44257e7189572ad13566fd7dbf4.zip tcl-4ce7f0cd8682a44257e7189572ad13566fd7dbf4.tar.gz tcl-4ce7f0cd8682a44257e7189572ad13566fd7dbf4.tar.bz2 | |
Pull back another test from 8.7.
| -rw-r--r-- | tests/utf.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/utf.test b/tests/utf.test index f604c25..7c4831b 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1049,7 +1049,9 @@ test utf-11.6 {Tcl_UtfToUpper beyond U+FFFF} {Uesc fullutf} { test utf-11.7 {Tcl_UtfToUpper beyond U+FFFF} {pairsTo4bytes} { string toupper \uD801\uDC28 } \uD801\uDC00 - +test utf-11.8 {Tcl_UtfToUpper low/high surrogate)} { + string toupper \uDC24\uD824 +} \uDC24\uD824 test utf-12.1 {Tcl_UtfToLower} { string tolower {} |