diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-13 08:07:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-13 08:07:09 (GMT) |
| commit | 28ea8b92a68d4db7dd451fd115b9f0c0a4ae47a6 (patch) | |
| tree | 08e8c07715ee8619fd76f105b056b9c76b0c23b4 /tests/io.test | |
| parent | c2626689e16b104637564825cd61b1b0ff14dfc2 (diff) | |
| parent | d9b2b3f0125cf86bd1e39eae4fdfd3b9a58cf75b (diff) | |
| download | tcl-28ea8b92a68d4db7dd451fd115b9f0c0a4ae47a6.zip tcl-28ea8b92a68d4db7dd451fd115b9f0c0a4ae47a6.tar.gz tcl-28ea8b92a68d4db7dd451fd115b9f0c0a4ae47a6.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test index e4f68be..32c4b99 100644 --- a/tests/io.test +++ b/tests/io.test @@ -8566,7 +8566,7 @@ test io-60.1 {writing illegal utf sequences} {fileevent testbytestring} { set out [open $path(script) w] puts $out "catch {load $::tcltestlib Tcltest}" puts $out { - puts [testbytestring \xE2] + puts ABC[testbytestring \xE2] exit 1 } proc readit {pipe} { @@ -8590,7 +8590,7 @@ test io-60.1 {writing illegal utf sequences} {fileevent testbytestring} { # cut of the remainder of the error stack, especially the filename set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]] list $x $result -} {1 {gets {} catch {error writing "stdout": illegal byte sequence}}} +} {1 {gets ABC catch {error writing "stdout": illegal byte sequence}}} test io-61.1 {Reset eof state after changing the eof char} -setup { set datafile [makeFile {} eofchar] @@ -9020,7 +9020,7 @@ test io-75.4 {shiftjis encoding error read results in raw bytes} -setup { flush $f seek $f 0 fconfigure $f -encoding shiftjis -buffering none -eofchar "" -translation lf -} -body { +} -constraints deprecated -body { set d [read $f] binary scan $d H* hd set hd |