summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-03-11 22:23:33 (GMT)
committerdas <das>2008-03-11 22:23:33 (GMT)
commit59b1b83945ed41a450ebe9a8c07ccc6ca6dbfcd0 (patch)
tree5c69b968595ded23a044be5a2e7479098877f411
parent964479ff7f21913d53a84477d3ba9dea1b2e5490 (diff)
downloadtcl-59b1b83945ed41a450ebe9a8c07ccc6ca6dbfcd0.zip
tcl-59b1b83945ed41a450ebe9a8c07ccc6ca6dbfcd0.tar.gz
tcl-59b1b83945ed41a450ebe9a8c07ccc6ca6dbfcd0.tar.bz2
* tests/exec.test (exec-9.7): reduce timing sensitivity
* tests/socket.test (socket-2.11): (esp. on multi-proc machines).
-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