1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Description: net test patch
Author: NIIBE Yutaka <gniibe@fsij.org>
Last-Update: 2018-10-04
Index: gauche/ext/net/test.scm
===================================================================
--- gauche.orig/ext/net/test.scm
+++ gauche/ext/net/test.scm
@@ -381,7 +381,7 @@
(test* "inet server socket" #t
(boolean (run-simple-server
- `(make-server-sockets #f ,*inet-port* :reuse-addr? #t))))
+ `(make-server-sockets "localhost" ,*inet-port* :reuse-addr? #t))))
(test* "inet client socket" '("ABC" "XYZ")
(call-with-client-socket (make-client-socket 'inet "localhost" *inet-port*)
|