test suite: tagupl: Test a really broken tag

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

diff --git a/tests/tests/tagupl b/tests/tests/tagupl
index 0d72d3cda1a316caf5bd29c0df7028d5b717e9e7..756a2ef6cf6923b1db3d222dc4d7d44446531cb0 100755 (executable)
--- a/tests/tests/tagupl
+++ b/tests/tests/tagupl
@@ -85,4 +85,19 @@ tagname=test-dummy/$v
 
 expect-quit noplease s/please-upload/plunk/ 'tag missing please-upload'
 
+# we do this now because we are about to generate a broken tag
+t-fscks
+
+next-mangle badtagger
+git cat-file tag test-dummy/1.0-1 | perl -pe '
+       s/\+\d+$/xyz/ if m/^tagger /;
+       exit 0 if m/^$/;
+' >../tagobj-$ident
+echo >>../tagobj-$ident
+cat ../basetag >>../tagobj-$ident
+git update-ref $tagname $(git hash-object -w -t tag ../tagobj-$ident)
+
+cd ..
+rm -rf $p
+
 t-ok