umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 12:20:24 +00:00
Code Issues Wiki Activity

Don't run long test suites by default

Browse source 
The examples test suite is only useful once in a while
in order to know whether examples were broken, for example
before issuing a release.

The new ws_autobahn test suite isolates the autobahn test
suite so that it can be ignored by default. It's only
useful to run it when working on the Websocket code or
before issuing a release.
This commit is contained in:
Loïc Hoguin 2018-11-20 13:23:59 +01:00
parent 386df43ea4
commit 7b5da29019
No known key found for this signature in database
GPG key ID: 8A9DF795F6FED764
4 changed files with 96 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

51
test/ws_SUITE.erl
View file

@ -22,29 +22,12 @@
%% ct.
all() ->
[{group, ws}, {group, autobahn}].
[{group, ws}].
groups() ->
BaseTests = ct_helper:all(?MODULE) -- [autobahn_fuzzingclient],
[{autobahn, [], [autobahn_fuzzingclient]}, {ws, [parallel], BaseTests}].
[{ws, [parallel], ct_helper:all(?MODULE)}].
init_per_group(Name = autobahn, Config) ->
%% Some systems have it named pip2.
Out = os:cmd("pip show autobahntestsuite ; pip2 show autobahntestsuite"),
case string:str(Out, "autobahntestsuite") of
0 ->
ct:print("Skipping the autobahn group because the "
"Autobahn Test Suite is not installed.~nTo install it, "
"please follow the instructions on this page:~n~n "
"http://autobahn.ws/testsuite/installation.html"),
{skip, "Autobahn Test Suite not installed."};
_ ->
{ok, _} = cowboy:start_clear(Name, [{port, 33080}], #{
env => #{dispatch => init_dispatch()}
}),
Config
end;
init_per_group(Name = ws, Config) ->
init_per_group(Name, Config) ->
cowboy_test:init_http(Name, #{
env => #{dispatch => init_dispatch()}
}, Config).
@ -90,34 +73,6 @@ init_dispatch() ->
%% Tests.
autobahn_fuzzingclient(Config) ->
doc("Autobahn test suite for the Websocket protocol."),
Self = self(),
spawn_link(fun() -> do_start_port(Config, Self) end),
receive autobahn_exit -> ok end,
ct:log("<h2><a href=\"log_private/reports/servers/index.html\">Full report</a></h2>~n"),
Report = config(priv_dir, Config) ++ "reports/servers/index.html",
ct:print("Autobahn Test Suite report: file://~s~n", [Report]),
{ok, HTML} = file:read_file(Report),
case length(binary:matches(HTML, <<"case_failed">>)) > 2 of
true -> error(failed);
false -> ok
end.
do_start_port(Config, Pid) ->
Port = open_port({spawn, "wstest -m fuzzingclient -s " ++ config(data_dir, Config) ++ "client.json"},
[{line, 10000}, {cd, config(priv_dir, Config)}, binary, eof]),
do_receive_infinity(Port, Pid).
do_receive_infinity(Port, Pid) ->
receive
{Port, {data, {eol, Line}}} ->
io:format(user, "~s~n", [Line]),
do_receive_infinity(Port, Pid);
{Port, eof} ->
Pid ! autobahn_exit
end.
unlimited_connections(Config) ->
doc("Websocket connections are not limited. The connections "
"are removed from the count after the handshake completes."),