diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-10-17 07:50:18 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-10-17 07:51:09 +1000 |
| commit | 9b4d8ec4fb37a5511f7dbea54b7a10c31ca0ab89 (patch) | |
| tree | 4a08d6c921f9c3b0daddece3216f8bb6595ecf5c | |
| parent | 1fd4fb6a645fa107d644f1ca0a0a8d7aa702e1d5 (diff) | |
| download | jimtcl-9b4d8ec4fb37a5511f7dbea54b7a10c31ca0ab89.zip jimtcl-9b4d8ec4fb37a5511f7dbea54b7a10c31ca0ab89.tar.gz jimtcl-9b4d8ec4fb37a5511f7dbea54b7a10c31ca0ab89.tar.bz2 | |
tests: Try to fix exec2-3.2 on Windows
On some mingw platforms exec2-3.2 isn't producing SIGPIPE
Try to make it do so.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -rw-r--r-- | tests/exec2.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/exec2.test b/tests/exec2.test index 91108da..13a4ff0 100644 --- a/tests/exec2.test +++ b/tests/exec2.test @@ -52,13 +52,13 @@ test exec2-3.1 "close pipeline return value" { } {1 {child process exited abnormally} CHILDSTATUS 1} test exec2-3.2 "close pipeline return value" -body { - set f [open "|echo abc | grep def | wc" ] + set bigstring [string repeat a 10000] + set f [open [list |cat << $bigstring]] set rc [catch {close $f} msg opts] lassign [dict get $opts -errorcode] status pid exitcode list $rc $msg $status $exitcode } -match glob -result {1 {child killed*} CHILDKILLED SIGPIPE} - test exec2-3.4 "wait for background task" { set pid [exec sleep 0.1 &] lassign [wait $pid] status newpid exitcode |