From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 24 Nov 2019 22:20:51 +0000 (+0000)
Subject: stest: Use `finish' for success exits
X-Git-Tag: v0.6.0~230
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=9a54ddbe3df3fbc7b63a9b92646293d5f31609e6;p=secnet.git

stest: Use `finish' for success exits

vwait is a bit funny.  This is better, and it also kills our child
secnets.

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

diff --git a/stest/common.tcl b/stest/common.tcl
index 388320a..d6250c3 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -161,8 +161,7 @@ proc netlink-readable {location site} {
     switch -exact $site {
 	inside {
 	    puts OK
-	    set ok 1; # what a bodge
-	    return
+	    finish 0
 	}
 	outside {
 	    error "inside rx'd!"