cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set current-guix-package when computing system test derivations

Browse source 
This is a bit ugly, but might speed up computing derivations for system tests.
This commit is contained in:
Christopher Baines 2023-02-28 10:41:40 +00:00
parent 2d96fbff48
commit bf41c6ebb1
2 changed files with 118 additions and 92 deletions
Download patch file Download diff file Expand all files Collapse all files

42
tests/jobs-load-new-guix-revision.scm
View file

@ -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))