11/13: Fixup tests

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit b81e7ea9500ba67ef498e5669b6facfe7acd1600
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Jan 18 15:25:41 2024 +0000

    Fixup tests
---
 guix-data-service/model/package-metadata.scm | 8 +++++---
 tests/jobs-load-new-guix-revision.scm        | 6 ++++--
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/guix-data-service/model/package-metadata.scm 
b/guix-data-service/model/package-metadata.scm
index aaaee68..17f4e10 100644
--- a/guix-data-service/model/package-metadata.scm
+++ b/guix-data-service/model/package-metadata.scm
@@ -410,9 +410,11 @@ WHERE packages.id IN (
     (with-time-logging "preparing location ids"
       (map (match-lambda
              ((_ location rest ...)
-              (location->location-id
-               conn
-               location)))
+              (if location
+                  (location->location-id
+                   conn
+                   location)
+                  NULL)))
            package-metadata))
     license-set-ids
     (with-time-logging "preparing package description set ids"
diff --git a/tests/jobs-load-new-guix-revision.scm 
b/tests/jobs-load-new-guix-revision.scm
index 8213afb..a2beb64 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -38,7 +38,8 @@
       (mock
        ((guix-data-service jobs load-new-guix-revision)
         channel->source-and-derivations-by-system
-        (lambda (conn store channel fetch-with-authentication?)
+        (lambda* (conn store channel fetch-with-authentication?
+                       #:key parallelism)
           (cons
            "/gnu/store/guix"
            '(("x86_64-linux"
@@ -57,7 +58,8 @@
           extract-information-from
           (lambda* (conn store guix-revision-id commit
                          guix-source store-path
-                         #:key skip-system-tests?)
+                         #:key skip-system-tests?
+                         parallelism)
             #t))
 
          (mock