stest: Replace the call to `exit 1' with a new proc `finish'

[secnet.git] / stest / common.tcl

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