mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

socket test should not throw unresolved outside of a test

Browse source 
* test-suite/tests/00-socket.test: don't throw at top level
This commit is contained in:
Mike Gran 2021-01-23 10:00:07 -08:00
parent 54fe8e83d9
commit cdcdd29e8e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/00-socket.test
View file

@ -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)))