aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-07-12 19:45:41 +0100
committerChristopher Baines <mail@cbaines.net>2019-07-12 19:49:26 +0100
commit743cec7cb675dc6cc792a01daf898c011fc20fc7 (patch)
tree2040ed787544470a2525307e2f7479d3f29e5a90 /tests
parent1b5db7adac298e4f0d7e6c9024fc31ebabb4a994 (diff)
downloaddata-service-743cec7cb675dc6cc792a01daf898c011fc20fc7.tar
data-service-743cec7cb675dc6cc792a01daf898c011fc20fc7.tar.gz
Associate a name with database connections
This helps when working out which connection to the database is doing what.
Diffstat (limited to 'tests')
-rw-r--r--tests/branch-updated-emails.scm1
-rw-r--r--tests/jobs-load-new-guix-revision.scm1
-rw-r--r--tests/model-derivation.scm1
-rw-r--r--tests/model-git-branch.scm1
-rw-r--r--tests/model-git-repository.scm1
-rw-r--r--tests/model-license-set.scm1
-rw-r--r--tests/model-license.scm1
-rw-r--r--tests/model-package-metadata.scm1
8 files changed, 8 insertions, 0 deletions
diff --git a/tests/branch-updated-emails.scm b/tests/branch-updated-emails.scm
index 0265ba4..b9c92b2 100644
--- a/tests/branch-updated-emails.scm
+++ b/tests/branch-updated-emails.scm
@@ -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
diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm
index 70a7dfd..35fe655 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -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"
'()
diff --git a/tests/model-derivation.scm b/tests/model-derivation.scm
index 52b113b..eca3768 100644
--- a/tests/model-derivation.scm
+++ b/tests/model-derivation.scm
@@ -6,6 +6,7 @@
(test-begin "test-model-derivation")
(with-postgresql-connection
+ "test-model-derivation"
(lambda (conn)
(test-equal "valid-systems"
'()
diff --git a/tests/model-git-branch.scm b/tests/model-git-branch.scm
index f015cba..a879408 100644
--- a/tests/model-git-branch.scm
+++ b/tests/model-git-branch.scm
@@ -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
diff --git a/tests/model-git-repository.scm b/tests/model-git-repository.scm
index 3129203..befcbfa 100644
--- a/tests/model-git-repository.scm
+++ b/tests/model-git-repository.scm
@@ -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
diff --git a/tests/model-license-set.scm b/tests/model-license-set.scm
index fecf242..9cd949d 100644
--- a/tests/model-license-set.scm
+++ b/tests/model-license-set.scm
@@ -25,6 +25,7 @@
"https://example.com/why-license-2")))))
(with-postgresql-connection
+ "test-model-license-set"
(lambda (conn)
(with-postgresql-transaction
conn
diff --git a/tests/model-license.scm b/tests/model-license.scm
index cdec491..7888117 100644
--- a/tests/model-license.scm
+++ b/tests/model-license.scm
@@ -23,6 +23,7 @@
"https://example.com/why-license-2")))))
(with-postgresql-connection
+ "test-model-license"
(lambda (conn)
(with-postgresql-transaction
conn
diff --git a/tests/model-package-metadata.scm b/tests/model-package-metadata.scm
index f9eccec..ea0cdbe 100644
--- a/tests/model-package-metadata.scm
+++ b/tests/model-package-metadata.scm
@@ -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