mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Actually run '00-repl-server.test'.

Browse source 
This is a followup to ddcab06f20.  Until
now the tests would always be marked as unresolved because TMPDIR was
removed before the client and server had been started.

* test-suite/tests/00-repl-server.test (call-with-repl-server): Remove
initial call to 'rmdir'.  Add calls to 'delete-file' and 'rmdir' in the
unwind handler.
This commit is contained in:
Ludovic Courtès 2020-03-07 15:59:48 +01:00
parent d3a775ff10
commit 100257ec3e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -43,7 +43,6 @@ socket connected to that server."
(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))
@ -90,6 +89,8 @@ socket connected to that server."
(lambda ()
(false-if-exception (close-port client-socket))
(false-if-exception (kill pid SIGTERM))
(false-if-exception (delete-file (sockaddr:path sockaddr)))
(false-if-exception (rmdir tmpdir))
(sigaction SIGPIPE SIG_DFL)))))))
(define-syntax-rule (with-repl-server client-socket body ...)