~ruther/guix-local: tests: 'open-connection-for-tests' takes an optional parameter.

df0a3b7f9ee8b5134ffedc58dc5e0ae761c45e25 — Ludovic Courtès 10 years ago b2bddb0

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'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M guix/tests.scm

M guix/tests.scm => guix/tests.scm +2 -2

@@ 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