From a89732e8e0fac2b2265007a11c05d4d0f6e6b1b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 7 Mar 2018 18:27:19 +0100 Subject: Initial work on the sys_SUITE There's already tests failing and quite some refactoring to be done to make some things easier to test or fix issues. --- test/handlers/long_polling_sys_h.erl | 23 + test/sys_SUITE.erl | 1079 ++++++++++++++++++++++++++++++++++ 2 files changed, 1102 insertions(+) create mode 100644 test/handlers/long_polling_sys_h.erl create mode 100644 test/sys_SUITE.erl (limited to 'test') diff --git a/test/handlers/long_polling_sys_h.erl b/test/handlers/long_polling_sys_h.erl new file mode 100644 index 0000000..7745d8c --- /dev/null +++ b/test/handlers/long_polling_sys_h.erl @@ -0,0 +1,23 @@ +%% This module implements a loop handler that does nothing +%% and expects a crash to happen. + +-module(long_polling_sys_h). + +-export([init/2]). +-export([info/3]). +-export([terminate/3]). + +init(Req, _) -> + process_flag(trap_exit, true), + erlang:send_after(500, self(), timeout), + {cowboy_loop, Req, undefined, hibernate}. + +info(timeout, Req, State) -> + %% Send an unused status code to make sure there's no + %% conflict with whatever Cowboy may send itself. + {ok, cowboy_req:reply(<<"299 OK!">>, Req), State}; +info(_, Req, State) -> + {ok, Req, State}. + +terminate({crash, _, _}, _, _) -> + ok. diff --git a/test/sys_SUITE.erl b/test/sys_SUITE.erl new file mode 100644 index 0000000..9c14145 --- /dev/null +++ b/test/sys_SUITE.erl @@ -0,0 +1,1079 @@ +%% Copyright (c) 2018, Loïc Hoguin +%% +%% Permission to use, copy, modify, and/or distribute this software for any +%% purpose with or without fee is hereby granted, provided that the above +%% copyright notice and this permission notice appear in all copies. +%% +%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +-module(sys_SUITE). +-compile(export_all). +-compile(nowarn_export_all). + +-import(ct_helper, [config/2]). +-import(ct_helper, [doc/1]). +-import(cowboy_test, [gun_open/1]). + +all() -> + [{group, sys}]. + +groups() -> + [{sys, [parallel], ct_helper:all(?MODULE)}]. + +init_per_suite(Config) -> + ProtoOpts = #{ + env => #{dispatch => init_dispatch(Config)} + }, + %% Clear listener. + {ok, _} = cowboy:start_clear(clear, [{port, 0}], ProtoOpts), + ClearPort = ranch:get_port(clear), + %% TLS listener. + TLSOpts = ct_helper:get_certs_from_ets(), + {ok, _} = cowboy:start_tls(tls, TLSOpts ++ [{port, 0}], ProtoOpts), + TLSPort = ranch:get_port(tls), + [ + {clear_port, ClearPort}, + %% @todo Add the h2 stuff to the opts. + {tls_opts, TLSOpts}, + {tls_port, TLSPort} + |Config]. + +end_per_suite(_) -> + ok = cowboy:stop_listener(clear), + ok = cowboy:stop_listener(tls). + +init_dispatch(_) -> + cowboy_router:compile([{"[...]", [ + {"/", hello_h, []}, + {"/loop", long_polling_sys_h, []}, + {"/ws", ws_echo, []} + ]}]). + +do_get_remote_pid_tcp(Socket) when is_port(Socket) -> + do_get_remote_pid_tcp(inet:sockname(Socket)); +do_get_remote_pid_tcp(SockName) -> + AllPorts = [{P, erlang:port_info(P)} || P <- erlang:ports()], + [Pid] = [ + proplists:get_value(connected, I) + || {P, I} <- AllPorts, + I =/= undefined, + proplists:get_value(name, I) =:= "tcp_inet", + inet:peername(P) =:= SockName], + Pid. + +-include_lib("ssl/src/ssl_connection.hrl"). + +do_get_remote_pid_tls(Socket) -> + %% This gives us the pid of the sslsocket process. + %% We must introspect this process in order to retrieve the connection pid. + TLSPid = do_get_remote_pid_tcp(ssl:sockname(Socket)), + {_, #state{user_application={_, UserPid}}} = sys:get_state(TLSPid), + UserPid. + +do_get_parent_pid(Pid) -> + {_, ProcDict} = process_info(Pid, dictionary), + {_, [Parent|_]} = lists:keyfind('$ancestors', 1, ProcDict), + Parent. + +%% proc_lib. + +proc_lib_initial_call_clear(Config) -> + doc("Confirm that clear connection processes are started using proc_lib."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + {cowboy_clear, _, _} = proc_lib:initial_call(Pid), + ok. + +proc_lib_initial_call_tls(Config) -> + doc("Confirm that TLS connection processes are started using proc_lib."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), config(tls_opts, Config)), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + {cowboy_tls, _, _} = proc_lib:initial_call(Pid), + ok. + +%% System messages. +%% +%% Plain system messages are received as {system, From, Msg}. +%% The content and meaning of this message are not interpreted by +%% the receiving process module. When a system message is received, +%% function handle_system_msg/6 is called to handle the request. + +%% @todo The flush/0 function in cowboy_http needs to be fixed +%% so that it doesn't eat up system messages. It should only +%% flush messages that are specific to cowboy_http. + +%% @todo The cowboy_websocket module needs to have the functions +%% handler_loop and websocket_payload_loop merged into one. + +bad_system_from_h1(Config) -> + doc("h1: Sending a system message with a bad From value results in a process crash."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + ct_helper_error_h:ignore(Pid, gen, reply, 2), + Pid ! {system, bad, get_state}, + {error, closed} = gen_tcp:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +bad_system_from_h2(Config) -> + doc("h2: Sending a system message with a bad From value results in a process crash."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Skip the SETTINGS frame. + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + ct_helper_error_h:ignore(Pid, gen, reply, 2), + Pid ! {system, bad, get_state}, + {error, closed} = ssl:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +bad_system_from_ws(Config) -> + doc("ws: Sending a system message with a bad From value results in a process crash."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + ct_helper_error_h:ignore(Pid, gen, reply, 2), + Pid ! {system, bad, get_state}, + {error, closed} = gen_tcp:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +bad_system_from_loop(Config) -> + doc("loop: Sending a system message with a bad From value results in a process crash."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + SupPid = do_get_remote_pid_tcp(Socket), + [{_, Pid, _, _}] = supervisor:which_children(SupPid), + ct_helper_error_h:ignore(Pid, gen, reply, 2), + Pid ! {system, bad, get_state}, + {ok, "HTTP/1.1 500 "} = gen_tcp:recv(Socket, 13, 1000), + false = is_process_alive(Pid), + ok. + +bad_system_message_h1(Config) -> + doc("h1: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, hello}, + receive + {Ref, {error, {unknown_system_msg, hello}}} -> + ok + after 1000 -> + error(timeout) + end. + +bad_system_message_h2(Config) -> + doc("h2: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Skip the SETTINGS frame. + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, hello}, + receive + {Ref, {error, {unknown_system_msg, hello}}} -> + ok + after 1000 -> + error(timeout) + end. + +bad_system_message_ws(Config) -> + doc("ws: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, hello}, + receive + {Ref, {error, {unknown_system_msg, hello}}} -> + ok + after 1000 -> + error(timeout) + end. + +bad_system_message_loop(Config) -> + doc("loop: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + SupPid = do_get_remote_pid_tcp(Socket), + [{_, Pid, _, _}] = supervisor:which_children(SupPid), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, hello}, + receive + {Ref, {error, {unknown_system_msg, hello}}} -> + ok + after 1000 -> + error(timeout) + end. + +good_system_message_h1(Config) -> + doc("h1: System messages are handled properly."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, get_state}, + receive + {Ref, Result} when element(1, Result) =/= error -> + ok + after 1000 -> + error(timeout) + end. + +good_system_message_h2(Config) -> + doc("h2: System messages are handled properly."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Skip the SETTINGS frame. + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, get_state}, + receive + {Ref, Result} when element(1, Result) =/= error -> + ok + after 1000 -> + error(timeout) + end. + +good_system_message_ws(Config) -> + doc("ws: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, get_state}, + receive + {Ref, Result} when element(1, Result) =/= error -> + ok + after 1000 -> + error(timeout) + end. + +good_system_message_loop(Config) -> + doc("loop: Sending a system message with a bad Request value results in an error."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + SupPid = do_get_remote_pid_tcp(Socket), + [{_, Pid, _, _}] = supervisor:which_children(SupPid), + Ref = make_ref(), + Pid ! {system, {self(), Ref}, get_state}, + receive + {Ref, Result} when element(1, Result) =/= error -> + ok + after 1000 -> + error(timeout) + end. + +%% 'EXIT'. +%% +%% Shutdown messages. If the process traps exits, it must be able +%% to handle a shutdown request from its parent, the supervisor. +%% The message {'EXIT', Parent, Reason} from the parent is an order +%% to terminate. The process must terminate when this message is +%% received, normally with the same Reason as Parent. + +trap_exit_parent_exit_h1(Config) -> + doc("h1: A process trapping exits must stop when receiving " + "an 'EXIT' message from its parent."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Parent = do_get_parent_pid(Pid), + Pid ! {'EXIT', Parent, shutdown}, + {error, closed} = gen_tcp:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +trap_exit_parent_exit_h2(Config) -> + doc("h2: A process trapping exits must stop when receiving " + "an 'EXIT' message from its parent."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Skip the SETTINGS frame. + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + Parent = do_get_parent_pid(Pid), + Pid ! {'EXIT', Parent, shutdown}, + {error, closed} = ssl:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +trap_exit_parent_exit_ws(Config) -> + doc("ws: A process trapping exits must stop when receiving " + "an 'EXIT' message from its parent."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Parent = do_get_parent_pid(Pid), + Pid ! {'EXIT', Parent, shutdown}, + {error, closed} = gen_tcp:recv(Socket, 0, 1000), + false = is_process_alive(Pid), + ok. + +trap_exit_parent_exit_loop(Config) -> + doc("loop: A process trapping exits must stop when receiving " + "an 'EXIT' message from its parent."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + Parent = do_get_remote_pid_tcp(Socket), + [{_, Pid, _, _}] = supervisor:which_children(Parent), + Pid ! {'EXIT', Parent, shutdown}, + %% We're getting a 500 because the process exited in an unexpected way + %% from Cowboy's point of view. + {ok, "HTTP/1.1 500 "} = gen_tcp:recv(Socket, 13, 1000), + false = is_process_alive(Pid), + ok. + +trap_exit_other_exit_h1(Config) -> + doc("h1: A process trapping exits must ignore " + "'EXIT' messages from unknown processes."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Pid ! {'EXIT', self(), shutdown}, + ok = gen_tcp:send(Socket, + "GET / HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + {ok, "HTTP/1.1 200 "} = gen_tcp:recv(Socket, 13, 1000), + true = is_process_alive(Pid), + ok. + +trap_exit_other_exit_h2(Config) -> + doc("h2: A process trapping exits must ignore " + "'EXIT' messages from unknown processes."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + Pid ! {'EXIT', self(), shutdown}, + %% Send a HEADERS frame as a request. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + %% Receive a HEADERS frame as a response. + {ok, << _:24, 1:8, _:40 >>} = ssl:recv(Socket, 9, 6000), + true = is_process_alive(Pid), + ok. + +trap_exit_other_exit_ws(Config) -> + doc("ws: A process trapping exits must ignore " + "'EXIT' messages from unknown processes."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + Parent = do_get_parent_pid(Pid), + Pid ! {'EXIT', Parent, shutdown}, + %% The process stays alive. + {error, timeout} = gen_tcp:recv(Socket, 0, 1000), + true = is_process_alive(Pid), + ok. + +trap_exit_other_exit_loop(Config) -> + doc("loop: A process trapping exits must ignore " + "'EXIT' messages from unknown processes."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), [{active, false}]), + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + Parent = do_get_remote_pid_tcp(Socket), + [{_, Pid, _, _}] = supervisor:which_children(Parent), + Pid ! {'EXIT', Parent, shutdown}, + %% The process stays alive. + {ok, "HTTP/1.1 299 "} = gen_tcp:recv(Socket, 13, 1000), + true = is_process_alive(Pid), + ok. + +%% get_modules. +%% +%% If the modules used to implement the process change dynamically +%% during runtime, the process must understand one more message. +%% An example is the gen_event processes. The message is +%% {_Label, {From, Ref}, get_modules}. The reply to this message is +%% From ! {Ref, Modules}, where Modules is a list of the currently +%% active modules in the process. +%% +%% For example: +%% +%% 1> application:start(sasl). +%% ok +%% 2> gen:call(alarm_handler, self(), get_modules). +%% {ok,[alarm_handler]} +%% 3> whereis(alarm_handler) ! {'$gen', {self(), make_ref()}, get_modules}. +%% {'$gen',{<0.61.0>,#Ref<0.2900144977.374865921.142102>}, +%% get_modules} +%% 4> flush(). +%% Shell got {#Ref<0.2900144977.374865921.142102>,[alarm_handler]} +%% +%% Cowboy's connection processes change dynamically: it starts with +%% cowboy_clear or cowboy_tls, then becomes cowboy_http or cowboy_http2 +%% and may then become or involve cowboy_websocket. On top of that +%% it has various callback modules in the form of stream handlers. + +%% @todo +%get_modules_h1(Config) -> +%get_modules_h2(Config) -> +%get_modules_ws(Config) -> +%get_modules_loop(Config) -> + +%% @todo On top of this we will want to make the supervisor calls +%% in ranch_conns_sup return dynamic instead of a list of modules. + +%% sys. + +%% @todo sys:change_code/4,5 and Module:system_code_change/4 +%sys_change_code_h1(Config) -> +%sys_change_code_h2(Config) -> +%sys_change_code_ws(Config) -> +%sys_change_code_loop(Config) -> + +%% @todo sys:get_state/1,2 and Module:system_get_state/1 +%sys_get_state_h1(Config) -> +%sys_get_state_h2(Config) -> +%sys_get_state_ws(Config) -> +%sys_get_state_loop(Config) -> + +%% @todo sys:get_status/1,2 +%sys_get_status_h1(Config) -> +%sys_get_status_h2(Config) -> +%sys_get_status_ws(Config) -> +%sys_get_status_loop(Config) -> + +%% @todo sys:replace_state/2,3 and Module:replace_state/2 +%sys_replace_state_h1(Config) -> +%sys_replace_state_h2(Config) -> +%sys_replace_state_ws(Config) -> +%sys_replace_state_loop(Config) -> + +%% @todo sys:resume/1,2 and sys:suspend/1,2 and Module:system_continue/3 +%sys_suspend_and_resume_h1(Config) -> +%sys_suspend_and_resume_h2(Config) -> +%sys_suspend_and_resume_ws(Config) -> +%sys_suspend_and_resume_loop(Config) -> + +%% @todo sys:terminate/2,3 and Module:system_terminate/4 +%sys_terminate_h1(Config) -> +%sys_terminate_h2(Config) -> +%sys_terminate_ws(Config) -> +%sys_terminate_loop(Config) -> + +%% @todo Debugging functionality from sys. +%% +%% The functions make references to a debug structure. +%% The debug structure is a list of dbg_opt(), which is +%% an internal data type used by function handle_system_msg/6. +%% No debugging is performed if it is an empty list. +%% +%% Cowboy currently does not implement sys debugging. +%% +%% The following functions are concerned: +%% +%% * sys:install/2,3 +%% * sys:log/2,3 +%% * sys:log_to_file/2,3 +%% * sys:no_debug/1,2 +%% * sys:remove/2,3 +%% * sys:statistics/2,3 +%% * sys:trace/2,3 +%% * call debug_options/1 +%% * call get_debug/3 +%% * call handle_debug/4 +%% * call print_log/1 + +%% supervisor. +%% +%% The connection processes act as supervisors by default +%% so they must handle the supervisor messages. + +%% supervisor:count_children/1. + +supervisor_count_children_h1(Config) -> + doc("h1: The function supervisor:count_children/1 must work."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% No request was sent so there's no children. + Counts1 = supervisor:count_children(Pid), + 1 = proplists:get_value(specs, Counts1), + 0 = proplists:get_value(active, Counts1), + 0 = proplists:get_value(supervisors, Counts1), + 0 = proplists:get_value(workers, Counts1), + %% Send a request, observe that a children exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + Counts2 = supervisor:count_children(Pid), + 1 = proplists:get_value(specs, Counts2), + 1 = proplists:get_value(active, Counts2), + 0 = proplists:get_value(supervisors, Counts2), + 1 = proplists:get_value(workers, Counts2), + ok. + +supervisor_count_children_h2(Config) -> + doc("h2: The function supervisor:count_children/1 must work."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% No request was sent so there's no children. + Counts1 = supervisor:count_children(Pid), + 1 = proplists:get_value(specs, Counts1), + 0 = proplists:get_value(active, Counts1), + 0 = proplists:get_value(supervisors, Counts1), + 0 = proplists:get_value(workers, Counts1), + %% Send a request, observe that a children exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + Counts2 = supervisor:count_children(Pid), + 1 = proplists:get_value(specs, Counts2), + 1 = proplists:get_value(active, Counts2), + 0 = proplists:get_value(supervisors, Counts2), + 1 = proplists:get_value(workers, Counts2), + ok. + +supervisor_count_children_ws(Config) -> + doc("ws: The function supervisor:count_children/1 must work. " + "Websocket connections never have children."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:count_children + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:count_children/1 once it is fixed. + Counts = gen_server:call(Pid, count_children, 1000), + 1 = proplists:get_value(specs, Counts), + 0 = proplists:get_value(active, Counts), + 0 = proplists:get_value(supervisors, Counts), + 0 = proplists:get_value(workers, Counts), + ok. + +%% supervisor:delete_child/2. + +supervisor_delete_child_not_found_h1(Config) -> + doc("h1: The function supervisor:delete_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% When no children exist. + {error, not_found} = supervisor:delete_child(Pid, cowboy_http), + %% When a child exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + {error, not_found} = supervisor:delete_child(Pid, cowboy_http), + ok. + +supervisor_delete_child_not_found_h2(Config) -> + doc("h2: The function supervisor:delete_child/2 must return {error, not_found}."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% When no children exist. + {error, not_found} = supervisor:delete_child(Pid, cowboy_http2), + %% When a child exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + {error, not_found} = supervisor:delete_child(Pid, cowboy_http2), + ok. + +supervisor_delete_child_not_found_ws(Config) -> + doc("ws: The function supervisor:delete_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:delete_child + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:delete_child/2 once it is fixed. + {error, not_found} = gen_server:call(Pid, {delete_child, cowboy_websocket}, 1000), + ok. + +%% supervisor:get_childspec/2. + +supervisor_get_childspec_not_found_h1(Config) -> + doc("h1: The function supervisor:get_childspec/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% When no children exist. + {error, not_found} = supervisor:get_childspec(Pid, cowboy_http), + %% When a child exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + {error, not_found} = supervisor:get_childspec(Pid, cowboy_http), + ok. + +supervisor_get_childspec_not_found_h2(Config) -> + doc("h2: The function supervisor:get_childspec/2 must return {error, not_found}."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% When no children exist. + {error, not_found} = supervisor:get_childspec(Pid, cowboy_http2), + %% When a child exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + {error, not_found} = supervisor:get_childspec(Pid, cowboy_http2), + ok. + +supervisor_get_childspec_not_found_ws(Config) -> + doc("ws: The function supervisor:get_childspec/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:get_childspec + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:get_childspec/2 once it is fixed. + {error, not_found} = gen_server:call(Pid, {get_childspec, cowboy_websocket}, 1000), + ok. + +%% supervisor:restart_child/2. + +supervisor_restart_child_not_found_h1(Config) -> + doc("h1: The function supervisor:restart_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% When no children exist. + {error, not_found} = supervisor:restart_child(Pid, cowboy_http), + %% When a child exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + {error, not_found} = supervisor:restart_child(Pid, cowboy_http), + ok. + +supervisor_restart_child_not_found_h2(Config) -> + doc("h2: The function supervisor:restart_child/2 must return {error, not_found}."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% When no children exist. + {error, not_found} = supervisor:restart_child(Pid, cowboy_http2), + %% When a child exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + {error, not_found} = supervisor:restart_child(Pid, cowboy_http2), + ok. + +supervisor_restart_child_not_found_ws(Config) -> + doc("ws: The function supervisor:restart_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:restart_child + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:restart_child/2 once it is fixed. + {error, not_found} = gen_server:call(Pid, {restart_child, cowboy_websocket}, 1000), + ok. + +%% supervisor:start_child/2 must return {error, start_child_disabled} + +supervisor_start_child_not_found_h1(Config) -> + doc("h1: The function supervisor:start_child/2 must return {error, start_child_disabled}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + {error, start_child_disabled} = supervisor:start_child(Pid, #{ + id => error, + start => {error, error, []} + }), + ok. + +supervisor_start_child_not_found_h2(Config) -> + doc("h2: The function supervisor:start_child/2 must return {error, start_child_disabled}."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + {error, start_child_disabled} = supervisor:start_child(Pid, #{ + id => error, + start => {error, error, []} + }), + ok. + +supervisor_start_child_not_found_ws(Config) -> + doc("ws: The function supervisor:start_child/2 must return {error, start_child_disabled}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:start_child + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:start_child/2 once it is fixed. + {error, start_child_disabled} = gen_server:call(Pid, {start_child, #{ + id => error, + start => {error, error, []} + }}, 1000), + ok. + +%% supervisor:terminate_child/2. + +supervisor_terminate_child_not_found_h1(Config) -> + doc("h1: The function supervisor:terminate_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% When no children exist. + {error, not_found} = supervisor:terminate_child(Pid, cowboy_http), + %% When a child exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + {error, not_found} = supervisor:terminate_child(Pid, cowboy_http), + ok. + +supervisor_terminate_child_not_found_h2(Config) -> + doc("h2: The function supervisor:terminate_child/2 must return {error, not_found}."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% When no children exist. + {error, not_found} = supervisor:terminate_child(Pid, cowboy_http2), + %% When a child exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + {error, not_found} = supervisor:terminate_child(Pid, cowboy_http2), + ok. + +supervisor_terminate_child_not_found_ws(Config) -> + doc("ws: The function supervisor:terminate_child/2 must return {error, not_found}."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:terminate_child + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:terminate_child/2 once it is fixed. + {error, not_found} = gen_server:call(Pid, {terminate_child, cowboy_websocket}, 1000), + ok. + +%% supervisor:which_children/1. +%% +%% @todo The list of modules returned is probably wrong. This will +%% need to be corrected when get_modules gets implemented. + +supervisor_which_children_h1(Config) -> + doc("h1: The function supervisor:which_children/1 must work."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [{active, false}]), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% No request was sent so there's no children. + [] = supervisor:which_children(Pid), + %% Send a request, observe that a children exists. + ok = gen_tcp:send(Socket, + "GET /loop HTTP/1.1\r\n" + "Host: localhost\r\n" + "\r\n"), + timer:sleep(100), + [{cowboy_http, Child, worker, [cowboy_http]}] = supervisor:which_children(Pid), + true = is_pid(Child), + ok. + +supervisor_which_children_h2(Config) -> + doc("h2: The function supervisor:which_children/1 must work."), + {ok, Socket} = ssl:connect("localhost", config(tls_port, Config), + [{active, false}, binary, {alpn_advertised_protocols, [<<"h2">>]}]), + %% Do the handshake. + ok = ssl:send(Socket, ["PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n", cow_http2:settings(#{})]), + {ok, <<_,_,_,4,_/bits>>} = ssl:recv(Socket, 0, 1000), + ok = ssl:send(Socket, cow_http2:settings_ack()), + {ok, << 0:24, 4:8, 1:8, 0:32 >>} = ssl:recv(Socket, 9, 1000), + timer:sleep(100), + Pid = do_get_remote_pid_tls(Socket), + %% No request was sent so there's no children. + [] = supervisor:which_children(Pid), + %% Send a request, observe that a children exists. + {HeadersBlock, _} = cow_hpack:encode([ + {<<":method">>, <<"GET">>}, + {<<":scheme">>, <<"https">>}, + {<<":authority">>, <<"localhost">>}, %% @todo Correct port number. + {<<":path">>, <<"/loop">>} + ]), + ok = ssl:send(Socket, cow_http2:headers(1, fin, HeadersBlock)), + timer:sleep(100), + [{cowboy_http2, Child, worker, [cowboy_http2]}] = supervisor:which_children(Pid), + true = is_pid(Child), + ok. + +supervisor_which_children_ws(Config) -> + doc("ws: The function supervisor:which_children/1 must work. " + "Websocket connections never have children."), + {ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config), + [binary, {active, false}]), + ok = gen_tcp:send(Socket, + "GET /ws HTTP/1.1\r\n" + "Host: localhost\r\n" + "Connection: Upgrade\r\n" + "Origin: http://localhost\r\n" + "Sec-WebSocket-Version: 13\r\n" + "Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n" + "Upgrade: websocket\r\n" + "\r\n"), + {ok, Handshake} = gen_tcp:recv(Socket, 0, 5000), + {ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []), + timer:sleep(100), + Pid = do_get_remote_pid_tcp(Socket), + %% We use gen_server:call directly because the supervisor:which_children + %% function has a timeout of infinity. + %% @todo This can be changed to supervisor:which_children/1 once it is fixed. + [] = gen_server:call(Pid, which_children, 1000), + ok. -- cgit v1.2.3