summaryrefslogtreecommitdiffstats
path: root/tests/event.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/event.test')
-rw-r--r--tests/event.test17
1 files changed, 12 insertions, 5 deletions
diff --git a/tests/event.test b/tests/event.test
index 073d96d..d237a86 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.8 1999/07/01 17:36:17 jenn Exp $
+# RCS: @(#) $Id: event.test,v 1.9 1999/08/27 01:17:05 jenn Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -23,8 +23,15 @@ set ::tcltest::testConstraints(testexithandler) \
set ::tcltest::testConstraints(testfilewait) \
[expr {[info commands testfilewait] != {}}]
+set ::tcltest::testConstraints(knownBugThreadedLinux) [expr \
+ {($tcl_platform(os) != "Linux") \
+ && ([info commands testthread] != {})}]
-test event-1.1 {Tcl_CreateFileHandler, reading} {testfilehandler} {
+set ::tcltest::testConstraints(knownBugThreadedSolaris) [expr \
+ {($tcl_platform(os) != "SunOS") \
+ && ([info commands testthread] != {})}]
+
+test event-1.1 {Tcl_CreateFileHandler, reading} {testfilehandler knownBugThreadedLinux knownBugThreadedSolaris} {
testfilehandler close
testfilehandler create 0 readable off
testfilehandler clear 0
@@ -368,7 +375,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} {
+test event-11.4 {Tcl_VwaitCmd procedure} {knownBugThreadedLinux} {
foreach i [after info] {
after cancel $i
}
@@ -394,9 +401,9 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {soc
puts $s foobar
close $s
}
- set s1 [socket -server accept 5001]
+ catch {set s1 [socket -server accept 5001]}
after 1000
- set s2 [socket 127.0.0.1 5001]
+ catch {set s2 [socket 127.0.0.1 5001]}
close $s1
set x 0
set y 0