diff options
author | sebres <sebres@users.sourceforge.net> | 2022-07-22 16:22:22 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2022-07-22 16:22:22 (GMT) |
commit | c3cc26df50b8e700e15a735e75defe3b0e7c1275 (patch) | |
tree | 5b7d6b971ca92a68b77945c52f4c9855c7b3cef5 /tests | |
parent | 90b553a319e6c8ab21ae4fee6216dcd306ebc6e7 (diff) | |
download | tcl-c3cc26df50b8e700e15a735e75defe3b0e7c1275.zip tcl-c3cc26df50b8e700e15a735e75defe3b0e7c1275.tar.gz tcl-c3cc26df50b8e700e15a735e75defe3b0e7c1275.tar.bz2 |
fixes logical error in test io-29.36.1 (translation {auto} causes that answer "client" reaches the server-side as "client\r\n", and `gets` by translation {binary} behaves nearly identical to {lf} mode, so sends "really client\r?\r" in the next question), switching to {auto lf} now
Diffstat (limited to 'tests')
-rw-r--r-- | tests/io.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index f75f111..8df28ba 100644 --- a/tests/io.test +++ b/tests/io.test @@ -3013,7 +3013,7 @@ test io-29.36.1 {gets on translation auto with "\r" in QA communication mode, po set result {} } -body { set port [gets $s] - foreach t {{cr lf} auto} { + foreach t {{cr lf} {auto lf}} { set c [socket 127.0.0.1 $port] fconfigure $c -buffering line -translation $t lappend result $t @@ -3033,7 +3033,7 @@ test io-29.36.1 {gets on translation auto with "\r" in QA communication mode, po close $s if {$c ne {}} { close $c } unset -nocomplain s c port t q -} -result [list {cr lf} "really client?" yes auto "really client?" yes] +} -result [list {cr lf} "really client?" yes {auto lf} "really client?" yes] test io-29.36.2 {gets on translation auto with "\r\n" in different buffers, bug [b3977d199b]} -constraints { socket tempNotMac fileevent } -setup { |