cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixup tests

Browse source
This commit is contained in:
Christopher Baines 2024-01-18 15:25:41 +00:00
parent c1d2f3a1b7
commit b81e7ea950
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/model/package-metadata.scm
View file

@ -410,9 +410,11 @@ WHERE packages.id IN (
(with-time-logging "preparing location ids" (with-time-logging "preparing location ids"
(map (match-lambda (map (match-lambda
((_ location rest ...) ((_ location rest ...)
(location->location-id (if location
conn (location->location-id
location))) conn
location)
NULL)))
package-metadata)) package-metadata))
license-set-ids license-set-ids
(with-time-logging "preparing package description set ids" (with-time-logging "preparing package description set ids"

6
tests/jobs-load-new-guix-revision.scm
View file

@ -38,7 +38,8 @@
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
channel->source-and-derivations-by-system channel->source-and-derivations-by-system
(lambda (conn store channel fetch-with-authentication?) (lambda* (conn store channel fetch-with-authentication?
#:key parallelism)
(cons (cons
"/gnu/store/guix" "/gnu/store/guix"
'(("x86_64-linux" '(("x86_64-linux"
@ -57,7 +58,8 @@
extract-information-from extract-information-from
(lambda* (conn store guix-revision-id commit (lambda* (conn store guix-revision-id commit
guix-source store-path guix-source store-path
#:key skip-system-tests?) #:key skip-system-tests?
parallelism)
#t)) #t))
(mock (mock