diff options
| author | Steve Bennett <steveb@workware.net.au> | 2023-02-06 10:39:30 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2023-02-06 10:59:58 +1000 |
| commit | 35b5ef40db6a184eb97574cd4774403db5599c5f (patch) | |
| tree | 4dc00a06d9512aa5d37ecb26ffb1722b60675974 /tests | |
| parent | 554bf03257cee5874713371801e1ed7168277f71 (diff) | |
| download | jimtcl-35b5ef40db6a184eb97574cd4774403db5599c5f.zip jimtcl-35b5ef40db6a184eb97574cd4774403db5599c5f.tar.gz jimtcl-35b5ef40db6a184eb97574cd4774403db5599c5f.tar.bz2 | |
tests: Don't run exec2 in a child interpreter
Since signals aren't supported there and we need signals for some
of these tests.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -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 } |