From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 18:40:03 +0000 (+0100)
Subject: mtest/t-userv: Check for dangerous parsing of late options
X-Git-Tag: v0.5.0~42
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=3c11d3d5a35c84e6747f025b3a9c9d62ba0980f6;p=secnet.git

mtest/t-userv: Check for dangerous parsing of late options

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

diff --git a/mtest/t-userv b/mtest/t-userv
index 5131076..5d159bdb 100755
--- a/mtest/t-userv
+++ b/mtest/t-userv
@@ -14,4 +14,24 @@ diff-output e-userv out .sites
 
 #----- argument parser does not look for args beyond header -----
 
-#run-mss-userv 
+set env(LC_MESSAGES) C
+
+set try [lreplace $good 4 4 --misparse-test]
+
+if {![catch {
+    eval run-mss-userv $try
+} emsg]} {
+    error "should have failed"
+} else {
+    switch -glob $emsg {
+	{*unrecognized arguments: --misparse-test*} {
+	    error "misparsed!"
+	}
+	{*No such file or directory: '--misparse-test/TGinside'*} {
+	}
+	* {
+	    error "huh ? $emsg"
+	}
+    }
+}
+