From 35b5ef40db6a184eb97574cd4774403db5599c5f Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 6 Feb 2023 10:39:30 +1000 Subject: 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 --- tests/exec2.test | 3 ++- 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 } -- cgit v1.1