diff options
| author | Micael Karlberg <[email protected]> | 2011-11-28 19:45:26 +0100 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2011-11-28 19:45:26 +0100 |
| commit | ef692b0461b263a2025d289c31d8f491b53311e5 (patch) | |
| tree | eac37df59766a5810027999532c443b21ccb032c /lib/inets/test/httpd_time_test.erl | |
| parent | b1b51d10ab3fe405f773d597c29a42040d53bb17 (diff) | |
| download | otp-ef692b0461b263a2025d289c31d8f491b53311e5.tar.gz otp-ef692b0461b263a2025d289c31d8f491b53311e5.tar.bz2 otp-ef692b0461b263a2025d289c31d8f491b53311e5.zip | |
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...).
Diffstat (limited to 'lib/inets/test/httpd_time_test.erl')
| -rw-r--r-- | lib/inets/test/httpd_time_test.erl | 8 |
1 files changed, 8 insertions, 0 deletions
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} -> |