steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.servers: Fix a regression where we couldn't listen on several ports at once.

locals-and-roots
Doug Coleman 2016-05-23 15:28:51 -07:00
parent 88fa8b6bba
commit e19df707da
2 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/io/servers/servers-tests.factor
View File

@ -1,6 +1,6 @@
USING: accessors calendar concurrency.promises fry io USING: accessors arrays calendar concurrency.promises fry io
io.encodings.ascii io.servers io.encodings.ascii io.encodings.utf8 io.servers
io.servers.private io.sockets kernel namespaces io.servers.private io.sockets kernel namespaces scratchpad
sequences threads tools.test ; sequences threads tools.test ;
IN: io.servers IN: io.servers
@ -53,3 +53,20 @@ ipv6-supported? [
[ inet6? ] any? [ inet6? ] any?
] unit-test ] unit-test
] unless ] unless
! Test that we can listen on several ports at once.
TUPLE: my-threaded-server < threaded-server ;
{ } [
utf8 my-threaded-server new-threaded-server
"127.0.0.1" 0 <inet4>
"127.0.0.1" 0 <inet4>
2array >>insecure
"127.0.0.1" 0 <inet4>
"127.0.0.1" 0 <inet4>
2array >>secure
start-server stop-server
] unit-test

2
basis/io/servers/servers.factor
View File

@ -77,7 +77,7 @@ M: inet6 >insecure 1array ;
M: local >insecure 1array ; M: local >insecure 1array ;
M: integer >insecure internet-server 1array ; M: integer >insecure internet-server 1array ;
M: string >insecure internet-server 1array ; M: string >insecure internet-server 1array ;
M: array >insecure [ >insecure ] map ; M: array >insecure [ >insecure ] map concat ;
M: f >insecure ; M: f >insecure ;
: >secure ( addrspec -- addrspec' ) : >secure ( addrspec -- addrspec' )