diff options
| -rw-r--r-- | tests/exec2.test | 3 | ||||
| -rw-r--r-- | tests/runall.tcl | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/tests/exec2.test b/tests/exec2.test index ce5f24b..87602c6 100644 --- a/tests/exec2.test +++ b/tests/exec2.test @@ -67,7 +67,8 @@ test exec2-3.1 "close pipeline return value" pipe { list $rc $msg $status $exitcode } {1 {child process exited abnormally} CHILDSTATUS 1} -test exec2-3.2 "close pipeline return value" -constraints {pipe nomingw32} -body { +test exec2-3.2 "close pipeline return value" -constraints {pipe signal nomingw32} -body { + signal default SIGPIPE # Write more than 64KB which is maximum size of the pipe buffers # on all systems we have seen set bigstring [string repeat a 100000] diff --git a/tests/runall.tcl b/tests/runall.tcl index 9ef76b8..96a56a9 100644 --- a/tests/runall.tcl +++ b/tests/runall.tcl @@ -26,8 +26,8 @@ if {[info commands interp] eq ""} { foreach script [lsort [glob $testdir/*.test]] { set ::argv0 $script - if {[file tail $script] eq "signal.test"} { - # special case, can't run this in a child interpeter + if {[file tail $script] in {signal.test exec2.test}} { + # special case, can't run these in a child interpeter catch -exit { source $script } |