mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
Actually run '00-repl-server.test'.
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:
parent
d3a775ff10
commit
100257ec3e
1 changed files with 2 additions and 1 deletions
|
@ -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 ...)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue