From 2aabc73045daa1c06d73c76ffc442ee7ebe38d14 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Fri, 12 Apr 2013 14:16:59 +0200
Subject: Ensure we can fetch the body in the info/3 function of loop handlers

---
 test/http_handler_loop_recv.erl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 test/http_handler_loop_recv.erl

(limited to 'test/http_handler_loop_recv.erl')

diff --git a/test/http_handler_loop_recv.erl b/test/http_handler_loop_recv.erl
new file mode 100644
index 0000000..4d0a321
--- /dev/null
+++ b/test/http_handler_loop_recv.erl
@@ -0,0 +1,18 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+-module(http_handler_loop_recv).
+-behaviour(cowboy_loop_handler).
+-export([init/3, info/3, terminate/3]).
+
+init({_, http}, Req, _) ->
+	self() ! recv_timeout,
+	{loop, Req, undefined, 500, hibernate}.
+
+info(recv_timeout, Req, State) ->
+	{ok, Body, Req1} = cowboy_req:body(Req),
+	100000 = byte_size(Body),
+	{ok, Req2} = cowboy_req:reply(200, Req1),
+	{ok, Req2, State}.
+
+terminate({normal, shutdown}, _, _) ->
+	ok.
-- 
cgit v1.2.3