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

Fix automated tests for systems without IPv6

Browse Source
This commit is contained in:
Tobias Hammer 2013-08-27 14:45:33 +02:00 committed by Matthew Flatt
parent e6886e4213
commit 610949e622
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-pkgs/racket-test/tests/racket/file.rktl
View File

@ -1491,8 +1491,12 @@
(tcp-close l)))])
(do-once #f "localhost")
(do-once #t "localhost")
(do-once #f "::1")
(do-once #t "::1"))
(with-handlers ([exn:fail:network:errno? (lambda (e)
;; catch EAFNOSUPPORT Address family not supported by protocol
(unless (regexp-match? #rx"Address family not supported by protocol" (exn-message e))
(raise e)))])
(do-once #f "::1")
(do-once #t "::1")))
(test #f tcp-port? (current-input-port))
(test #f tcp-port? (current-output-port))