diff options
| author | vasiljevic <vasiljevic@noemail.net> | 2004-06-22 11:55:31 (GMT) |
|---|---|---|
| committer | vasiljevic <vasiljevic@noemail.net> | 2004-06-22 11:55:31 (GMT) |
| commit | 148462ad44a6a0d7457fbb20f67f82baf8871f0d (patch) | |
| tree | 46ef860f18e83f0c6be6b62f91faa2f921d51da5 /tests/unixNotfy.test | |
| parent | 07c2cf1c37e9a1bb383ed2f2d869dcc2718e0e14 (diff) | |
| download | tcl-148462ad44a6a0d7457fbb20f67f82baf8871f0d.zip tcl-148462ad44a6a0d7457fbb20f67f82baf8871f0d.tar.gz tcl-148462ad44a6a0d7457fbb20f67f82baf8871f0d.tar.bz2 | |
Corrected Tcl Bug #770053
FossilOrigin-Name: 450a52effb8bf251f092ba768fc18339ad6670e8
Diffstat (limited to 'tests/unixNotfy.test')
| -rw-r--r-- | tests/unixNotfy.test | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test index d39828e..27f5160 100644 --- a/tests/unixNotfy.test +++ b/tests/unixNotfy.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: unixNotfy.test,v 1.11.2.2 2003/10/06 13:55:39 dgp Exp $ +# RCS: @(#) $Id: unixNotfy.test,v 1.11.2.3 2004/06/22 11:55:36 vasiljevic Exp $ # The tests should not be run if you have a notifier which is unable to # detect infinite vwaits, as the tests below will hang. The presence of @@ -80,10 +80,9 @@ test unixNotfy-2.1 {Tcl_DeleteFileHandler} \ fileevent $f writable {set x 1} vwait x close $f - testthread create "after 500 - testthread send [testthread id] {set x ok} - testthread exit" + testthread create "testthread send [testthread id] {set x ok}" vwait x + threadReap set x } \ -result {ok} \ @@ -104,11 +103,10 @@ test unixNotfy-2.2 {Tcl_DeleteFileHandler} \ close $f1 vwait y close $f2 - testthread create "after 500 - testthread send [testthread id] {set x ok} - testthread exit" - vwait x - set x + testthread create "testthread send [testthread id] {set x ok}" + vwait x + threadReap + set x } \ -result {ok} \ -cleanup { |