diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-26 22:21:59 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-26 22:21:59 +0100 |
| commit | fbbdc41f5c73c43ce48e56d78e90845a58ee5d04 (patch) | |
| tree | 65f7c95296bb28fad27dd7cf11f74e0ee6a7dbbc | |
| parent | e8bd27fdb81fb776109ba4d2a57a1432768f100f (diff) | |
| download | data-service-fbbdc41f5c73c43ce48e56d78e90845a58ee5d04.tar data-service-fbbdc41f5c73c43ce48e56d78e90845a58ee5d04.tar.gz | |
Update tests
| -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 |