Shiro Kawai
shiro****@lava*****
2003年 8月 17日 (日) 11:35:59 JST
遅くなりましたが、ipv6があるときext/netのテストがfailする問題は
とりあえずこんな感じでtestの方を直してみました。
環境のある方、時間のあるときに試してみて下さい。
--shiro
RCS file: /cvsroot/gauche/Gauche/ext/net/test.scm,v
retrieving revision 1.13
diff -u -r1.13 test.scm
--- ext/net/test.scm 29 May 2003 09:28:28 -0000 1.13
+++ ext/net/test.scm 17 Aug 2003 02:33:27 -0000
@@ -224,7 +224,11 @@
(test "inet client socket" #t
(lambda ()
- (call-with-client-socket (make-client-socket (make <sockaddr-in> :host "localhost" :port *inet-port*))
+ (call-with-client-socket
+ (make-client-socket (make (if (symbol-bound? '<sockaddr-in6>)
+ <sockaddr-in6>
+ <sockaddr-in>)
+ :host "localhost" :port *inet-port*))
(lambda (in out)
(display (make-string *chunk-size* #\a) out)
(newline out)