Package: gauche / 0.9.6-10

39_net_test.patch Patch series | download
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*)