diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-08 14:18:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-08 14:18:33 (GMT) |
| commit | 07e0e0d06a58acfb653f6f760c4a7f180c6ac456 (patch) | |
| tree | dfea09234c87d08a18f6751dc5e1b75670f6f3c0 /generic/tclTest.c | |
| parent | 2f5e983d7aaefadd8f9909a27c26d2d62d049f63 (diff) | |
| parent | 80317c0d6d466a184a6f8c711981d601541deb89 (diff) | |
| download | tcl-07e0e0d06a58acfb653f6f760c4a7f180c6ac456.zip tcl-07e0e0d06a58acfb653f6f760c4a7f180c6ac456.tar.gz tcl-07e0e0d06a58acfb653f6f760c4a7f180c6ac456.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 40c3614..5f7de16 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6747,12 +6747,12 @@ TestUtfNextCmd( if (numBytes > (int)sizeof(buffer) - 3) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "\"testutfnext\" can only handle %d bytes", - (int)sizeof(buffer) - 3)); + (int)sizeof(buffer) - 4)); return TCL_ERROR; } memcpy(buffer + 1, bytes, numBytes); - buffer[0] = buffer[numBytes + 1] = buffer[numBytes + 2] = '\x00'; + buffer[0] = buffer[numBytes + 1] = buffer[numBytes + 2] = buffer[numBytes + 3] = '\xA0'; if (!Tcl_UtfCharComplete(buffer + 1, offset)) { /* Cannot scan a complete sequence from the data */ @@ -6775,8 +6775,8 @@ TestUtfNextCmd( /* Run Tcl_UtfNext with many more possible bytes at src[end], all should give the same result */ result = TclUtfNext(buffer + 1); if (first != result) { - Tcl_AppendResult(interp, "Tcl_UtfNext is not supposed to read src[end]", NULL); - return TCL_ERROR; + first = buffer; + break; } } |