Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit 41b2f0f6eeb63e40a0278677550068dafdaf93f9 1 parent 8ac8a46
@oscarh oscarh authored
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",
Please sign in to comment.
Something went wrong with that request. Please try again.