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 6da2af61a3b3e97fb01215a5956750a28fecd3cf..4fc27e7fff590dfd06a74ba85b470e30aef3ed18 100644 (file)
--- 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