From 520d2b03770aeb7be9b63fbdddb9ad896d535732 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 13 Jun 2015 20:29:04 +0100 Subject: Test suite: Test dgit-repos-policy-debian database retry --- infra/dgit-repos-policy-debian | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'infra') 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; -- cgit v1.2.3