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

Fake the store connection in the tests

Browse source 
So that the tests don't require a store connection.
This commit is contained in:
Christopher Baines 2020-02-14 09:18:28 +00:00
parent 374dc25440
commit f6f51bbe0d
2 changed files with 115 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1499,6 +1499,12 @@ SKIP LOCKED")
(string=? priority "t"))))
(exec-query conn query)))
(define (with-store-connection f)
(with-store store
(set-build-options store #:fallback? #t)
(f store)))
(define (process-load-new-guix-revision-job id)
(with-postgresql-connection
(simple-format #f "load-new-guix-revision ~A" id)
@ -1544,12 +1550,12 @@ SKIP LOCKED")
(real-error-port previous-error-port))
(catch #t
(lambda ()
(with-store store
(set-build-options store #:fallback? #t)
(load-new-guix-revision conn
store
git-repository-id
commit)))
(with-store-connection
(lambda (store)
(load-new-guix-revision conn
store
git-repository-id
commit))))
(lambda (key . args)
(simple-format
(current-error-port)