mtest/t-userv

   1 #! /usr/bin/tclsh
   2
   3 source mtest/common.tcl
   4
   5 #----- success test -----
   6
   7 set good [list Uuser Ginside -u \
   8           mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
   9           < mtest/Ginside.sites]
  10
  11 eval run-mss-userv $good
  12
  13 diff-output e-userv out .sites
  14
  15 #----- argument parser does not look for args beyond header -----
  16
  17 #run-mss-userv