nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: 'open-connection-for-tests' takes an optional parameter. 

* guix/tests.scm (open-connection-for-tests): Add optional FILE
  parameter; pass it to 'open-connection'.
This commit is contained in:
Ludovic Courtès 2015-09-28 21:31:30 +02:00
parent b2bddb07ef
commit df0a3b7f9e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/tests.scm
View File

@ -56,13 +56,13 @@
(or (and=> (getenv "GUIX_BINARY_SUBSTITUTE_URL") list) (or (and=> (getenv "GUIX_BINARY_SUBSTITUTE_URL") list)
'()))) '())))
(define (open-connection-for-tests) (define* (open-connection-for-tests #:optional (file (%daemon-socket-file)))
"Open a connection to the build daemon for tests purposes and return it." "Open a connection to the build daemon for tests purposes and return it."
(guard (c ((nix-error? c) (guard (c ((nix-error? c)
(format (current-error-port) (format (current-error-port)
"warning: build daemon error: ~s~%" c) "warning: build daemon error: ~s~%" c)
#f)) #f))
(let ((store (open-connection))) (let ((store (open-connection file)))
;; Make sure we build everything by ourselves. ;; Make sure we build everything by ourselves.
(set-build-options store (set-build-options store
#:use-substitutes? #f #:use-substitutes? #f