mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

00-repl-server.test: don't use fixed path for socket

Browse source 
* test-suite/tests/00-repl-server.test (make-tempdir): Add.
(call-with-repl-server): Store socket in a make-tempdir dir.
This commit is contained in:
Rob Browning 2020-01-22 21:23:16 -06:00
parent bf1f5422bd
commit ddcab06f20
1 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -24,13 +24,26 @@
#:use-module (web request)
#:use-module (test-suite lib))
;; FIXME: replace with mkdtemp! (or equivalent) when available
(define (make-tempdir)
(let loop ((try 0)
(n (random:uniform)))
(let* ((path (string-append "/tmp/repl-server-test-" (number->string n)))
(dir (false-if-exception (mkdir path #o700))))
(cond
(dir path)
((> try 10)
(error "Unable to create directory in /tmp for 00-repl-server.test"))
(else (loop (1+ try) (random:uniform)))))))
(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."
(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)))
(let* ((tmpdir (make-tempdir))
(sockaddr (make-socket-address AF_UNIX (string-append tmpdir "/repl-server")))
(client-socket (socket AF_UNIX SOCK_STREAM 0)))
(false-if-exception (delete-file (sockaddr:path sockaddr)))
(false-if-exception (rmdir tmpdir))
;; The REPL server requires thread. The test requires fork.
(unless (and (provided? 'threads) (provided? 'fork))