From 016d8ba80dc7dfbf114000d53d810ea07effa6b1 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Thu, 19 Apr 2018 13:25:00 -0700 Subject: [PATCH] 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 54f518a66..2a46fc03b 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