me/guix
Archived
1
0
Fork 0
Code Activity

gnu: tests: Fix unbound variable.

Browse source 
Record type descriptors were made private in
a143e92446, but a usage of them was
forgotten in the tests files.

* gnu/tests/web.scm (patchwork-initial-database-setup-service): Use
accessors to access field values instead of unexported type descriptor.
This commit is contained in:
Julien Lepiller 2020-07-13 04:20:50 +02:00
parent bea2134fe1
commit 5cd9cd644c
No known key found for this signature in database
GPG key ID: 53D457B2D636EE82
1 changed files with 36 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/tests/web.scm
View file

@ -521,11 +521,7 @@ HTTP-PORT."
;;; Patchwork ;;; Patchwork
;;; ;;;
(define patchwork-initial-database-setup-service (define (patchwork-initial-database-setup-service configuration)
(match-lambda
(($ <patchwork-database-configuration>
engine name user password host port)
(define start-gexp (define start-gexp
#~(lambda () #~(lambda ()
(let ((pid (primitive-fork)) (let ((pid (primitive-fork))
@ -540,10 +536,15 @@ HTTP-PORT."
(if (and (if (and
(zero? (zero?
(system* #$(file-append postgresql "/bin/createuser") (system* #$(file-append postgresql "/bin/createuser")
#$user)) #$(patchwork-database-configuration-user
configuration)))
(zero? (zero?
(system* #$(file-append postgresql "/bin/createdb") (system* #$(file-append postgresql "/bin/createdb")
"-O" #$user #$name))) "-O"
#$(patchwork-database-configuration-user
configuration)
#$(patchwork-database-configuration-name
configuration))))
0 0
1))) 1)))
(lambda () (lambda ()
@ -556,7 +557,7 @@ HTTP-PORT."
(start start-gexp) (start start-gexp)
(stop #~(const #f)) (stop #~(const #f))
(respawn? #f) (respawn? #f)
(documentation "Setup patchwork database."))))) (documentation "Setup patchwork database.")))
(define (patchwork-os patchwork) (define (patchwork-os patchwork)
(simple-operating-system (simple-operating-system