From 26b8f62b600642b1a469a305c3ed8bc0a165a255 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 10 Jun 2015 21:24:40 +0100
Subject: [PATCH] Test suite: test forbidden objects not present

---
 tests/lib                       | 13 +++++++++++++
 tests/tests/debpolicy-newreject |  5 ++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/tests/lib b/tests/lib
index f45dd0b2..03c25ce3 100644
--- a/tests/lib
+++ b/tests/lib
@@ -78,6 +78,19 @@ t-expect-push-fail () {
 	t-expect-fail "$mpat"  "$@"
 	t-reporefs post-push
 	diff $tmp/show-refs.{pre,post}-push
+
+	eval "$t_expect_push_fail_hook"
+}
+
+t-git-objects-not-present () {
+	local gitdir="${1-$tmp/git/$p.git}"
+	local obj
+	if ! [ -e "$gitdir" ]; then return; fi
+	for obj in "$@"; do
+		GIT_DIR=$gitdir \
+		t-expect-fail 'unable to find' \
+		git cat-file -t $obj
+	done
 }
 
 t-reporefs () {
diff --git a/tests/tests/debpolicy-newreject b/tests/tests/debpolicy-newreject
index 09c1a160..10af31fc 100755
--- a/tests/tests/debpolicy-newreject
+++ b/tests/tests/debpolicy-newreject
@@ -18,6 +18,10 @@ t-commit 'Commit a forbidden thing'
 bad=`git rev-parse HEAD:debian/some-file`
 t-policy-admin taint --global "$bad" "forbidden for testing"
 
+t_expect_push_fail_hook+='
+t-git-objects-not-present "" $bad
+'
+
 t-dgit build
 t-expect-push-fail 'forbidden for testing' \
 t-dgit push --new
@@ -81,5 +85,4 @@ cd $tmp/$p
 
 echo xxx up to here
 echo xxx want to test database lock retry thing on push-and-taint
-echo xxx want to test forbidden objects not present
 echo xxx want to t-expect-push-fail leaves HEAD object not dest repo
-- 
2.30.2