mtest/t-userv: Check that user in wrong group is rejected

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

diff --git a/mtest/t-userv b/mtest/t-userv
index 5d159bdb3c9dd0a542eb9f9e0af5440b23091958..74c0d79154b0e7c3cd3d29c33b2bce2806e6dd0f 100755 (executable)
--- a/mtest/t-userv
+++ b/mtest/t-userv
@@ -35,3 +35,17 @@ if {![catch {
     }
 }
 
+#----- wrong group is rejected -----
+
+set bad [lreplace $good 1 1 Gwrong]
+
+if {![catch {
+    eval run-mss-userv $bad
+} emsg]} {
+    error "should have failed"
+} else {
+    switch -glob $emsg {
+       {*caller not in group Ginside*} { }
+       * { error "huh ? $emsg" }
+    }
+}