summaryrefslogtreecommitdiff
path: root/guix/tests.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-09-28 21:31:30 +0200
committerLudovic Courtès <ludo@gnu.org>2015-09-28 22:53:59 +0200
commitdf0a3b7f9ee8b5134ffedc58dc5e0ae761c45e25 (patch)
tree4f4be165840eed5c250fc382d5b98272024a80bb /guix/tests.scm
parentb2bddb07ef16b10c926a598fcaf10d760d56c409 (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/tests.scm')
-rw-r--r--guix/tests.scm4
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