chiark
/
gitweb
/
~ian
/
secnet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
mtest: Honour MTEST_PYTHON
[secnet.git]
/
mtest
/
common.tcl
1
source test-common.tcl
2
3
proc mss-program {} {
4
global env
5
set l ./make-secnet-sites
6
if {![catch { set py $env(MTEST_PYTHON) }]} {
7
set l [concat $py $l]
8
}
9
return $l
10
}
11
12
proc run-mss-userv {user group args} {
13
eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
14
[mss-program] \
15
$args
16
}
17
18
file mkdir $tmp/groupfiles
19
20
prefix_some_path PYTHONPATH .