From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 12:59:32 +0000 (+0100)
Subject: mtest: Provide run-mss
X-Git-Tag: v0.5.0~49
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=2bea97c2975667b9bccfa6fca05d903b7c3811dd;p=secnet.git

mtest: Provide run-mss

No caller yet

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

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 6da2af6..4fc27e7 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -15,6 +15,8 @@ proc run-mss-userv {user group args} {
 	 $args
 }
 
+proc run-mss {args} { eval [list exec] [mss-program] $args }
+
 file mkdir $tmp/groupfiles
 
 set env(PYTHONHASHSEED) 0