cbaines pushed a commit to branch master
in repository data-service.
commit fbbdc41f5c73c43ce48e56d78e90845a58ee5d04
Author: Christopher Baines <[email protected]>
AuthorDate: Fri Jul 26 22:21:59 2024 +0100
Update tests
---
tests/jobs-load-new-guix-revision.scm | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/tests/jobs-load-new-guix-revision.scm
b/tests/jobs-load-new-guix-revision.scm
index d914eaa..1b993cb 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -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
