mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

the repl server test requires AF_UNIX

Browse source 
* test-suite/tests/00-repl-server.test: quit if AF_UNIX is not defined
This commit is contained in:
Michael Gran 2018-04-19 13:25:00 -07:00
parent 57355ee431
commit 016d8ba80d
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/00-repl-server.test
View file

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