Add a method on url-addr for local ports

Remove test for code that got reverted

diff --git a/basis/io/servers/servers.factor b/basis/io/servers/servers.factor
index 6f598b3110a39b40ca81a55ef1365d5d1a05d8db..0ef461697b7005e81251ff288e0c240fd7c5df2a 100644 (file)
--- a/basis/io/servers/servers.factor
+++ b/basis/io/servers/servers.factor
@@ -230,6 +230,8 @@ M: inet6 connect-addr [ "::1" ] dip port>> <inet6> ;
 
 M: secure connect-addr addrspec>> connect-addr <secure> ;
 
+M: local connect-addr ;
+
 PRIVATE>
 
 : server-addrs ( -- addrspecs )

diff --git a/basis/io/sockets/sockets-tests.factor b/basis/io/sockets/sockets-tests.factor
index 9c9f6772786ca3a93462ab463cb0de14ec521f59..d6015127532ebb91b7fd7c14daa8bffbd4982643 100644 (file)
--- a/basis/io/sockets/sockets-tests.factor
+++ b/basis/io/sockets/sockets-tests.factor
@@ -38,8 +38,6 @@ IN: io.sockets.tests
 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
 [ "::" T{ inet6 } inet-pton ] unit-test
 
-[ f T{ inet6 } inet-pton ] [ reason>> empty-ipv6? ] must-fail-with
-
 [ "0:0:0:0:0:0:0:0" ]
 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } T{ inet6 } inet-ntop ] unit-test