diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-06 17:44:25 +0100 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-07-07 09:54:19 +0100 |
commit | 86fc0e8b602a9a94dd7818f1a8c748a5a4ffc355 (patch) | |
tree | 3f0c4c97860c1568e3c3e55ab1b8ef76ea3e4c7d /tests/tests/tagupl | |
parent | 985cefa0cc7c74ec57954fc5fbd46af0bcf03297 (diff) |
test suite: tagupl: Break out next-mangle
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests/tests/tagupl')
-rwxr-xr-x | tests/tests/tagupl | 8 |
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" |