From 9aa6d010ebaf2d3ad8e6cad435a54748fb2572e2 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 9 Sep 2019 22:54:20 +0200
Subject: [PATCH] regenerate test output on regress.t -G option

---
 t/regress.t | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/t/regress.t b/t/regress.t
index 099b944..1463ce3 100755
--- a/t/regress.t
+++ b/t/regress.t
@@ -6,11 +6,13 @@ test_count=0
 
 COLUMNS=40
 diffcmd='diff --unchanged-line-format= --old-line-format=<%L --new-line-format=>%L'
+regenerate=
 
 for option in "$@"
 do
 	case "$option" in
-	-*) echo "Usage: $0 [<files>...]"; exit 64;;
+	-G) regenerate=1 && shift;;
+	-*) echo "Usage: $0 [-G] [<files>...]"; exit 64;;
 	esac
 done
 
@@ -24,7 +26,19 @@ do
 	cmd="barcat $file.in"
 	case "$name" in *\ -*) cmd="$cmd -${name#* -}";; esac
 
-	$cmd 2>&1 | $diffcmd "$file.out" - || printf 'not '
+	if test -n "$regenerate"
+	then
+		if test -e $file.out
+		then
+			echo "ok $test_count # skip existing $file.out"
+			continue
+		fi
+		$cmd >$file.out 2>&1
+	else
+		$cmd 2>&1 | $diffcmd "$file.out" -
+	fi
+
+	test 0 = $? || printf 'not '
 	echo "ok $test_count - $name"
 done
 
-- 
2.30.0