mtest: Provide for sedderyb

[secnet.git] / mtest / common.tcl

diff --git a/mtest/common.tcl b/mtest/common.tcl
index a016dae85fd35b3fb13d3f8c994865873210000e..b6fde3e7334daf6338008c17ef7990bb75396445 100644 (file)
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -17,10 +17,12 @@ proc run-mss-userv {user group args} {
 
 proc run-mss {args} { eval [list exec] [mss-program] $args }
 
-proc diff {a b seddery} {
+proc diff {a b seddery {sedderyb X}} {
+    if {![string compare $sedderyb X]} { set sedderyb $seddery }
+    puts "$a $b $seddery $sedderyb"
     exec bash -c "
-       diff -u <($seddery $a) \\
-               <($seddery $b)
+       diff -u <( <$a $seddery  ) \\
+               <( <$b $sedderyb )
     "
 }