[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/04: socket test should not throw unresolved outside o
From: |
Mike Gran |
Subject: |
[Guile-commits] 02/04: socket test should not throw unresolved outside of a test |
Date: |
Sat, 23 Jan 2021 16:00:36 -0500 (EST) |
mike121 pushed a commit to branch master
in repository guile.
commit cdcdd29e8e19af93864980337ec596c6e7bd43a9
Author: Mike Gran <spk121@yahoo.com>
AuthorDate: Sat Jan 23 10:00:07 2021 -0800
socket test should not throw unresolved outside of a test
* test-suite/tests/00-socket.test: don't throw at top level
---
test-suite/tests/00-socket.test | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index f43f833..027bd85 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)))