summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-07-22 10:11:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-07-22 10:11:05 (GMT)
commitf9820a2863b758aa1d07274355cd62f9ecbddae1 (patch)
treeb7208dd7d40605721eb0d50d273302ed2cd5f348
parent978b54229dc68812a5ccaa0050324d215db91520 (diff)
downloadtcl-f9820a2863b758aa1d07274355cd62f9ecbddae1.zip
tcl-f9820a2863b758aa1d07274355cd62f9ecbddae1.tar.gz
tcl-f9820a2863b758aa1d07274355cd62f9ecbddae1.tar.bz2
Test-case should pass on Darwin or with non-threaded build as well.
-rw-r--r--tests/unixForkEvent.test11
1 files changed, 3 insertions, 8 deletions
diff --git a/tests/unixForkEvent.test b/tests/unixForkEvent.test
index fee45fd..a0c3f19 100644
--- a/tests/unixForkEvent.test
+++ b/tests/unixForkEvent.test
@@ -1,7 +1,6 @@
# This file contains a collection of tests for the procedures in the file
-# tclEvent.c, which includes the "update", and "vwait" Tcl
-# commands. Sourcing this file into Tcl runs the tests and generates
-# output for errors. No output means no errors were found.
+# tclUnixNotify.c. Sourcing this file into Tcl runs the tests and
+# generates output for errors. No output means no errors were found.
#
# Copyright (c) 1995-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
@@ -13,15 +12,11 @@ package require tcltest 2
namespace import -force ::tcltest::*
testConstraint testfork [llength [info commands testfork]]
-testConstraint threaded [expr {
- ([info exist tcl_platform(threaded)] && $tcl_platform(threaded))
- && $tcl_platform(os) ne "Darwin"
-}]
# Test if the notifier thread is well initialized in a forked interpreter
# by Tcl_InitNotifier
test unixforkevent-1.1 {fork and test writeable event} \
- -constraints {threaded testfork} \
+ -constraints testfork \
-body {
set folder [makeDirectory unixtestfork]
set pid [testfork]