diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-18 14:10:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-18 14:10:09 (GMT) |
commit | 31226696c3e4dd02735044bc1fbf316c0955e65a (patch) | |
tree | 007adbf9a3e2fd57547b810d4e84cdc215568de9 /tests/chanio.test | |
parent | 5d50502a2952145d5a6eaa4482ccd79628c1e16f (diff) | |
download | tcl-31226696c3e4dd02735044bc1fbf316c0955e65a.zip tcl-31226696c3e4dd02735044bc1fbf316c0955e65a.tar.gz tcl-31226696c3e4dd02735044bc1fbf316c0955e65a.tar.bz2 |
Some test-cases need -nocomplainencoding 1, because they use the fallback behavior.
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 2189cc4..6b45da9 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 |