http: only test using ipv4.

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index fc6a896c653c641c18a7c797dad92635a03b9246..667fd22197ed182507e23bda15e78ce23d6d96e3 100644 (file)
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -240,7 +240,7 @@ http.server.dispatchers db.tuples ;
     [ main-responder ] dip '[
         <http-server> 0 >>insecure f >>secure
         [
-            server-addrs random "addr" set @
+            server-addrs [ ipv4? ] filter random "addr" set @
         ] with-threaded-server
     ] with-variable ; inline