[Guile-commits] 03/03: the repl server test requires AF_UNIX

[Mike Gran]

mike121 pushed a commit to branch wip-mingw-guile-2.2
in repository guile.

commit 016d8ba80dc7dfbf114000d53d810ea07effa6b1
Author: Michael Gran <address@hidden>
Date:   Thu Apr 19 13:25:00 2018 -0700

    the repl server test requires AF_UNIX
    
    * test-suite/tests/00-repl-server.test: quit if AF_UNIX is not defined
---
 test-suite/tests/00-repl-server.test | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test-suite/tests/00-repl-server.test 
b/test-suite/tests/00-repl-server.test
index 54f518a..2a46fc0 100644
--- a/test-suite/tests/00-repl-server.test
+++ b/test-suite/tests/00-repl-server.test
@@ -27,15 +27,15 @@
 (define (call-with-repl-server proc)
   "Set up a REPL server in a separate process and call PROC with a
 socket connected to that server."
+  ;; The REPL server requires thread. The test requires fork.
+  (unless (and (provided? 'threads) (provided? 'fork) (provided 'AF_UNIX))
+    (throw 'unsupported))
+
   (let ((sockaddr      (make-socket-address AF_UNIX "/tmp/repl-server"))
         (client-socket (socket AF_UNIX SOCK_STREAM 0)))
     (false-if-exception
      (delete-file (sockaddr:path sockaddr)))
 
-    ;; The REPL server requires thread. The test requires fork.
-    (unless (and (provided? 'threads) (provided? 'fork))
-      (throw 'unsupported))
-
     (match (primitive-fork)
       (0
        (dynamic-wind