From e8a5679784c19508f1f93f3e51f315cf3977b187 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 12:08:48 +0100
Subject: [PATCH] mtest: Break out mss-run-userv

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 mtest/common.tcl | 10 ++++++++++
 mtest/t-userv    |  4 +---
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 6b6b16d..3db8d5c 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -1,5 +1,15 @@
 source test-common.tcl
 
+proc mss-program {} {
+    set l ./make-secnet-sites
+}
+
+proc run-mss-userv {user group args} {
+    eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
+	 [mss-program] \
+	 $args
+}
+
 file mkdir $tmp/groupfiles
 
 prefix_some_path PYTHONPATH .
diff --git a/mtest/t-userv b/mtest/t-userv
index 1e5ea25..c1552bc 100755
--- a/mtest/t-userv
+++ b/mtest/t-userv
@@ -2,8 +2,6 @@
 
 source mtest/common.tcl
 
-exec env \
-    USERV_USER=Uuser USERV_GROUP=Ginside \
-    ./make-secnet-sites -u \
+run-mss-userv Uuser Ginside -u \
     mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
     < mtest/Ginside.sites
-- 
2.30.2