| diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
|
| index d3a4f9fbd..9ded6fe21 100644
|
| --- a/test-suite/tests/00-socket.test
|
| +++ b/test-suite/tests/00-socket.test
|
| @@ -297,6 +297,7 @@
|
| ((-1) ;; fork not available
|
| #f)
|
| ((0) ;; the kid: serve two connections and exit
|
| + (close-fdes 6)
|
| (let serve ((conn
|
| (false-if-exception (accept server-socket)))
|
| (count 1))
|
| @@ -377,6 +378,7 @@
|
| ((-1) ;; fork not available
|
| #f)
|
| ((0) ;; the kid: serve one connection and exit
|
| + (close-fdes 6)
|
| (let serve ((conn
|
| (false-if-exception (accept server-socket)))
|
| (count 0))
|
| @@ -449,6 +451,7 @@
|
| ((-1)
|
| #f)
|
| ((0) ;; the kid: send MESSAGE and exit
|
| + (close-fdes 6)
|
| (exit
|
| (false-if-exception
|
| (let ((conn (car (accept server-socket)))
|
| @@ -548,6 +551,7 @@
|
| ((-1)
|
| #f)
|
| ((0) ;; the kid: serve two connections and exit
|
| + (close-fdes 6)
|
| (let serve ((conn
|
| (false-if-exception (accept server-socket)))
|