summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/unixNotfy.test11
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test
index 27f5160..c75c745 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.3 2004/06/22 11:55:36 vasiljevic Exp $
+# RCS: @(#) $Id: unixNotfy.test,v 1.11.2.4 2005/05/14 20:52:31 das 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
@@ -29,13 +29,18 @@ if {[info exists tk_version]} {
set ::tcltest::testConstraints(testthread) \
[expr {[info commands testthread] != {}}]
+# Darwin always uses a threaded notifier
+testConstraint unthreaded [expr {
+ (![info exist tcl_platform(threaded)] || !$tcl_platform(threaded))
+ && $tcl_platform(os) ne "Darwin"
+}]
# The next two tests will hang if threads are enabled because the notifier
# will not necessarily wait for ever in this case, so it does not generate
# an error.
test unixNotfy-1.1 {Tcl_DeleteFileHandler} \
- -constraints {unixOnly && !testthread} \
+ -constraints {unixOnly && unthreaded} \
-body {
catch {vwait x}
set f [open [makeFile "" foo] w]
@@ -51,7 +56,7 @@ test unixNotfy-1.1 {Tcl_DeleteFileHandler} \
}
test unixNotfy-1.2 {Tcl_DeleteFileHandler} \
- -constraints {unixOnly && !testthread} \
+ -constraints {unixOnly && unthreaded} \
-body {
catch {vwait x}
set f1 [open [makeFile "" foo] w]