X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=mtest%2Fcommon.tcl;h=a016dae85fd35b3fb13d3f8c994865873210000e;hb=e19ba584463750301836dc5edd8cf2835fca1542;hp=e3b67c40a55242d6430266e6bd704d983fff44e9;hpb=2f917f0989d0b868265d2e906a3e087b6606a29e;p=secnet.git

diff --git a/mtest/common.tcl b/mtest/common.tcl
index e3b67c4..a016dae 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -17,13 +17,17 @@ proc run-mss-userv {user group args} {
 
 proc run-mss {args} { eval [list exec] [mss-program] $args }
 
+proc diff {a b seddery} {
+    exec bash -c "
+    	diff -u <($seddery $a) \\
+        	<($seddery $b)
+    "
+}
+
 proc diff-output {expected got suffix} {
     global seddery
     global tmp
-    exec bash -c "
-    	diff -u <($seddery mtest/$expected$suffix) \\
-        	<($seddery $tmp/$got$suffix      )
-    "
+    diff mtest/$expected$suffix $tmp/$got$suffix $seddery
 }
 
 file mkdir $tmp/groupfiles