mtest/common.tcl

   1 source test-common.tcl
   2
   3 proc mss-program {} {
   4     set l ./make-secnet-sites
   5 }
   6
   7 proc run-mss-userv {user group args} {
   8     eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
   9          [mss-program] \
  10          $args
  11 }
  12
  13 file mkdir $tmp/groupfiles
  14
  15 prefix_some_path PYTHONPATH .