diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
| commit | ab449cd1d2b045f11c52324c43feb38f00d12dda (patch) | |
| tree | 67ff12657f597df926639a6aef0753add8985a0a /tests/utf.test | |
| parent | be3995f91a73707ad23aa2454b143f6ee0301005 (diff) | |
| parent | 62d4e2a24eedc77e3aff652f43cf553f8eecca3a (diff) | |
| download | tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.zip tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.gz tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/utf.test')
| -rw-r--r-- | tests/utf.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/utf.test b/tests/utf.test index 04580a1..979c4a6 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -471,8 +471,8 @@ test utf-25.1 {Tcl_UniCharNcasecmp} -constraints teststringobj \ -body { teststringobj set 1 a teststringobj set 2 b - teststringobj getunicode 1 - teststringobj getunicode 2 + teststringobj maxchars 1 + teststringobj maxchars 2 string compare -nocase [teststringobj get 1] [teststringobj get 2] } \ -cleanup { @@ -486,8 +486,8 @@ test utf-25.2 {Tcl_UniCharNcasecmp} -constraints teststringobj \ -body { teststringobj set 1 b teststringobj set 2 a - teststringobj getunicode 1 - teststringobj getunicode 2 + teststringobj maxchars 1 + teststringobj maxchars 2 string compare -nocase [teststringobj get 1] [teststringobj get 2] } \ -cleanup { @@ -501,8 +501,8 @@ test utf-25.3 {Tcl_UniCharNcasecmp} -constraints teststringobj \ -body { teststringobj set 1 B teststringobj set 2 a - teststringobj getunicode 1 - teststringobj getunicode 2 + teststringobj maxchars 1 + teststringobj maxchars 2 string compare -nocase [teststringobj get 1] [teststringobj get 2] } \ -cleanup { @@ -517,8 +517,8 @@ test utf-25.4 {Tcl_UniCharNcasecmp} -constraints teststringobj \ -body { teststringobj set 1 aBcB teststringobj set 2 abca - teststringobj getunicode 1 - teststringobj getunicode 2 + teststringobj maxchars 1 + teststringobj maxchars 2 string compare -nocase [teststringobj get 1] [teststringobj get 2] } \ -cleanup { |