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

Test Websocket protocol version 7

Browse source 
A bit late but at least removes a todo.
This commit is contained in:
Loïc Hoguin 2017-02-05 11:27:54 +01:00
parent d8d7838a77
commit f4fddbd0a1
No known key found for this signature in database
GPG key ID: 71366FF21851DF03
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/ws_SUITE.erl
View file

@ -132,7 +132,25 @@ ws0(Config) ->
{ok, {http_response, {1, 1}, 400, _}, _} = erlang:decode_packet(http, Handshake, []), {ok, {http_response, {1, 1}, 400, _}, _} = erlang:decode_packet(http, Handshake, []),
ok. ok.
%% @todo What about version 7? ws7(Config) ->
doc("Websocket version 7 (draft) is supported."),
{ok, Socket} = gen_tcp:connect("localhost", config(port, Config), [binary, {active, false}]),
ok = gen_tcp:send(Socket, [
"GET /ws_echo_timer HTTP/1.1\r\n"
"Host: localhost\r\n"
"Connection: Upgrade\r\n"
"Upgrade: websocket\r\n"
"Sec-WebSocket-Origin: http://localhost\r\n"
"Sec-WebSocket-Version: 7\r\n"
"Sec-WebSocket-Key: dGhlIHNhbXBsZSBub25jZQ==\r\n"
"\r\n"]),
{ok, Handshake} = gen_tcp:recv(Socket, 0, 6000),
{ok, {http_response, {1, 1}, 101, _}, Rest} = erlang:decode_packet(http, Handshake, []),
[Headers, <<>>] = do_decode_headers(erlang:decode_packet(httph, Rest, []), []),
{_, "Upgrade"} = lists:keyfind('Connection', 1, Headers),
{_, "websocket"} = lists:keyfind('Upgrade', 1, Headers),
{_, "s3pPLMBiTxaQ9kYGzzhZRbK+xOo="} = lists:keyfind("sec-websocket-accept", 1, Headers),
do_ws_version(Socket).
ws8(Config) -> ws8(Config) ->
doc("Websocket version 8 (draft) is supported."), doc("Websocket version 8 (draft) is supported."),