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
+# we are going to trash $p because it will contain corrupted objects
+# which makes our end-of-test fsck fail
+cp -al ../$p ../$p.save
+cd ../$p
next-mangle badtagger
git cat-file tag test-dummy/1.0-1 | perl -pe '
cd ..
rm -rf $p
+mv $p.save $p
t-ok