test suite: Break out t-make-badcommit

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

2 files changed, 10 insertions, 7 deletions

diff --git a/tests/lib b/tests/lib
index 52aca71..cf7d4cf 100644
--- a/tests/lib
+++ b/tests/lib
@@ -898,6 +898,15 @@ t-gbp-example-prep () {
 		remotes/dgit/dgit/sid
 }
 
+t-make-badcommit () {
+	badcommit=$(
+		git cat-file commit HEAD | \
+		perl -pe 's/^committer.*\n//' | \
+		git hash-object -w -t commit --stdin
+	)
+	t-expect-fsck-fail $badcommit
+}
+
 t-commit () {
 	local msg=$1
 	v=${2:-${majorv:-1}.$revision}
diff --git a/tests/tests/drs-push-rejects b/tests/tests/drs-push-rejects
index 8c4ad83..4b7de34 100755
--- a/tests/tests/drs-push-rejects
+++ b/tests/tests/drs-push-rejects
@@ -141,13 +141,7 @@ mktag
 mustfail 'tag name in tag is wrong' \
 	refs/tags/$tagpfx/wombat:refs/tags/$tagpfx/$version $push_spec1
 
-echo ====
-badcommit=$(
-	git cat-file commit HEAD | \
-	perl -pe 's/^committer.*\n//' | \
-	git hash-object -w -t commit --stdin
-)
-t-expect-fsck-fail $badcommit
+t-make-badcommit
 git checkout -b broken $badcommit
 prep unstable sid
 mktag