aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/tcl/tests/unixNotfy.test
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcl/tests/unixNotfy.test')
-rw-r--r--contrib/tcl/tests/unixNotfy.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/contrib/tcl/tests/unixNotfy.test b/contrib/tcl/tests/unixNotfy.test
index ba99db103eaa..5ed5f12adede 100644
--- a/contrib/tcl/tests/unixNotfy.test
+++ b/contrib/tcl/tests/unixNotfy.test
@@ -9,13 +9,22 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) unixNotfy.test 1.2 97/06/16 17:26:28
+# SCCS: @(#) unixNotfy.test 1.3 97/09/15 15:39:53
if {[string compare test [info procs test]] == 1} then {source defs}
if {$tcl_platform(platform) != "unix"} {
return
}
+
+# 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
+# the "testeventloop" command indicates that this is the case.
+
+if {"[info commands testeventloop]" == "testeventloop"} {
+ return
+}
+
test unixNotfy-1.1 {Tcl_DeleteFileHandler} {
catch {vwait x}
set f [open foo w]