diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-13 10:01:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-13 10:01:33 (GMT) |
| commit | 7506b1b86fe4c35f085a4a98535343a13ca01d26 (patch) | |
| tree | 3ad12c6d81fddf543e4f221f59dd446a02c5e32b /tests | |
| parent | 393743bb7088f57b28cd5f98d2c9f70189807a2e (diff) | |
| parent | 28ea8b92a68d4db7dd451fd115b9f0c0a4ae47a6 (diff) | |
| download | tcl-7506b1b86fe4c35f085a4a98535343a13ca01d26.zip tcl-7506b1b86fe4c35f085a4a98535343a13ca01d26.tar.gz tcl-7506b1b86fe4c35f085a4a98535343a13ca01d26.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests')
| -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 |