mtest: First test case

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

diff --git a/mtest/common.tcl b/mtest/common.tcl
new file mode 100644 (file)
index 0000000..6b6b16d
--- /dev/null
+++ b/mtest/common.tcl
@@ -0,0 +1,5 @@
+source test-common.tcl
+
+file mkdir $tmp/groupfiles
+
+prefix_some_path PYTHONPATH .

diff --git a/mtest/t-userv b/mtest/t-userv
new file mode 100755 (executable)
index 0000000..1e5ea25
--- /dev/null
+++ b/mtest/t-userv
@@ -0,0 +1,9 @@
+#! /usr/bin/tclsh
+
+source mtest/common.tcl
+
+exec env \
+    USERV_USER=Uuser USERV_GROUP=Ginside \
+    ./make-secnet-sites -u \
+    mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
+    < mtest/Ginside.sites