Check that the test database is being used in all the tests

tests/branch-updated-emails.scm

@@ -109,6 +109,8 @@ Summary of changes:
 (with-postgresql-connection
  "test-branch-updated-emails"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-assert "enqueue-job-for-email works"
      (with-postgresql-transaction
       conn

tests/jobs-load-new-guix-revision.scm

@@ -17,6 +17,8 @@
 (with-postgresql-connection
  "test-jobs-load-new-guix-revision"
  (lambda (conn)
+   (check-test-database! conn)
+
    (exec-query conn "TRUNCATE guix_revisions CASCADE")
 
    (test-equal "select-job-for-commit works"

tests/model-derivation.scm

@@ -8,6 +8,8 @@
 (with-postgresql-connection
  "test-model-derivation"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-equal "valid-systems"
      '("aarch64-linux" "armhf-linux" "i686-linux" "mips64el-linux" "x86_64-linux")
      (valid-systems conn))

tests/model-git-branch.scm

@@ -10,6 +10,8 @@
 (with-postgresql-connection
  "test-module-git-branch"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-assert "insert-git-branch-entry works"
      (with-postgresql-transaction
       conn

tests/model-git-repository.scm

@@ -9,6 +9,8 @@
 (with-postgresql-connection
  "test-model-git-repository"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-assert "returns an id for a non existent URL"
      (with-postgresql-transaction
       conn

tests/model-license-set.scm

@@ -27,6 +27,8 @@
  (with-postgresql-connection
   "test-model-license-set"
   (lambda (conn)
+    (check-test-database! conn)
+
     (with-postgresql-transaction
      conn
      (lambda (conn)

tests/model-license.scm

@@ -28,6 +28,8 @@
  (with-postgresql-connection
   "test-model-license"
   (lambda (conn)
+    (check-test-database! conn)
+
     (with-postgresql-transaction
      conn
      (lambda (conn)

tests/model-lint-checker.scm

@@ -13,6 +13,8 @@
 (with-postgresql-connection
  "test-model-lint-checker"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-assert "single insert"
      (with-postgresql-transaction
       conn

tests/model-lint-warning-message.scm

@@ -13,6 +13,8 @@
 (with-postgresql-connection
  "test-model-lint-checker"
  (lambda (conn)
+   (check-test-database! conn)
+
    (test-assert "single insert"
      (with-postgresql-transaction
       conn

tests/model-package-metadata.scm

@@ -48,6 +48,8 @@
    (with-postgresql-connection
     "test-model-package-metadata"
     (lambda (conn)
+      (check-test-database! conn)
+
       (test-assert "inferior-packages->package-metadata-ids"
         (with-postgresql-transaction
          conn

tests/model-package.scm

@@ -55,6 +55,8 @@
    (with-postgresql-connection
     "test-model-package"
     (lambda (conn)
+      (check-test-database! conn)
+
       (with-postgresql-transaction
        conn
        (lambda (conn)