diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-02-28 10:41:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-02-28 10:51:51 +0000 |
| commit | bf41c6ebb1c12ec15ee77e727a1ae0d7a1466aef (patch) | |
| tree | 30d43dad2e4fa0adcc4960b319dfabc7d2124f1b /tests | |
| parent | 2d96fbff48d6274ebc2a9cb21f88d9e326115d97 (diff) | |
| download | data-service-bf41c6ebb1c12ec15ee77e727a1ae0d7a1466aef.tar data-service-bf41c6ebb1c12ec15ee77e727a1ae0d7a1466aef.tar.gz | |
Set current-guix-package when computing system test derivations
This is a bit ugly, but might speed up computing derivations for system tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/jobs-load-new-guix-revision.scm | 42 |
1 files changed, 25 insertions, 17 deletions
diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm index 0f40e52..0eaad3f 100644 --- a/tests/jobs-load-new-guix-revision.scm +++ b/tests/jobs-load-new-guix-revision.scm @@ -37,12 +37,14 @@ (mock ((guix-data-service jobs load-new-guix-revision) - channel->derivations-by-system + channel->source-and-derivations-by-system (lambda (conn store channel fetch-with-authentication?) - '(("x86_64-linux" - . - ((manifest-entry-item . "/gnu/store/foo.drv") - (profile . "/gnu/store/bar.drv")))))) + (cons + "/gnu/store/guix" + '(("x86_64-linux" + . + ((manifest-entry-item . "/gnu/store/foo.drv") + (profile . "/gnu/store/bar.drv"))))))) (mock ((guix-data-service jobs load-new-guix-revision) @@ -59,7 +61,8 @@ (mock ((guix-data-service jobs load-new-guix-revision) extract-information-from - (lambda* (conn store guix-revision-id commit store-path + (lambda* (conn store guix-revision-id commit + guix-source store-path #:key skip-system-tests?) #t)) @@ -96,12 +99,14 @@ (mock ((guix-data-service jobs load-new-guix-revision) - channel->derivations-by-system + channel->source-and-derivations-by-system (lambda (conn store channel fetch-with-authentication?) - '(("x86_64-linux" - . - ((manifest-entry-item . "/gnu/store/foo.drv") - (profile . "/gnu/store/bar.drv")))))) + (cons + "/gnu/store/guix" + '(("x86_64-linux" + . + ((manifest-entry-item . "/gnu/store/foo.drv") + (profile . "/gnu/store/bar.drv"))))))) (mock ((guix-data-service jobs load-new-guix-revision) @@ -142,12 +147,14 @@ (mock ((guix-data-service jobs load-new-guix-revision) - channel->derivations-by-system + channel->source-and-derivations-by-system (lambda (conn store channel fetch-with-authentication?) - '(("x86_64-linux" - . - ((manifest-entry-item . "/gnu/store/foo.drv") - (profile . "/gnu/store/bar.drv")))))) + (cons + "/gnu/store/guix" + '(("x86_64-linux" + . + ((manifest-entry-item . "/gnu/store/foo.drv") + (profile . "/gnu/store/bar.drv"))))))) (mock ((guix-data-service jobs load-new-guix-revision) @@ -171,7 +178,8 @@ (mock ((guix-data-service jobs load-new-guix-revision) extract-information-from - (lambda* (conn store git-repository-id commit store-path + (lambda* (conn store git-repository-id commit + guix-source store-path #:key skip-system-tests?) #f)) |