test suite: tagupl: Break out next-mangle

[dgit.git] / tests / tests / tagupl

diff --git a/tests/tests/tagupl b/tests/tests/tagupl
index c45f5e927d81086e87d79f9f6fdfab36796840e8..e1f4391772064e6b9af79a358f60bf51b5733b6e 100755 (executable)
--- 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"