diff options
Diffstat (limited to 'tests/unixNotfy.test')
-rw-r--r-- | tests/unixNotfy.test | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test deleted file mode 100644 index 2775597..0000000 --- a/tests/unixNotfy.test +++ /dev/null @@ -1,99 +0,0 @@ -# This file contains tests for tclUnixNotfy.c. -# -# This file contains a collection of tests for one or more of the Tcl -# built-in commands. Sourcing this file into Tcl runs the tests and -# generates output for errors. No output means no errors were found. -# -# Copyright (c) 1997 by Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. -# -# 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.4 1999/04/16 00:47:36 stanton 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 -# the "testthread" command indicates that this is the case. - -if {[lsearch [namespace children] ::tcltest] == -1} { - source [file join [pwd] [file dirname [info script]] defs.tcl] -} - -set ::tcltest::testConfig(testthread) \ - [expr {[info commands testthread] != {}}] - -# 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} {unixOnly && !testthread} { - catch {vwait x} - set f [open foo w] - fileevent $f writable {set x 1} - vwait x - close $f - list [catch {vwait x} msg] $msg -} {1 {can't wait for variable "x": would wait forever}} -test unixNotfy-1.2 {Tcl_DeleteFileHandler} {unixOnly && !testthread} { - catch {vwait x} - set f1 [open foo w] - set f2 [open foo2 w] - fileevent $f1 writable {set x 1} - fileevent $f2 writable {set y 1} - vwait x - close $f1 - vwait y - close $f2 - list [catch {vwait x} msg] $msg -} {1 {can't wait for variable "x": would wait forever}} - - -test unixNotfy-2.1 {Tcl_DeleteFileHandler} {unixOnly testthread} { - update - set f [open foo w] - fileevent $f writable {set x 1} - vwait x - close $f - testthread create "after 500 - testthread send [testthread id] {set x ok} - testthread exit" - vwait x - set x -} {ok} -test unixNotfy-1.2 {Tcl_DeleteFileHandler} {unixOnly testthread} { - update - set f1 [open foo w] - set f2 [open foo2 w] - fileevent $f1 writable {set x 1} - fileevent $f2 writable {set y 1} - vwait x - close $f1 - vwait y - close $f2 - testthread create "after 500 - testthread send [testthread id] {set x ok} - testthread exit" - vwait x - set x -} {ok} - - - -# cleanup -file delete foo -file delete foo2 -::tcltest::cleanupTests -return - - - - - - - - - - - - |