summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-07 15:59:48 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-07 16:03:44 +0100
commit100257ec3e4045a9a3dc8ad42f3989d58b479ab7 (patch)
tree42f282503d608d4c51f161948014a24f7d0dc7a0
parentd3a775ff10cbd0e14af38d6f900a7538db89bd90 (diff)
downloadguile-100257ec3e4045a9a3dc8ad42f3989d58b479ab7.tar.gz
Actually run '00-repl-server.test'.
This is a followup to ddcab06f20525d975503d8d9611e02021fb0dff1. 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.
-rw-r--r--test-suite/tests/00-repl-server.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/test-suite/tests/00-repl-server.test b/test-suite/tests/00-repl-server.test
index ebc2cad11..8c5713f4a 100644
--- a/test-suite/tests/00-repl-server.test
+++ b/test-suite/tests/00-repl-server.test
@@ -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 ...)