From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 25 Nov 2019 00:01:01 +0000 (+0000)
Subject: stest: Kill our child secnets when we call finish
X-Git-Tag: v0.6.0~231
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=030bcaa582c8397815d07d57f8d40bb1eb1c882b;p=secnet.git

stest: Kill our child secnets when we call finish

This stops them hanging around and, often, printing more stuff after
the test has actually failed.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/stest/common.tcl b/stest/common.tcl
index e9ca658..388320a 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -210,6 +210,11 @@ prefix_preload $builddir/stest/udp-preload.so
 
 proc finish {estatus} {
     puts stderr "FINISHING $estatus"
+    signal default SIGCHLD
+    global pidmap
+    foreach pid [array names pidmap] {
+	kill KILL $pid
+    }
     exit $estatus
 }