From 6e0492dff0813b1c305398f9607bd31491645b46 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 10 Apr 2013 09:09:56 -0600 Subject: [PATCH] fix a UDP multicast test to make it work on Windows XP --- collects/tests/racket/udp.rktl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/tests/racket/udp.rktl b/collects/tests/racket/udp.rktl index 90a8393ec4..c28429541f 100644 --- a/collects/tests/racket/udp.rktl +++ b/collects/tests/racket/udp.rktl @@ -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))