From 964ce4387badfc9eaeb1029794be73f218c205a2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 12:05:25 +0100
Subject: [PATCH] mtest: First test case

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 mtest/common.tcl | 5 +++++
 mtest/t-userv    | 9 +++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 mtest/common.tcl
 create mode 100755 mtest/t-userv

diff --git a/mtest/common.tcl b/mtest/common.tcl
new file mode 100644
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
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
-- 
2.30.2