suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a UDP multicast test to make it work on Windows XP

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-10 09:09:56 -06:00
parent 842da32e48
commit 6e0492dff0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/racket/udp.rktl
View File

@ -194,6 +194,9 @@
;; UDP Multicast
(let ((s (udp-open-socket)))
;; On Windows XP, bind is required before multicast joins:
(when (eq? 'windows (system-type))
(test (void) udp-bind! s #f 0 #t))
(test #t boolean? (udp-multicast-loopback? s))
(test (void) udp-multicast-set-loopback! s #f)
@ -259,7 +262,8 @@
(test (void) udp-multicast-join-group! s "233.252.0.0" #f)
(test (void) udp-multicast-leave-group! s "233.252.0.0" "0.0.0.0")
(test (void) udp-bind! s #f 0 #t)
(unless (eq? 'windows (system-type))
(test (void) udp-bind! s #f 0 #t))
(test (void) udp-multicast-join-group! s "233.252.0.0" "localhost")
(let*-values (((la lp ra rp) (udp-addresses s #t))