diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-22 10:11:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-22 10:11:05 (GMT) |
| commit | f287d8cb0f7323111a09a626f8d82985ee7ed54d (patch) | |
| tree | b7208dd7d40605721eb0d50d273302ed2cd5f348 /tests/unixForkEvent.test | |
| parent | 0c2e553e8f1cba16c82ea38a07526726af210249 (diff) | |
| download | tcl-f287d8cb0f7323111a09a626f8d82985ee7ed54d.zip tcl-f287d8cb0f7323111a09a626f8d82985ee7ed54d.tar.gz tcl-f287d8cb0f7323111a09a626f8d82985ee7ed54d.tar.bz2 | |
Test-case should pass on Darwin or with non-threaded build as well.
Diffstat (limited to 'tests/unixForkEvent.test')
| -rw-r--r-- | tests/unixForkEvent.test | 11 |
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] |