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'*} {