test suite: tagupl: Break out and soup up log moving

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/tests/tagupl b/tests/tests/tagupl
index d6044133110c236fb67327206b08efe1c07db8c5..0d72d3cda1a316caf5bd29c0df7028d5b717e9e7 100755 (executable)
--- a/tests/tests/tagupl
+++ b/tests/tests/tagupl
@@ -46,8 +46,16 @@ perl -i -ne '
        print or die $!;
 ' ../basetag
 
+mv-ident () {
+       local f=$tmp/$1
+       if test -e $f; then
+               mv $f $f--$ident
+       fi
+}
+
 next-mangle () {
-       mv ../tagupl/overall.log ../tagupl/overall.log-$ident
+       mv-ident tagupl/overall.log
+       mv-ident sendmail.log
        ident=$1
 }