From 743cec7cb675dc6cc792a01daf898c011fc20fc7 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 12 Jul 2019 19:45:41 +0100
Subject: Associate a name with database connections

This helps when working out which connection to the database is doing what.
---
 tests/branch-updated-emails.scm       | 1 +
 tests/jobs-load-new-guix-revision.scm | 1 +
 tests/model-derivation.scm            | 1 +
 tests/model-git-branch.scm            | 1 +
 tests/model-git-repository.scm        | 1 +
 tests/model-license-set.scm           | 1 +
 tests/model-license.scm               | 1 +
 tests/model-package-metadata.scm      | 1 +
 8 files changed, 8 insertions(+)

(limited to 'tests')

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
-- 
cgit v1.2.3