Skip to content
Browse files

For whatever reason in R14B1, it seems 50ms isn't enough for the ssl …

…tests.

I've raised the timeout to a seemingly random 100ms instead, and at least on
my computer, the tests pass.
  • Loading branch information...
1 parent 8ac8a46 commit 41b2f0f6eeb63e40a0278677550068dafdaf93f9 @oscarh oscarh committed Mar 13, 2011
Showing with 5 additions and 2 deletions.
  1. +5 −2 test/lhttpc_tests.erl
View
7 test/lhttpc_tests.erl
@@ -663,12 +663,15 @@ ssl_post() ->
ssl_chunked() ->
Port = start(ssl, [fun chunked_response/5, fun chunked_response_t/5]),
URL = ssl_url(Port, "/ssl_chunked"),
- {ok, FirstResponse} = lhttpc:request(URL, get, [], 50),
+ FirstResult = lhttpc:request(URL, get, [], 100),
+ ?assertMatch({ok, _}, FirstResult),
+ {ok, FirstResponse} = FirstResult,
?assertEqual({200, "OK"}, status(FirstResponse)),
?assertEqual(<<?DEFAULT_STRING>>, body(FirstResponse)),
?assertEqual("chunked", lhttpc_lib:header_value("transfer-encoding",
headers(FirstResponse))),
- {ok, SecondResponse} = lhttpc:request(URL, get, [], 50),
+ SecondResult = lhttpc:request(URL, get, [], 100),
+ {ok, SecondResponse} = SecondResult,
?assertEqual({200, "OK"}, status(SecondResponse)),
?assertEqual(<<"Again, great success!">>, body(SecondResponse)),
?assertEqual("ChUnKeD", lhttpc_lib:header_value("transfer-encoding",

0 comments on commit 41b2f0f

Please sign in to comment.
Something went wrong with that request. Please try again.