mtest: Set PYTHONBYTECODEBASE here too

[secnet.git] / mtest / common.tcl

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 3db8d5caac9741ccbc02a7efb24cdde82d1fb199..6da2af61a3b3e97fb01215a5956750a28fecd3cf 100644 (file)
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -1,7 +1,12 @@
 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} {
@@ -12,4 +17,7 @@ proc run-mss-userv {user group args} {
 
 file mkdir $tmp/groupfiles
 
+set env(PYTHONHASHSEED) 0
+set env(PYTHONBYTECODEBASE) 0
+
 prefix_some_path PYTHONPATH .