diff options
author | jenn <jenn@noemail.net> | 1999-08-27 21:45:16 (GMT) |
---|---|---|
committer | jenn <jenn@noemail.net> | 1999-08-27 21:45:16 (GMT) |
commit | 5626a3fbade8afa5eb0284f67c5cfdd59299b604 (patch) | |
tree | 97e0910895fc7cf9d0e9e9889ebedae24541189c /tests/event.test | |
parent | 7e767bae4fc352e6f23202dace443329a4ed7dbd (diff) | |
download | tcl-5626a3fbade8afa5eb0284f67c5cfdd59299b604.zip tcl-5626a3fbade8afa5eb0284f67c5cfdd59299b604.tar.gz tcl-5626a3fbade8afa5eb0284f67c5cfdd59299b604.tar.bz2 |
* tests/env.test:
* tests/exec.test:
* tests/io.test:
* tests/event.test:
* tests/tcltest.test: Added 'exit' calls to scripts that the tests
themselves write, and removed accidental checkin of knownBugThreaded
constraints for Solaris and Linux.
FossilOrigin-Name: cb311db6b8387fcc34bbb369425b88d050ec605c
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/tests/event.test b/tests/event.test index d237a86..1366704 100644 --- a/tests/event.test +++ b/tests/event.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. # -# RCS: @(#) $Id: event.test,v 1.9 1999/08/27 01:17:05 jenn Exp $ +# RCS: @(#) $Id: event.test,v 1.10 1999/08/27 21:45:17 jenn Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -23,15 +23,7 @@ set ::tcltest::testConstraints(testexithandler) \ set ::tcltest::testConstraints(testfilewait) \ [expr {[info commands testfilewait] != {}}] -set ::tcltest::testConstraints(knownBugThreadedLinux) [expr \ - {($tcl_platform(os) != "Linux") \ - && ([info commands testthread] != {})}] - -set ::tcltest::testConstraints(knownBugThreadedSolaris) [expr \ - {($tcl_platform(os) != "SunOS") \ - && ([info commands testthread] != {})}] - -test event-1.1 {Tcl_CreateFileHandler, reading} {testfilehandler knownBugThreadedLinux knownBugThreadedSolaris} { +test event-1.1 {Tcl_CreateFileHandler, reading} {testfilehandler} { testfilehandler close testfilehandler create 0 readable off testfilehandler clear 0 @@ -375,7 +367,7 @@ test event-11.3 {Tcl_VwaitCmd procedure} { set x 1 list [catch {vwait x(1)} msg] $msg } {1 {can't trace "x(1)": variable isn't array}} -test event-11.4 {Tcl_VwaitCmd procedure} {knownBugThreadedLinux} { +test event-11.4 {Tcl_VwaitCmd procedure} {} { foreach i [after info] { after cancel $i } |