summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2019-07-06 17:44:25 +0100
committerSean Whitton <spwhitton@spwhitton.name>2019-07-07 09:54:19 +0100
commit86fc0e8b602a9a94dd7818f1a8c748a5a4ffc355 (patch)
tree3f0c4c97860c1568e3c3e55ab1b8ef76ea3e4c7d
parent985cefa0cc7c74ec57954fc5fbd46af0bcf03297 (diff)
test suite: tagupl: Break out next-mangle
No functional change. Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-xtests/tests/tagupl8
1 files 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"