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>

diff --git a/stest/common.tcl b/stest/common.tcl
index 9dff1f05adf37a701303ea45f547ea48745588b6..064d8740fe245b9295e2688dfc618f641d448b6d 100644 (file)
--- 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