No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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 .
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