Add a method on url-addr for local ports

Remove test for code that got reverted
2010-10-08 08:42:19 -07:00 · 2010-10-08 08:42:19 -07:00 · 7367ff19c4
parent 1179eefefa
commit 7367ff19c4
2 changed files with 2 additions and 2 deletions
--- 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 )
--- 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