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

Update tests

Browse source
This commit is contained in:
Christopher Baines 2024-07-26 22:21:59 +01:00
parent e8bd27fdb8
commit fbbdc41f5c
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -44,9 +44,9 @@
(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 channel fetch-with-authentication?
#:key parallelism) #:key parallelism)
(cons (values
"/gnu/store/guix" "/gnu/store/guix"
'(("x86_64-linux" '(("x86_64-linux"
. .
@ -56,13 +56,13 @@
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
channel-derivations-by-system->guix-store-item channel-derivations-by-system->guix-store-item
(lambda (store channel-derivations-by-system) (lambda (channel-derivations-by-system)
"/gnu/store/test")) "/gnu/store/test"))
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
extract-information-from extract-information-from
(lambda* (conn store guix-revision-id commit (lambda* (conn guix-revision-id commit
guix-source store-path guix-source store-path
#:key skip-system-tests? #:key skip-system-tests?
extra-inferior-environment-variables extra-inferior-environment-variables
@ -113,8 +113,9 @@
(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 channel fetch-with-authentication?
(cons #:key parallelism)
(values
"/gnu/store/guix" "/gnu/store/guix"
'(("x86_64-linux" '(("x86_64-linux"
. .
@ -137,7 +138,7 @@
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
channel-derivations-by-system->guix-store-item channel-derivations-by-system->guix-store-item
(lambda (store channel-derivations-by-system) (lambda (channel-derivations-by-system)
#f)) #f))
(match (enqueue-load-new-guix-revision-job (match (enqueue-load-new-guix-revision-job
@ -161,8 +162,9 @@
(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 channel fetch-with-authentication?
(cons #:key parallelism)
(values
"/gnu/store/guix" "/gnu/store/guix"
'(("x86_64-linux" '(("x86_64-linux"
. .
@ -185,15 +187,17 @@
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
channel-derivations-by-system->guix-store-item channel-derivations-by-system->guix-store-item
(lambda (store channel-derivations-by-system) (lambda (channel-derivations-by-system)
"/gnu/store/test")) "/gnu/store/test"))
(mock (mock
((guix-data-service jobs load-new-guix-revision) ((guix-data-service jobs load-new-guix-revision)
extract-information-from extract-information-from
(lambda* (conn store git-repository-id commit (lambda* (conn git-repository-id commit
guix-source store-path guix-source store-path
#:key skip-system-tests?) #:key skip-system-tests?
extra-inferior-environment-variables
parallelism)
#f)) #f))
(mock (mock