diff options
author | Mike Gran <spk121@yahoo.com> | 2021-01-23 10:00:07 -0800 |
---|---|---|
committer | Mike Gran <spk121@yahoo.com> | 2021-01-23 10:00:07 -0800 |
commit | cdcdd29e8e19af93864980337ec596c6e7bd43a9 (patch) | |
tree | acffb4a8233400b88b362c629ab4cb447603d515 | |
parent | 54fe8e83d9ff718127a44e21e25607abaa0f5b1d (diff) | |
download | guile-cdcdd29e8e19af93864980337ec596c6e7bd43a9.tar.gz |
socket test should not throw unresolved outside of a test
* test-suite/tests/00-socket.test: don't throw at top level
-rw-r--r-- | test-suite/tests/00-socket.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index f43f8332e..027bd8519 100644 --- a/test-suite/tests/00-socket.test +++ b/test-suite/tests/00-socket.test @@ -360,7 +360,8 @@ (let ((pid (primitive-fork-if-available))) ;; Spawn a server process. (case pid - ((-1) (throw 'unresolved)) + ((-1) + #f) ((0) ;; the kid: send MESSAGE and exit (exit (false-if-exception @@ -458,7 +459,8 @@ (let ((pid (primitive-fork-if-available))) ;; Spawn a server process. (case pid - ((-1) (throw 'unresolved)) + ((-1) + #f) ((0) ;; the kid: serve two connections and exit (let serve ((conn (false-if-exception (accept server-socket))) |