diff options
Diffstat (limited to 'tests')
| -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" |