diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-09-28 21:31:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-09-28 22:53:59 +0200 |
| commit | df0a3b7f9ee8b5134ffedc58dc5e0ae761c45e25 (patch) | |
| tree | 4f4be165840eed5c250fc382d5b98272024a80bb /guix | |
| parent | b2bddb07ef16b10c926a598fcaf10d760d56c409 (diff) | |
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'.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/tests.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/tests.scm b/guix/tests.scm index cd8eda2f60..80c174509d 100644 --- a/guix/tests.scm +++ b/guix/tests.scm @@ -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 |