From ef692b0461b263a2025d289c31d8f491b53311e5 Mon Sep 17 00:00:00 2001 From: Micael Karlberg Date: Mon, 28 Nov 2011 19:45:26 +0100 Subject: Add ssl (and crypto and public_key) ensure tests. That is, for test cases that depend of a running ssl app, added tests that ssl is actually running (actually the key app here is crypto, since the simplest way to test if ssl works is by testing if crypto does...). --- lib/inets/test/httpd_time_test.erl | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib/inets/test/httpd_time_test.erl') diff --git a/lib/inets/test/httpd_time_test.erl b/lib/inets/test/httpd_time_test.erl index f86e2837f4..4e5f332122 100644 --- a/lib/inets/test/httpd_time_test.erl +++ b/lib/inets/test/httpd_time_test.erl @@ -344,10 +344,14 @@ await_poll_response2(SocketType, Socket, ExpStatusCode, Data) -> receive %% SSL receives {ssl, Socket, NewData} -> + d("await_poll_response2 -> " + "received part (~w bytes) of the response", [sz(NewData)]), await_poll_response2(SocketType, Socket, ExpStatusCode, [NewData | Data]); {ssl_closed, Socket} -> %% We are done or we failed + d("await_poll_response2 -> " + "we are done after receiving ~w bytes data", [sz(Data)]), validate(ExpStatusCode, SocketType, Socket, lists:flatten(lists:reverse(Data))); {ssl_error, Socket, Error} -> @@ -355,10 +359,14 @@ await_poll_response2(SocketType, Socket, ExpStatusCode, Data) -> %% TCP receives {tcp, Socket, NewData} -> + d("await_poll_response2 -> " + "received part (~w bytes) of the response", [sz(NewData)]), await_poll_response2(SocketType, Socket, ExpStatusCode, [NewData | Data]); {tcp_closed, Socket} -> %% We are done or we failed + d("await_poll_response2 -> " + "we are done after receiving ~w bytes data", [sz(Data)]), validate(ExpStatusCode, SocketType, Socket, lists:flatten(lists:reverse(Data))); {tcp_error, Socket, Error} -> -- cgit v1.2.3