5 set l ./make-secnet-sites
6 if {![catch { set py $env(MTEST_PYTHON) }]} {
12 proc run-mss-userv {user group args} {
13 eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
18 proc run-mss {args} { eval [list exec] [mss-program] $args }
20 proc diff {a b seddery {sedderyb X}} {
21 if {![string compare $sedderyb X]} { set sedderyb $seddery }
22 puts "$a $b $seddery $sedderyb"
24 diff -u <( <$a $seddery ) \\
29 proc diff-output {expected got suffix} {
32 diff mtest/$expected$suffix $tmp/$got$suffix $seddery
35 file mkdir $tmp/groupfiles
37 set env(PYTHONHASHSEED) 0
38 set env(PYTHONBYTECODEBASE) 0
40 set seddery { sed -n 's/^[ \t]*//; /^[^#]/p' }
42 prefix_some_path PYTHONPATH .