Packages
thousand_island
0.1.2
1.5.0
1.4.3
1.4.2
1.4.1
1.4.0
1.3.14
1.3.13
1.3.12
1.3.11
1.3.10
1.3.9
1.3.8
1.3.7
1.3.6
1.3.5
1.3.4
1.3.3
1.3.2
1.3.1
1.3.0
1.2.0
1.1.0
1.0.0
1.0.0-pre.7
1.0.0-pre.6
1.0.0-pre.5
1.0.0-pre.4
1.0.0-pre.3
1.0.0-pre.2
1.0.0-pre.1
0.6.7
0.6.6
0.6.5
0.6.4
0.6.3
0.6.2
0.6.1
0.6.0
0.5.17
0.5.16
0.5.15
0.5.14
0.5.13
0.5.12
0.5.11
0.5.10
0.5.9
0.5.8
0.5.7
0.5.6
0.5.5
0.5.4
0.5.3
0.5.2
0.5.1
0.5.0
0.4.7
0.4.6
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.3.3
0.3.2
0.3.1
0.3.0
0.2.1
0.2.0
0.1.3
0.1.2
0.1.1
0.1.0
A simple & modern pure Elixir socket server
Current section
Files
Jump to
Current section
Files
test/thousand_island_test.exs
defmodule ThousandIslandTest do
use ExUnit.Case, async: true
alias ThousandIsland.Handlers.Echo
alias ThousandIsland.Transports.SSL
describe "TCP transport" do
setup do
{:ok, server_pid} = start_supervised({ThousandIsland, port: 0, handler_module: Echo})
{:ok, port} = ThousandIsland.local_port(server_pid)
{:ok, %{server_pid: server_pid, port: port}}
end
test "should handle connections as expected", context do
{:ok, client} = :gen_tcp.connect(:localhost, context.port, active: false)
:ok = :gen_tcp.send(client, "HELLO")
assert :gen_tcp.recv(client, 0) == {:ok, 'HELLO'}
:gen_tcp.close(client)
end
test "it should stop accepting connections but allow existing ones to complete", context do
{:ok, client} = :gen_tcp.connect(:localhost, context.port, active: false)
# Make sure the socket has transitioned ownership to the connection process
Process.sleep(100)
task = Task.async(fn -> ThousandIsland.stop(context.server_pid) end)
# Make sure that the stop has had a chance to shutdown the acceptors
Process.sleep(100)
assert :gen_tcp.connect(:localhost, context.port, [active: false], 100) ==
{:error, :econnrefused}
:ok = :gen_tcp.send(client, "HELLO")
assert :gen_tcp.recv(client, 0) == {:ok, 'HELLO'}
:gen_tcp.close(client)
Task.await(task)
end
end
describe "SSL transport" do
setup do
{:ok, server_pid} =
start_supervised(
{ThousandIsland,
port: 0,
transport_module: SSL,
transport_options: [
certfile: Path.join(__DIR__, "support/cert.pem"),
keyfile: Path.join(__DIR__, "support/key.pem")
],
handler_module: Echo}
)
{:ok, port} = ThousandIsland.local_port(server_pid)
{:ok, %{server_pid: server_pid, port: port}}
end
test "should handle connections as expected", context do
{:ok, client} = :ssl.connect(:localhost, context.port, [active: false], :infinity)
:ok = :ssl.send(client, "HELLO")
assert :ssl.recv(client, 0) == {:ok, 'HELLO'}
:ssl.close(client)
end
end
end