From 4e17f9b10b636f4302f62dfb464551aa3cc2a003 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Wed, 23 Jun 2004 17:26:56 +0000 Subject: * 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] --- ChangeLog | 8 ++++++++ tests/winDde.test | 8 ++++++-- 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 + + * 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 * 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 -- cgit v0.12