summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/exec.test6
-rw-r--r--tests/socket.test3
2 files changed, 5 insertions, 4 deletions
diff --git a/tests/exec.test b/tests/exec.test
index b0b9d65..c803343 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: exec.test,v 1.28 2006/12/07 10:35:38 patthoyts Exp $
+# RCS: @(#) $Id: exec.test,v 1.29 2008/03/11 22:23:33 das Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -339,8 +339,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 90dfcb1..421d359 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: socket.test,v 1.40 2006/11/03 11:45:34 dkf Exp $
+# RCS: @(#) $Id: socket.test,v 1.41 2008/03/11 22:23:33 das Exp $
# Running socket tests with a remote server:
# ------------------------------------------
@@ -566,6 +566,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