summaryrefslogtreecommitdiff
path: root/infra/dgit-repos-policy-debian
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2015-06-13 20:29:04 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2015-06-13 20:29:04 +0100
commit520d2b03770aeb7be9b63fbdddb9ad896d535732 (patch)
treefc7bb79db52bb2f5e7b2b77890eb88f7f452ff71 /infra/dgit-repos-policy-debian
parent81f9266781da23514f287e2aae3fe0a1ead8092a (diff)
Test suite: Test dgit-repos-policy-debian database retry
Diffstat (limited to 'infra/dgit-repos-policy-debian')
-rwxr-xr-xinfra/dgit-repos-policy-debian4
1 files changed, 4 insertions, 0 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 5d843a0..a770c55 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -462,6 +462,10 @@ for (;;) {
poldb_setup(poldb_path($repos));
$stderr = '';
+ eval ($ENV{'DGIT_DRS_RPD_TEST_DBLOOP_HOOK'}//'');
+ die $@ if length $@;
+ # used by tests/tests/debpolicy-dbretry
+
$poldbh->{HandleError} = sub {
return 0 unless $poldbh->err == 5; # SQLITE_BUSY, not in .pm :-(
die bless { }, $db_busy_exception;