From cc6c4e39de74f60747178a3e4bff8fdd65b70777 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Mon, 21 May 2012 15:17:24 +0200
Subject: Fix a bug preventing 'onresponse' from being called on errors

---
 test/http_SUITE.erl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test/http_SUITE.erl')

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">>,
-- 
cgit v1.2.3