diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 13:19:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 13:19:37 (GMT) |
commit | ac4fb39a73fb01e2cbb763a086191aa4fcec175f (patch) | |
tree | fb67aa926db34edee816329713636b53a64927df /tests/utf.test | |
parent | 5528e1c1a25f45988be72e2e16ff577f0dbb1abd (diff) | |
download | tcl-ac4fb39a73fb01e2cbb763a086191aa4fcec175f.zip tcl-ac4fb39a73fb01e2cbb763a086191aa4fcec175f.tar.gz tcl-ac4fb39a73fb01e2cbb763a086191aa4fcec175f.tar.bz2 |
Don't use Unicode character \udead in test-cases, because it is an invalid Unicode code-point (lower surrogate). This will cause test-failures with TIP #389. Just use \ud0ad in stead. Also fix some other test-cases which fail for TCL_UTF_MAX == 4.
Diffstat (limited to 'tests/utf.test')
-rw-r--r-- | tests/utf.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/utf.test b/tests/utf.test index 422ab08..45f9c0c 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -68,10 +68,10 @@ test utf-2.7 {Tcl_UtfToUniChar: lead (3-byte) followed by 2 trail} testbytestrin } {1} test utf-2.8 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body { string length [testbytestring "\xF0\x90\x80\x80"] -} -result {1} +} -result {2} test utf-2.9 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body { string length [testbytestring "\xF4\x8F\xBF\xBF"] -} -result {1} +} -result {2} test utf-2.10 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail, underflow} testbytestring { string length [testbytestring "\xF0\x8F\xBF\xBF"] } {4} |