From 0d86a3d68339c521f9954858bf061d06c45b37f5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 13:58:28 +0100
Subject: [PATCH] mtest: Break out diff-output

No functional change

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 mtest/common.tcl | 11 +++++++++++
 mtest/t-userv    |  6 +-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 4fc27e7..e3b67c4 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -17,9 +17,20 @@ proc run-mss-userv {user group 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 .
diff --git a/mtest/t-userv b/mtest/t-userv
index e20121d..1581d3a 100755
--- a/mtest/t-userv
+++ b/mtest/t-userv
@@ -6,8 +6,4 @@ run-mss-userv Uuser Ginside -u \
     mtest/header.sites $tmp/groupfiles $tmp/out.sites Ginside \
     < mtest/Ginside.sites
 
-set seddery { sed -n 's/^[ \t]*//; /^[^#]/p' }
-exec bash -c "
-    diff -u <($seddery mtest/e-userv.sites) \\
-            <($seddery $tmp/out.sites     )
-"
+diff-output e-userv out .sites
-- 
2.30.2