diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-17 04:45:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-17 04:45:26 (GMT) |
| commit | c998be1b068916a8009a76867ed4eaed8938d19b (patch) | |
| tree | 1864d005cc0bf76208d4a49d7890177656045517 /tests | |
| parent | 700b782299b5ac82c829eae5725cdc7b577390a6 (diff) | |
| download | tcl-c998be1b068916a8009a76867ed4eaed8938d19b.zip tcl-c998be1b068916a8009a76867ed4eaed8938d19b.tar.gz tcl-c998be1b068916a8009a76867ed4eaed8938d19b.tar.bz2 | |
When supporting 4-byte sequences, make sure the Overlong test does too, and
make sure the test results reflect it.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utf.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/utf.test b/tests/utf.test index 2004625..e8b1d51 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -630,13 +630,13 @@ test utf-7.38 {Tcl_UtfPrev -- overlong sequence} testutfprev { } 1 test utf-7.39 {Tcl_UtfPrev -- overlong sequence} {testutfprev} { # Doesn't work with TCL_UTF_MAX>3 testutfprev A\xF0\x90\x80\x80 -} 4 +} 1 test utf-7.40 {Tcl_UtfPrev -- overlong sequence} {testutfprev} { # Doesn't work with TCL_UTF_MAX>3 testutfprev A\xF0\x90\x80\x80 4 -} 3 +} 1 test utf-7.41 {Tcl_UtfPrev -- overlong sequence} {testutfprev} { # Doesn't work with TCL_UTF_MAX>3 testutfprev A\xF0\x90\x80\x80 3 -} 2 +} 1 test utf-7.42 {Tcl_UtfPrev -- overlong sequence} testutfprev { testutfprev A\xF0\x90\x80\x80 2 } 1 |