diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-07 07:42:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-07 07:42:03 (GMT) |
| commit | 97b08c9a24dd40233c45c0637be7370972ec7b0c (patch) | |
| tree | 0a4f179c562b1722721777ac589d7b98a8457f3f /tests | |
| parent | b97b608974fe24725a6d53807d9b11a3b9c7f401 (diff) | |
| parent | 5500074eff2f8cd05b593f4dcac0aecd23e00b94 (diff) | |
| download | tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.zip tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.tar.gz tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utf.test | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/tests/utf.test b/tests/utf.test index 39818cc..9dd8017 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -41,7 +41,7 @@ test utf-1.5 {Tcl_UniCharToUtf: overflowed Tcl_UniChar} testbytestring { test utf-1.6 {Tcl_UniCharToUtf: negative Tcl_UniChar} testbytestring { expr {[format %c -1] eq [testbytestring "\xef\xbf\xbd"]} } 1 -test utf-1.7 {Tcl_UniCharToUtf: 4 byte sequences} -constraints {tip389 testbytestring} -body { +test utf-1.7 {Tcl_UniCharToUtf: 4 byte sequences} -constraints testbytestring -body { expr {"\U014e4e" eq [testbytestring "\xf0\x94\xb9\x8e"]} } -result 1 @@ -228,15 +228,13 @@ bsCheck \U4e21 20001 bsCheck \U004e21 20001 bsCheck \U00004e21 20001 bsCheck \U0000004e21 78 -if {[testConstraint tip389]} { - bsCheck \U00110000 69632 - bsCheck \U01100000 69632 - bsCheck \U11000000 69632 - bsCheck \U0010FFFF 1114111 - bsCheck \U010FFFF0 1114111 - bsCheck \U10FFFF00 1114111 - bsCheck \UFFFFFFFF 1048575 -} +bsCheck \U00110000 69632 +bsCheck \U01100000 69632 +bsCheck \U11000000 69632 +bsCheck \U0010FFFF 1114111 +bsCheck \U010FFFF0 1114111 +bsCheck \U10FFFF00 1114111 +bsCheck \UFFFFFFFF 1048575 test utf-11.1 {Tcl_UtfToUpper} { string toupper {} |