diff options
| author | kennykb <kennykb@noemail.net> | 2004-06-23 17:26:56 (GMT) |
|---|---|---|
| committer | kennykb <kennykb@noemail.net> | 2004-06-23 17:26:56 (GMT) |
| commit | 3c9a5c29c4e6968979492bb9b1733651277f33f7 (patch) | |
| tree | a8866ff7111d4310453fec5ea5842f10b0db21d4 /tests/winDde.test | |
| parent | 2b40edafd0553a253549111fa593fa0c8d19d8d7 (diff) | |
| download | tcl-3c9a5c29c4e6968979492bb9b1733651277f33f7.zip tcl-3c9a5c29c4e6968979492bb9b1733651277f33f7.tar.gz tcl-3c9a5c29c4e6968979492bb9b1733651277f33f7.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]
FossilOrigin-Name: c612fd82178d090cb4d9302fd53628e6008fdb9c
Diffstat (limited to 'tests/winDde.test')
| -rw-r--r-- | tests/winDde.test | 8 |
1 files changed, 6 insertions, 2 deletions
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 |