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 | |
| 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>
| -rw-r--r-- | tests/event.test | 3 | ||||
| -rw-r--r-- | tests/pid.test | 1 |
2 files changed, 3 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] diff --git a/tests/pid.test b/tests/pid.test index 0d2449d..404c2b5 100644 --- a/tests/pid.test +++ b/tests/pid.test @@ -16,6 +16,7 @@ source [file dirname [info script]]/testing.tcl needs cmd pid posix +needs cmd exec catch {package require regexp} testConstraint regexp [expr {[info commands regexp] ne {}}] |