ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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 @@ (define %test-substitute-urls
(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."
(guard (c ((nix-error? c)
(format (current-error-port)
"warning: build daemon error: ~s~%" c)
#f))
(let ((store (open-connection)))
(let ((store (open-connection file)))
;; Make sure we build everything by ourselves.
(set-build-options store
#:use-substitutes? #f