source mtest/common.tcl
-run-mss-userv Uuser Ginside -u \
- mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
- < mtest/Ginside.sites
+#----- success test -----
+
+set good [list Uuser Ginside -u \
+ mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
+ < mtest/Ginside.sites]
+
+eval run-mss-userv $good
diff-output e-userv out .sites
+
+#----- argument parser does not look for args beyond header -----
+
+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"
+ }
+ }
+}
+