summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/socket.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/socket.test b/test-suite/tests/socket.test
index 718fb9488..8fccc36c5 100644
--- a/test-suite/tests/socket.test
+++ b/test-suite/tests/socket.test
@@ -277,6 +277,8 @@
(set! server-listening? #t)
#t)))
+ (force-output (current-output-port))
+ (force-output (current-error-port))
(if server-listening?
(let ((pid (primitive-fork)))
;; Spawn a server process.
@@ -365,6 +367,8 @@
(set! server-listening? #t)
#t)))
+ (force-output (current-output-port))
+ (force-output (current-error-port))
(if server-listening?
(let ((pid (primitive-fork)))
;; Spawn a server process.