diff options
| author | Loïc Hoguin <[email protected]> | 2012-05-21 15:17:24 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2012-05-21 15:17:24 +0200 |
| commit | cc6c4e39de74f60747178a3e4bff8fdd65b70777 (patch) | |
| tree | 521b4176a3f0d51d51a6286aebf4265caee97b94 /test/http_SUITE.erl | |
| parent | ca9278bc27b4d5429e32693901945f5c4796f994 (diff) | |
| download | cowboy-cc6c4e39de74f60747178a3e4bff8fdd65b70777.tar.gz cowboy-cc6c4e39de74f60747178a3e4bff8fdd65b70777.tar.bz2 cowboy-cc6c4e39de74f60747178a3e4bff8fdd65b70777.zip | |
Fix a bug preventing 'onresponse' from being called on errors
Diffstat (limited to 'test/http_SUITE.erl')
| -rw-r--r-- | test/http_SUITE.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 029219a..e247138 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -45,6 +45,7 @@ -export([nc_zero/1]). -export([onrequest/1]). -export([onrequest_reply/1]). +-export([onresponse_crash/1]). -export([onresponse_reply/1]). -export([pipeline/1]). -export([rest_keepalive/1]). @@ -116,6 +117,7 @@ groups() -> onrequest_reply ]}, {onresponse, [], [ + onresponse_crash, onresponse_reply ]} ]. @@ -604,6 +606,13 @@ onrequest_hook(Req) -> Req3 end. +onresponse_crash(Config) -> + Client = ?config(client, Config), + {ok, Client2} = cowboy_client:request(<<"GET">>, + build_url("/handler_errors?case=init_before_reply", Config), Client), + {ok, 777, Headers, Client3} = cowboy_client:response(Client2), + {<<"x-hook">>, <<"onresponse">>} = lists:keyfind(<<"x-hook">>, 1, Headers). + onresponse_reply(Config) -> Client = ?config(client, Config), {ok, Client2} = cowboy_client:request(<<"GET">>, |