diff options
author | Andy Wingo <wingo@pobox.com> | 2017-03-01 12:19:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-03-01 12:19:39 +0100 |
commit | 64a8785089aea211338b3fffbaa9afe817416512 (patch) | |
tree | babf140fc9ee02aeb4fa56c209ef5642aff1f128 | |
parent | ca923f842a5e2fc7d53acc291ee798f84292361e (diff) | |
download | guile-64a8785089aea211338b3fffbaa9afe817416512.tar.gz |
Disable REPL server tests if no threads
* test-suite/tests/00-repl-server.test (call-with-repl-server): The REPL
server needs threads so don't bother testing if we have no threads.
Also, prevent SIGPIPE from killing the parent process.
-rw-r--r-- | test-suite/tests/00-repl-server.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/tests/00-repl-server.test b/test-suite/tests/00-repl-server.test index 4b5ec0cb3..8570ca380 100644 --- a/test-suite/tests/00-repl-server.test +++ b/test-suite/tests/00-repl-server.test @@ -32,6 +32,10 @@ socket connected to that server." (false-if-exception (delete-file (sockaddr:path sockaddr))) + ;; The REPL server requires threads. + (unless (provided? 'threads) + (throw 'unsupported)) + (match (primitive-fork) (0 (dynamic-wind @@ -51,6 +55,7 @@ socket connected to that server." (lambda () (primitive-exit 0)))) (pid + (sigaction SIGPIPE SIG_IGN) (dynamic-wind (const #t) (lambda () @@ -71,7 +76,8 @@ socket connected to that server." (proc client-socket)) (lambda () (false-if-exception (close-port client-socket)) - (false-if-exception (kill pid SIGTERM)))))))) + (false-if-exception (kill pid SIGTERM)) + (sigaction SIGPIPE SIG_DFL))))))) (define-syntax-rule (with-repl-server client-socket body ...) "Evaluate BODY... in a context where CLIENT-SOCKET is bound to a |