diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-07 12:38:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-07 12:38:56 (GMT) |
| commit | ee577ebd90b47d4ab597370cfd5c8e7f4a09cb7b (patch) | |
| tree | e749bbb31e4f9ce61149796dbe96184f479db367 | |
| parent | 2b508d79644f46e6151882f97734aff5a15f6999 (diff) | |
| download | tcl-ee577ebd90b47d4ab597370cfd5c8e7f4a09cb7b.zip tcl-ee577ebd90b47d4ab597370cfd5c8e7f4a09cb7b.tar.gz tcl-ee577ebd90b47d4ab597370cfd5c8e7f4a09cb7b.tar.bz2 | |
There is no "eq" command any more
| -rw-r--r-- | tests/utf.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/utf.test b/tests/utf.test index 1974979..308f06c 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -85,12 +85,12 @@ test utf-1.13.1 {Tcl_UniCharToUtf: Invalid surrogate} {fullutf testbytestring} { expr {"\UD842" eq [testbytestring \xEF\xBF\xBD]} } 1 test utf-1.14 {Tcl_UniCharToUtf: surrogate pairs from concat} {pairsTo4bytes testbytestring} { - set hi \uD842 - set lo \uDC42 - eq "$hi$lo" [testbytestring \xF0\xA0\xA1\x92] + set hi \uD83D + set lo \uDE02 + expr {"$hi$lo" eq [testbytestring \xF0\x9F\x98\x82]} } 1 test utf-1.15 {Tcl_UniCharToUtf: surrogate pairs from concat} {pairsTo4bytes testbytestring} { - eq [string cat \uD842 \uDC42] [testbytestring \xF0\xA0\xA1\x92] + expr {[string cat \uD83D \uDE02] eq [testbytestring \xF0\x9F\x98\x82]} } 1 test utf-2.1 {Tcl_UtfToUniChar: low ascii} { |