01/04: tests: 'open-connection-for-tests' takes an optional parameter.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit df0a3b7f9ee8b5134ffedc58dc5e0ae761c45e25
Author: Ludovic Courtès <address@hidden>
Date:   Mon Sep 28 21:31:30 2015 +0200

    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 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/tests.scm b/guix/tests.scm
index cd8eda2..80c1745 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