diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-18 15:25:41 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-18 15:34:40 +0000 |
| commit | b81e7ea9500ba67ef498e5669b6facfe7acd1600 (patch) | |
| tree | 8b678cd4100303e034ebd894f7eaeddf38267a60 | |
| parent | c1d2f3a1b7ba20ad3f56840a160ee1ec08cd3a64 (diff) | |
| download | data-service-b81e7ea9500ba67ef498e5669b6facfe7acd1600.tar data-service-b81e7ea9500ba67ef498e5669b6facfe7acd1600.tar.gz | |
Fixup tests
| -rw-r--r-- | guix-data-service/model/package-metadata.scm | 8 | ||||
| -rw-r--r-- | 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 |