From c51dedf733b465a6f68195ddd5965d1653c696c1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 24 Nov 2019 13:59:29 +0000
Subject: [PATCH] stest: Replace the call to `exit 1' with a new proc `finish'

This is going to be used for success exits too, in a moment.
This will let us do more work when we are exiting.

The only change for now is some extra stderr output.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 stest/common.tcl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/stest/common.tcl b/stest/common.tcl
index 9dff1f0..064d874 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -180,7 +180,7 @@ $message
 ----------------------------------------
     "
     }
-    exit 1
+    finish 1
 }
 
 proc sendpkt {} {
@@ -206,6 +206,11 @@ proc prefix_preload {lib} { prefix_some_path LD_PRELOAD $lib }
 set env(UDP_PRELOAD_DIR) $socktmp
 prefix_preload $builddir/stest/udp-preload.so
 
+proc finish {estatus} {
+    puts stderr "FINISHING $estatus"
+    exit $estatus
+}
+
 proc udp-proxy {} {
     global socktmp udpsock
     set u $socktmp/udp
-- 
2.30.2