diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-16 13:12:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-16 13:12:26 (GMT) |
| commit | 0589f3b799a755af312815888840a99a0733e725 (patch) | |
| tree | 7f3486df3c3ef9326fe17f9804eb403047095d35 | |
| parent | 0943b7181074269ccea4e40288d91575ae211a0a (diff) | |
| download | tcl-0589f3b799a755af312815888840a99a0733e725.zip tcl-0589f3b799a755af312815888840a99a0733e725.tar.gz tcl-0589f3b799a755af312815888840a99a0733e725.tar.bz2 | |
Fix 2 testcases which failed when compiled with TCL_UTF_MAX>3
| -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 f5b4da8..ab98294 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -276,8 +276,8 @@ test utf-6.30.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} { testutfnext [testbytestring \xF2] } 1 test utf-6.30.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} { - testutfnext [testbytestring \xF2] -} -1 + testutfnext [testbytestring \xF2\x00] +} 1 test utf-6.31 {Tcl_UtfNext} {testutfnext testbytestring} { testutfnext [testbytestring \xF2]G } 1 @@ -285,8 +285,8 @@ test utf-6.32.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} { testutfnext [testbytestring \xF2\xA0] } 1 test utf-6.32.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} { - testutfnext [testbytestring \xF2\xA0] -} -1 + testutfnext [testbytestring \xF2\xA0\x00] +} 1 test utf-6.33 {Tcl_UtfNext} {testutfnext testbytestring} { testutfnext [testbytestring \xF2\xD0] } 1 |