Fixup tests

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"

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