diff options
author | Danyil Bohdan <danyil.bohdan@gmail.com> | 2016-08-29 16:02:34 +0300 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-08-29 23:46:25 +1000 |
commit | 803fdb21caa2bbc5c8305db513c809972cc4a9f0 (patch) | |
tree | 47fccd2a861e9e17beae291ab6486bc738b0889c /tests/exec.test | |
parent | c9e7bdf6b47917199a0a45069aa78c839b2bde4e (diff) | |
download | jimtcl-803fdb21caa2bbc5c8305db513c809972cc4a9f0.zip jimtcl-803fdb21caa2bbc5c8305db513c809972cc4a9f0.tar.gz jimtcl-803fdb21caa2bbc5c8305db513c809972cc4a9f0.tar.bz2 |
tests/exec.test: Add constraint "unix" for 12.1
Diffstat (limited to 'tests/exec.test')
-rw-r--r-- | tests/exec.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/exec.test b/tests/exec.test index 441681e..8df1aa8 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -19,6 +19,8 @@ needs cmd exec needs cmd flush needs cmd after eventloop +testConstraint unix [expr {$tcl_platform(platform) eq {unix}}] + # Sleep which supports fractions of a second if {[info commands sleep] eq {}} { proc sleep {n} { @@ -342,9 +344,9 @@ test exec-11.4 {commands in background} { exec {*}$sleepx 0.3 -test exec-12.1 {reaping background processes} -body { +test exec-12.1 {reaping background processes} -constraints unix -body { for {set i 0} {$i < 20} {incr i} { - exec echo foo > exec.tmp1 & + exec echo foo > exec.tmp1 & } exec {*}$sleepx 0.1 catch {exec ps | fgrep "echo foo" | fgrep -v fgrep | wc} msg |