From df0a3b7f9ee8b5134ffedc58dc5e0ae761c45e25 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 28 Sep 2015 21:31:30 +0200 Subject: 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'. --- guix/tests.scm | 4 ++-- 1 file 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 -- cgit v1.2.3