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

fix test that uses IPv6

Browse Source 
Closes #1738
This commit is contained in:
Matthew Flatt 2017-07-02 20:07:55 -06:00
parent 340b878981
commit b2b53d61a1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/racket-test-core/tests/racket/file.rktl
View File

@ -1489,9 +1489,8 @@
(let ([do-once (let ([do-once
(lambda (evt? localhost) (lambda (evt? localhost)
(let* ( (let* ([l (tcp-listen 0 5 #t)]
[l (tcp-listen 0 5 #t)] [pn (listen-port l)])
[pn (listen-port l)])
(let-values ([(r1 w1) (tcp-connect localhost pn)] (let-values ([(r1 w1) (tcp-connect localhost pn)]
[(r2 w2) (if evt? [(r2 w2) (if evt?
(apply values (sync (tcp-accept-evt l))) (apply values (sync (tcp-accept-evt l)))
@ -1513,8 +1512,12 @@
(do-once #f "localhost") (do-once #f "localhost")
(do-once #t "localhost") (do-once #t "localhost")
(with-handlers ([exn:fail:network:errno? (lambda (e) (with-handlers ([exn:fail:network:errno? (lambda (e)
;; catch EAFNOSUPPORT Address family not supported by protocol ;; catch forms of non-suport for IPv6:
(unless (regexp-match? #rx"Address family not supported by protocol" (exn-message e)) ;; EAFNOSUPPORT "Address family not supported by protocol"
;; or getaddrinfo failure "no address associated with name"
(unless (regexp-match?
#rx"family not supported by protocol|no address associated with name"
(exn-message e))
(raise e)))]) (raise e)))])
(do-once #f "::1") (do-once #f "::1")
(do-once #t "::1"))) (do-once #t "::1")))