mtest: Break out diff-output

[secnet.git] / mtest / common.tcl

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 434f722ea0e31eeacf7dc67d2f5d57deb03dbfca..e3b67c40a55242d6430266e6bd704d983fff44e9 100644 (file)
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -15,6 +15,22 @@ proc run-mss-userv {user group args} {
         $args
 }
 
+proc run-mss {args} { eval [list exec] [mss-program] $args }
+
+proc diff-output {expected got suffix} {
+    global seddery
+    global tmp
+    exec bash -c "
+       diff -u <($seddery mtest/$expected$suffix) \\
+               <($seddery $tmp/$got$suffix      )
+    "
+}
+
 file mkdir $tmp/groupfiles
 
+set env(PYTHONHASHSEED) 0
+set env(PYTHONBYTECODEBASE) 0
+
+set seddery { sed -n 's/^[ \t]*//; /^[^#]/p' }
+
 prefix_some_path PYTHONPATH .