Associate a name with database connections

This helps when working out which connection to the database is doing what.
This commit is contained in:
Christopher Baines 2019-07-12 19:45:41 +01:00
parent 1b5db7adac
commit 743cec7cb6
14 changed files with 20 additions and 4 deletions

View file

@ -107,6 +107,7 @@ Summary of changes:
(test-begin "test-branch-updated-emails")
(with-postgresql-connection
"test-branch-updated-emails"
(lambda (conn)
(test-assert "enqueue-job-for-email works"
(with-postgresql-transaction

View file

@ -12,6 +12,7 @@
(test-begin "jobs-load-new-guix-revision")
(with-postgresql-connection
"test-jobs-load-new-guix-revision"
(lambda (conn)
(test-equal "select-job-for-commit works"
'()

View file

@ -6,6 +6,7 @@
(test-begin "test-model-derivation")
(with-postgresql-connection
"test-model-derivation"
(lambda (conn)
(test-equal "valid-systems"
'()

View file

@ -8,6 +8,7 @@
(test-begin "test-model-git-branch")
(with-postgresql-connection
"test-module-git-branch"
(lambda (conn)
(test-assert "insert-git-branch-entry works"
(with-postgresql-transaction

View file

@ -6,6 +6,7 @@
(test-begin "test-model-git-repository")
(with-postgresql-connection
"test-model-git-repository"
(lambda (conn)
(test-assert "returns an id for a non existent URL"
(with-postgresql-transaction

View file

@ -25,6 +25,7 @@
"https://example.com/why-license-2")))))
(with-postgresql-connection
"test-model-license-set"
(lambda (conn)
(with-postgresql-transaction
conn

View file

@ -23,6 +23,7 @@
"https://example.com/why-license-2")))))
(with-postgresql-connection
"test-model-license"
(lambda (conn)
(with-postgresql-transaction
conn

View file

@ -37,6 +37,7 @@
(guix-data-service model package-metadata))
(with-postgresql-connection
"test-model-package-metadata"
(lambda (conn)
(test-assert "inferior-packages->package-metadata-ids"
(with-postgresql-transaction