diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-05-31 21:26:48 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-06-10 14:00:35 +1000 |
commit | 700e6599fb1a822e257a8dc6be41ffe1e99a30b2 (patch) | |
tree | c6100227a0702de60eb065075c45db0967c3cd68 /tests/event.test | |
parent | c46fde880b6d3f9eef24e8dd1ab7bc3f6a8a0f18 (diff) | |
download | jimtcl-700e6599fb1a822e257a8dc6be41ffe1e99a30b2.zip jimtcl-700e6599fb1a822e257a8dc6be41ffe1e99a30b2.tar.gz jimtcl-700e6599fb1a822e257a8dc6be41ffe1e99a30b2.tar.bz2 |
Add some missing test dependencies
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/event.test b/tests/event.test index 6b6a4d7..2ca7ce8 100644 --- a/tests/event.test +++ b/tests/event.test @@ -13,6 +13,7 @@ source [file dirname [info script]]/testing.tcl needs cmd after eventloop testConstraint socket [expr {[info commands socket] ne ""}] +testConstraint exec [expr {[info commands exec] ne ""}] test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim { catch {rename bgerror {}} @@ -70,7 +71,7 @@ test event-7.3 {bgerror / accumulation / break} { catch {rename bgerror {}} -test event-10.1 {Tcl_Exit procedure} { +test event-10.1 {Tcl_Exit procedure} exec { set cmd [list exec [info nameofexecutable] "<<exit 3"] list [catch $cmd msg] [lindex $errorCode 0] \ [lindex $errorCode 2] |