3 source mtest/common.tcl
5 #----- success test -----
7 set good [list Uuser Ginside -u \
8 mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
11 eval run-mss-userv $good
13 diff-output e-userv out .sites
15 #----- argument parser does not look for args beyond header -----
17 set env(LC_MESSAGES) C
19 set try [lreplace $good 4 4 --misparse-test]
22 eval run-mss-userv $try
24 error "should have failed"
27 {*unrecognized arguments: --misparse-test*} {
30 {*No such file or directory: '--misparse-test/TGinside'*} {
38 #----- wrong group is rejected -----
40 set bad [lreplace $good 1 1 Gwrong]
43 eval run-mss-userv $bad
45 error "should have failed"
48 {*caller not in group Ginside*} { }
49 * { error "huh ? $emsg" }
53 #----- resulting sites file is processable -----
55 eval run-mss $tmp/out.sites >$tmp/out.conf