From 59b1b83945ed41a450ebe9a8c07ccc6ca6dbfcd0 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Tue, 11 Mar 2008 22:23:33 +0000
Subject: 	* tests/exec.test (exec-9.7):		reduce timing
 sensitivity 	* tests/socket.test (socket-2.11):	(esp. on multi-proc
 machines).

---
 tests/exec.test   | 6 +++---
 tests/socket.test | 3 ++-
 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
-- 
cgit v0.12