X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Ftests%2Fdebpolicy-dbretry;fp=tests%2Ftests%2Fdebpolicy-dbretry;h=e24175eb817d49317d9c79cd3b3d68089a75445b;hp=0000000000000000000000000000000000000000;hb=520d2b03770aeb7be9b63fbdddb9ad896d535732;hpb=81f9266781da23514f287e2aae3fe0a1ead8092a

diff --git a/tests/tests/debpolicy-dbretry b/tests/tests/debpolicy-dbretry
new file mode 100755
index 00000000..e24175eb
--- /dev/null
+++ b/tests/tests/debpolicy-dbretry
@@ -0,0 +1,67 @@
+#!/bin/bash
+set -e
+. tests/lib
+
+t-tstunt-parsechangelog
+
+t-debpolicy
+t-prep-newpackage example 1.0
+
+cd $p
+revision=1
+git tag start
+
+echo DUMMY >some-file
+git add some-file
+git commit -m some-file
+taint=`git rev-parse HEAD`
+t-policy-admin taint --global $taint dummy
+git reset --hard HEAD~
+
+t-commit 'Make something to autotaint'
+t-dgit build
+t-dgit push --new
+
+autotaint=`t-git-get-ref "refs/tags/debian/$v"`
+
+git reset --hard start
+t-commit 'Thing which will autotaint'
+t-dgit build
+
+fifo=$tmp/sqlite-cmds
+mkfifo $fifo
+exec 3<>$fifo
+sqlite3 -interactive $tmp/git/policy.sqlite3 0<$fifo 3>&- &
+sqlite3_pid=$!
+
+taintsout=$tmp/sqlite3.taints-out
+echo >&3 'begin;';
+echo >&3 ".output $taintsout"
+echo >&3 'select * from taints;';
+echo >&3 'create table dummy (x text);'
+
+while ! grep $taint $taintsout; do sleep 0.1; done
+
+t-dgit build
+
+DGIT_DRS_RPD_TEST_DBLOOP_HOOK='
+	print STDERR "DBLOOP HOOK $sleepy\n";
+	$poldbh->sqlite_busy_timeout(500);
+	if ($sleepy > 2) {
+		system '\''
+			set -ex
+			echo >'"$fifo"' "rollback;"
+			touch '"$tmp/sqlite3.rolled-back"'
+		'\'' and die "$? $!";
+	}
+' \
+t-dgit push --deliberately-not-fast-forward
+
+exec 3>&-
+wait $sqlite3_pid
+
+ls $tmp/sqlite3.rolled-back
+
+t-policy-admin list-taints | tee $tmp/taints-list | grep $autotaint
+
+echo ok.