diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-06-13 20:29:04 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-06-13 20:29:04 +0100 |
commit | 520d2b03770aeb7be9b63fbdddb9ad896d535732 (patch) | |
tree | fc7bb79db52bb2f5e7b2b77890eb88f7f452ff71 /infra | |
parent | 81f9266781da23514f287e2aae3fe0a1ead8092a (diff) |
Test suite: Test dgit-repos-policy-debian database retry
Diffstat (limited to 'infra')
-rwxr-xr-x | infra/dgit-repos-policy-debian | 4 |
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; |