summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2004-06-22 11:55:31 (GMT)
committervasiljevic <zv@archiware.com>2004-06-22 11:55:31 (GMT)
commitb9273c1f802ff63672d83bb1de3667270e663919 (patch)
tree46ef860f18e83f0c6be6b62f91faa2f921d51da5 /tests
parent1dc7dd38fb40ca56d2e36b80e22ff1c1e68e0b0c (diff)
downloadtcl-b9273c1f802ff63672d83bb1de3667270e663919.zip
tcl-b9273c1f802ff63672d83bb1de3667270e663919.tar.gz
tcl-b9273c1f802ff63672d83bb1de3667270e663919.tar.bz2
Corrected Tcl Bug #770053
Diffstat (limited to 'tests')
-rw-r--r--tests/unixNotfy.test16
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 {