diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-19 15:00:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-19 15:00:07 (GMT) |
| commit | 1c6b1c9e6cfa728758ecf5c6172af85ca2d3a93c (patch) | |
| tree | 793544b668fa1f7265f4c6c242768591baacc291 /tests/chanio.test | |
| parent | 45bfcbb2679008e74319e8db21704f5182a35547 (diff) | |
| parent | 6c8d9886b5cb247f40f0572715c74399573689df (diff) | |
| download | tcl-1c6b1c9e6cfa728758ecf5c6172af85ca2d3a93c.zip tcl-1c6b1c9e6cfa728758ecf5c6172af85ca2d3a93c.tar.gz tcl-1c6b1c9e6cfa728758ecf5c6172af85ca2d3a93c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/chanio.test')
| -rw-r--r-- | tests/chanio.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 4ad59f1..33e9937 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -252,7 +252,7 @@ test chan-io-3.3 {WriteChars: compatibility with WriteBytes: flush on line} -bod test chan-io-3.4 {WriteChars: loop over stage buffer} -body { # stage buffer maps to more than can be queued at once. set f [open $path(test1) w] - chan configure $f -encoding jis0208 -buffersize 16 + chan configure $f -encoding jis0208 -buffersize 16 -nocomplainencoding 1 chan puts -nonewline $f "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" set x [list [contents $path(test1)]] chan close $f @@ -265,7 +265,7 @@ test chan-io-3.5 {WriteChars: saved != 0} -body { # be moved to beginning of next channel buffer to preserve requested # buffersize. set f [open $path(test1) w] - chan configure $f -encoding jis0208 -buffersize 17 + chan configure $f -encoding jis0208 -buffersize 17 -nocomplainencoding 1 chan puts -nonewline $f "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" set x [list [contents $path(test1)]] chan close $f @@ -298,7 +298,7 @@ test chan-io-3.7 {WriteChars: (bufPtr->nextAdded > bufPtr->length)} -body { # on flush. The truncated bytes are moved to the beginning of the next # channel buffer. set f [open $path(test1) w] - chan configure $f -encoding jis0208 -buffersize 17 + chan configure $f -encoding jis0208 -buffersize 17 -nocomplainencoding 1 chan puts -nonewline $f "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" set x [list [contents $path(test1)]] chan close $f |