diff options
| author | jenn <jenn> | 1999-08-27 01:17:01 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-08-27 01:17:01 (GMT) |
| commit | 0d3afa4a15d5f42159aca14b4ebd4cca85b91dfe (patch) | |
| tree | 6ae58e358e0f7740049d30a1d2e5db4aa0c8bda0 /tests/event.test | |
| parent | 5091b794329105b393227690593b14fbfa6e37bc (diff) | |
| download | tcl-0d3afa4a15d5f42159aca14b4ebd4cca85b91dfe.zip tcl-0d3afa4a15d5f42159aca14b4ebd4cca85b91dfe.tar.gz tcl-0d3afa4a15d5f42159aca14b4ebd4cca85b91dfe.tar.bz2 | |
* tests/tcltest.test:
* library/tcltest1.0/tcltest.tcl: Added a -args flag that sets a
variable named ::tcltest::parameters based on whatever's being
sent in as the argument to the -args flag.
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 17 |
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 |