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

Address a few issues in the load new guix revision tests

Browse source
This commit is contained in:
Christopher Baines 2022-03-02 18:23:26 +00:00
parent f86657915e
commit 3a90798567
2 changed files with 61 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1402,6 +1402,8 @@ WHERE job_id = $1")
guix-revision-id))))))
(prevent-inlining-for-tests load-channel-instances)
(define (load-new-guix-revision conn store git-repository-id commit)
(let* ((git-repository-fields
(select-git-repository conn git-repository-id))

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

@ -39,10 +39,10 @@
((guix-data-service jobs load-new-guix-revision)
channel->derivations-by-system
(lambda (conn store channel fetch-with-authentication?)
'((x86_64-linux
'(("x86_64-linux"
.
((manifest-entry-item . /gnu/store/foo.drv)
(profile . /gnu/store/bar.drv))))))
((manifest-entry-item . "/gnu/store/foo.drv")
(profile . "/gnu/store/bar.drv"))))))
(mock
((guix-data-service jobs load-new-guix-revision)
@ -97,10 +97,17 @@
((guix-data-service jobs load-new-guix-revision)
channel->derivations-by-system
(lambda (conn store channel fetch-with-authentication?)
'(x86_64-linux
'(("x86_64-linux"
.
((manifest-entry-item . /gnu/store/foo.drv)
(profile . /gnu/store/bar.drv)))))
((manifest-entry-item . "/gnu/store/foo.drv")
(profile . "/gnu/store/bar.drv"))))))
(mock
((guix-data-service jobs load-new-guix-revision)
load-channel-instances
(lambda (git-repository-id commit
channel-derivations-by-system)
0))
(mock
((guix-data-service jobs load-new-guix-revision)
@ -120,7 +127,7 @@
"test-commit"
"test-source")
((id)
(process-load-new-guix-revision-job id))))))))
(process-load-new-guix-revision-job id)))))))))
(exec-query conn "TRUNCATE load_new_guix_revision_jobs CASCADE")
@ -135,11 +142,18 @@
(mock
((guix-data-service jobs load-new-guix-revision)
channel->derivations-by-system
(lambda (conn store channel)
'(x86_64-linux
(lambda (conn store channel fetch-with-authentication?)
'(("x86_64-linux"
.
((manifest-entry-item . /gnu/store/foo.drv)
(profile . /gnu/store/bar.drv)))))
((manifest-entry-item . "/gnu/store/foo.drv")
(profile . "/gnu/store/bar.drv"))))))
(mock
((guix-data-service jobs load-new-guix-revision)
load-channel-instances
(lambda (git-repository-id commit
channel-derivations-by-system)
0))
(mock
((guix-data-service jobs load-new-guix-revision)
@ -171,7 +185,7 @@
"test-commit"
"test-source")
((id)
(process-load-new-guix-revision-job id))))))))))
(process-load-new-guix-revision-job id)))))))))))
(exec-query conn "TRUNCATE load_new_guix_revision_jobs CASCADE")