summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-06-23 17:26:56 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-06-23 17:26:56 (GMT)
commit4e17f9b10b636f4302f62dfb464551aa3cc2a003 (patch)
treea8866ff7111d4310453fec5ea5842f10b0db21d4
parenteacec6a32f6259d568175bda10fe62e7dc0532d1 (diff)
downloadtcl-4e17f9b10b636f4302f62dfb464551aa3cc2a003.zip
tcl-4e17f9b10b636f4302f62dfb464551aa3cc2a003.tar.gz
tcl-4e17f9b10b636f4302f62dfb464551aa3cc2a003.tar.bz2
* 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]
-rw-r--r--ChangeLog8
-rw-r--r--tests/winDde.test8
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