diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-24 13:09:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-24 13:09:29 (GMT) |
| commit | 83d6fd77b0a343aed0a2e23b161df3a26d70136f (patch) | |
| tree | ba25fea4844a56818767fe66e21ed2a62efcbe24 /tests/utf.test | |
| parent | 4431f3dbff4596aed80a6e91baf0819e5f69f189 (diff) | |
| parent | 0f1fe8880dc481b214a344189a6a6904b59eede0 (diff) | |
| download | tcl-83d6fd77b0a343aed0a2e23b161df3a26d70136f.zip tcl-83d6fd77b0a343aed0a2e23b161df3a26d70136f.tar.gz tcl-83d6fd77b0a343aed0a2e23b161df3a26d70136f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/utf.test')
| -rw-r--r-- | tests/utf.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test index 8c59490..f79d3bf 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -189,6 +189,12 @@ test utf-10.4 {Tcl_UtfBackslash: stops at first non-hex} testbytestring { test utf-10.5 {Tcl_UtfBackslash: stops after 4 hex chars} testbytestring { expr {"\u4e216" eq "[testbytestring \xe4\xb8\xa1]6"} } 1 +test utf-10.6 {Tcl_UtfBackslash: stops after 5 hex chars} testbytestring { + expr {"\U1e2165" eq "[testbytestring \xf0\x9e\x88\x96]5"} +} 1 +test utf-10.6 {Tcl_UtfBackslash: stops after 6 hex chars} testbytestring { + expr {"\U10e2165" eq "[testbytestring \xf4\x8e\x88\x96]5"} +} 1 proc bsCheck {char num} { global errNum test utf-10.$errNum {backslash substitution} { |