diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-30 15:21:21 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-22 13:27:14 +1000 |
| commit | 192056900583884bc1f07f371df6478d856ada3b (patch) | |
| tree | 540618a3e81d8d9e14261e267edb912f5b73710a /tests/event.test | |
| parent | d98489727fe31fa217d237b36901211adc35282d (diff) | |
| download | jimtcl-192056900583884bc1f07f371df6478d856ada3b.zip jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.gz jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.bz2 | |
Overhaul unit test framework
Much closer to tcltest now, including constraints.
Try to get all appropriate tests running under both Jim and Tcl.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/event.test b/tests/event.test index 725d63b..da4af79 100644 --- a/tests/event.test +++ b/tests/event.test @@ -9,10 +9,12 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -source testing.tcl -package-or-skip eventloop +source [file dirname [info script]]/testing.tcl -test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} { +needs cmd after eventloop +testConstraint socket [expr {[info commands socket] ne ""}] + +test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim { catch {rename bgerror {}} proc bgerror msg { lappend ::x $msg @@ -80,7 +82,7 @@ test event-11.1 {Tcl_VwaitCmd procedure} { test event-11.2 {Tcl_VwaitCmd procedure} { list [catch {vwait a b} msg] $msg } {1 {wrong # args: should be "vwait name"}} -test event-11.3 {Tcl_VwaitCmd procedure} { +test event-11.3 {Tcl_VwaitCmd procedure} jim { catch {unset x} set x 1 list [catch {vwait x(1)} msg] $msg @@ -105,8 +107,7 @@ foreach i [after info] { after cancel $i } -if {[info commands socket] ne ""} { -test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} { +test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {jim socket} { set f1 [open test1 w] proc accept {s args} { puts $s foobar @@ -129,7 +130,7 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} { file delete test1 test2 list $x $y $z } {3 3 done} -} + test event-11.6 {Tcl_VwaitCmd procedure: round robin scheduling, same source} { file delete test1 test2 set f1 [open test1 w] |