From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 18:01:45 +0000 (+0100)
Subject: mtest/t-userv: Break out `good'
X-Git-Tag: v0.5.0~43
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=41e28c6c65986a9af7b9861640a2c77af8befc41;p=secnet.git

mtest/t-userv: Break out `good'

No functional change.

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

diff --git a/mtest/t-userv b/mtest/t-userv
index 1581d3a..5131076 100755
--- a/mtest/t-userv
+++ b/mtest/t-userv
@@ -2,8 +2,16 @@
 
 source mtest/common.tcl
 
-run-mss-userv Uuser Ginside -u \
-    mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
-    < mtest/Ginside.sites
+#----- success test -----
+
+set good [list Uuser Ginside -u \
+          mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
+	  < mtest/Ginside.sites]
+
+eval run-mss-userv $good
 
 diff-output e-userv out .sites
+
+#----- argument parser does not look for args beyond header -----
+
+#run-mss-userv