stest: Use `finish' for success exits

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index 388320a8cf2f8805a454a00ce377baac4a914fd6..d6250c3b7b14df30ce86ba677d62407d1a1b9054 100644 (file)
--- 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!"