From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 10 Sep 2019 19:09:53 +0000 (+0200)
Subject: t: replace diff by comm for linewise comparison
X-Git-Tag: v1.06~21
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/abc01e566318ddf6f1a876755b95c3927eba65a4

t: replace diff by comm for linewise comparison

Prevent skipped lines, assuming matching order is retained.
Similar output otherwise after prefix replacement.
---

diff --git a/t/regress.t b/t/regress.t
index f81cfd7..45ee5ba 100755
--- a/t/regress.t
+++ b/t/regress.t
@@ -5,8 +5,11 @@ cd "${0%/*}" || exit 1
 test_count=0
 
 COLUMNS=40
-diffcmd='diff --unchanged-line-format= --old-line-format=<%L --new-line-format=>%L'
 regenerate=
+diffcmd () {
+	comm --nocheck-order --output-delimiter=::: -3 $@ |
+	perl -pe'END{exit !!$.} s/^:::/>/ || s/^/</'
+}
 
 for option in "$@"
 do
@@ -36,7 +39,7 @@ do
 		$cmd >$file.out 2>&1
 	else
 		if test -e $file.sh;  then $cmd 2>&1 | ./$file.sh; fi &&
-		if test -e $file.out; then $cmd 2>&1 | $diffcmd "$file.out" -; fi
+		if test -e $file.out; then $cmd 2>&1 | diffcmd "$file.out" -; fi
 	fi
 
 	test 0 = $? || printf 'not '