From 86fc0e8b602a9a94dd7818f1a8c748a5a4ffc355 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Jul 2019 17:44:25 +0100
Subject: test suite: tagupl: Break out next-mangle

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 tests/tests/tagupl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/tests/tagupl b/tests/tests/tagupl
index c45f5e9..e1f4391 100755
--- a/tests/tests/tagupl
+++ b/tests/tests/tagupl
@@ -46,6 +46,11 @@ perl -i -ne '
 	print or die $!;
 ' ../basetag
 
+next-mangle () {
+	mv ../tagupl/overall.log ../tagupl/overall.log-$ident
+	ident=$1
+}
+
 with-mangled () {
 	local perl=$1
 	perl <../basetag >../badtag-$ident -pe "$perl"
@@ -55,8 +60,7 @@ with-mangled () {
 }
 
 expect-quit () {
-	mv ../tagupl/overall.log ../tagupl/overall.log-$ident
-	ident=$1
+	next-mangle "$1"
 	local perl=$2
 	local mstring=$3
 	with-mangled "$perl"
-- 
cgit v1.2.3