diff options
| -rw-r--r-- | tests/exec.test | 4 | ||||
| -rw-r--r-- | tests/socket.test | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/exec.test b/tests/exec.test index 8d36292..46d4d92 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -312,8 +312,8 @@ test exec-9.6 {commands returning errors} {exec} { list [catch {exec [interpreter] "$path(sh)" -c "\"$path(echo)\" error msg 1>&2"} msg] $msg } {1 {error msg}} test exec-9.7 {commands returning errors} {exec stdio} { - list [catch {exec [interpreter] "$path(sh)" -c "\"$path(echo)\" error msg 1>&2" \ - | [interpreter] "$path(sh)" -c "\"$path(echo)\" error msg 1>&2"} msg] $msg + list [catch {exec [interpreter] "$path(sh)" -c "\"$path(echo)\" error msg 1>&2 ; \"$path(sleep)\" 1" \ + | [interpreter] "$path(sh)" -c "\"$path(echo)\" error msg 1>&2 ; \"$path(sleep)\" 1"} msg] $msg } {1 {error msg error msg}} diff --git a/tests/socket.test b/tests/socket.test index 96b81b8..2b382d6 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -577,6 +577,7 @@ test socket-2.11 {detecting new data} {socket} { fconfigure $sock -blocking 1 puts $s2 two flush $s2 + after 500 fconfigure $sock -blocking 0 lappend result c:[gets $sock] fconfigure $sock -blocking 1 |