From d2f13366a9663a7facac7ad6d621d5131e778e28 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Fri, 6 Jan 2012 20:49:31 +0100 Subject: Fix the stream_body_set_resp test It was failing from time to time due to the response being sent as two separate packets. --- test/http_SUITE.erl | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 76234ed..0deda51 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -408,13 +408,10 @@ The document has moved {Packet, 400} = raw_req(Packet, Config). stream_body_set_resp(Config) -> - {port, Port} = lists:keyfind(port, 1, Config), - {ok, Socket} = gen_tcp:connect("localhost", Port, - [binary, {active, false}, {packet, raw}]), - ok = gen_tcp:send(Socket, "GET /stream_body/set_resp HTTP/1.1\r\n" - "Host: localhost\r\nConnection: close\r\n\r\n"), - {ok, Data} = gen_tcp:recv(Socket, 0, 6000), - {_Start, _Length} = binary:match(Data, <<"stream_body_set_resp">>). + {Packet, 200} = raw_resp( + "GET /stream_body/set_resp HTTP/1.1\r\n" + "Host: localhost\r\nConnection: close\r\n\r\n", Config), + {_Start, _Length} = binary:match(Packet, <<"stream_body_set_resp">>). static_mimetypes_function(Config) -> TestURL = build_url("/static_mimetypes_function/test.html", Config), -- cgit v1.2.3