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'.
master
Ludovic Courtès 2015-09-28 21:31:30 +02:00
parent b2bddb07ef
commit df0a3b7f9e
1 changed files with 2 additions and 2 deletions

View File

@ -56,13 +56,13 @@
(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