* tests/winDde.test (createChildProcess): Added a 200-ms delay

(with the event loop live) when shutting down the test DDE server
process, With the delay in place, nuisance failures of tests
winDde-4.2, -6.5, and -6.6 appear to be much less frequent.
[Bug #957449]

2 files changed, 14 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 462bab2..84562c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2004-06-23  Kevin B. Kenny  <kennykb@acm.org>
+
+	* tests/winDde.test (createChildProcess): Added a 200-ms delay
+	(with the event loop live) when shutting down the test DDE server
+	process, With the delay in place, nuisance failures of tests
+	winDde-4.2, -6.5, and -6.6 appear to be much less frequent.
+	[Bug #957449]
+
 2004-06-23  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* tests/*.test: Standardize use of platform constraints.
diff --git a/tests/winDde.test b/tests/winDde.test
index 59ab841..65c4dd7 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winDde.test,v 1.21 2004/06/23 15:36:58 dkf Exp $
+# RCS: @(#) $Id: winDde.test,v 1.22 2004/06/23 17:26:58 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -98,7 +98,11 @@ proc createChildProcess { ddeServerName {handler {}}} {
 	puts ready
         flush stdout
 	vwait done
-	update
+	# allow enough time for the calling process to
+	# claim all results, to avoid spurious "server did
+	# not respond"
+	after 200 { set reallyDone 1 }
+	vwait reallyDone
 	exit
     }
     close $f