diff options
Diffstat (limited to 'tests/jobs-load-new-guix-revision.scm')
| -rw-r--r-- | tests/jobs-load-new-guix-revision.scm | 28 |
1 files 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 |