mtest: Set PYTHONHASHSEED

[secnet.git] / mtest / common.tcl

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 6b6b16dcfac7e6f7af2968bad085fb6913480a02..7b23e1ce6a3c734a8de0d234c22269ae4b51dad1 100644 (file)
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -1,5 +1,22 @@
 source test-common.tcl
 
+proc mss-program {} {
+    global env
+    set l ./make-secnet-sites
+    if {![catch { set py $env(MTEST_PYTHON) }]} {
+       set l [concat $py $l]
+    }
+    return $l
+}
+
+proc run-mss-userv {user group args} {
+    eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
+        [mss-program] \
+        $args
+}
+
 file mkdir $tmp/groupfiles
 
+set env(PYTHONHASHSEED) 0
+
 prefix_some_path PYTHONPATH .