diff options
author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/unixNotfy.test | |
parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/unixNotfy.test')
-rw-r--r-- | tests/unixNotfy.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test index 5ed5f12..262131f 100644 --- a/tests/unixNotfy.test +++ b/tests/unixNotfy.test @@ -9,7 +9,7 @@ # 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.3 97/09/15 15:39:53 +# SCCS: @(#) unixNotfy.test 1.7 98/02/17 23:45:12 if {[string compare test [info procs test]] == 1} then {source defs} @@ -19,9 +19,9 @@ if {$tcl_platform(platform) != "unix"} { # 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. +# the "testthread" command indicates that this is the case. -if {"[info commands testeventloop]" == "testeventloop"} { +if {"[info commands testthread]" == "testthread"} { return } @@ -47,3 +47,4 @@ test unixNotfy-1.2 {Tcl_DeleteFileHandler} { } {1 {can't wait for variable "x": would wait forever}} file delete foo +return |