From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 22 Nov 2019 23:04:00 +0000 (+0000)
Subject: mtest: Provide for sedderyb
X-Git-Tag: v0.5.1~4
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=secnet.git;a=commitdiff_plain;h=18c3161a86245c322174f83ac37632f3ba03d24a

mtest: Provide for sedderyb

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/mtest/common.tcl b/mtest/common.tcl
index fb93517..b6fde3e 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -17,11 +17,12 @@ proc run-mss-userv {user group args} {
 
 proc run-mss {args} { eval [list exec] [mss-program] $args }
 
-proc diff {a b seddery} {
-    puts "$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 )
     "
 }