aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/ws_SUITE.erl21
1 files changed, 17 insertions, 4 deletions
diff --git a/test/ws_SUITE.erl b/test/ws_SUITE.erl
index 9cafd3c..79614ad 100644
--- a/test/ws_SUITE.erl
+++ b/test/ws_SUITE.erl
@@ -86,19 +86,32 @@ init_dispatch() ->
%% Tests.
autobahn_fuzzingclient(Config) ->
- Out = os:cmd("cd " ++ config(priv_dir, Config)
- ++ " && wstest -m fuzzingclient -s "
- ++ config(data_dir, Config) ++ "client.json"),
+ Self = self(),
+ spawn_link(fun() -> start_port(Config, Self) end),
+ receive autobahn_exit -> ok end,
Report = config(priv_dir, Config) ++ "reports/servers/index.html",
ct:log("<h2><a href=\"~s\">Full report</a></h2>~n", [Report]),
ct:print("Autobahn Test Suite report: file://~s~n", [Report]),
- ct:log("~s~n", [Out]),
{ok, HTML} = file:read_file(Report),
case length(binary:matches(HTML, <<"case_failed">>)) > 2 of
true -> error(failed);
false -> ok
end.
+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]),
+ receive_infinity(Port, Pid).
+
+receive_infinity(Port, Pid) ->
+ receive
+ {Port, {data, {eol, Line}}} ->
+ io:format(user, "~s~n", [Line]),
+ receive_infinity(Port, Pid);
+ {Port, eof} ->
+ Pid ! autobahn_exit
+ end.
+
%% We do not support hixie76 anymore.
ws0(Config) ->
{port, Port} = lists:keyfind(port, 1, Config),