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