diff options
| author | Ingela Anderton Andin <[email protected]> | 2015-09-18 09:26:15 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2015-09-18 09:26:15 +0200 |
| commit | 9dd273b13047847d9b268a078aa1aa0ad0f00382 (patch) | |
| tree | 9bece98454c62b3aa568d545e4c964db206cceee /lib/ssl/test/ssl_basic_SUITE.erl | |
| parent | 76dd921ad99aa3ef98424a2f1c4bc8de66e766e2 (diff) | |
| parent | 9d5aa4ee276c142e9800262333103be5da600a53 (diff) | |
| download | otp-9dd273b13047847d9b268a078aa1aa0ad0f00382.tar.gz otp-9dd273b13047847d9b268a078aa1aa0ad0f00382.tar.bz2 otp-9dd273b13047847d9b268a078aa1aa0ad0f00382.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/ssl/test/ssl_basic_SUITE.erl')
| -rw-r--r-- | lib/ssl/test/ssl_basic_SUITE.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index 82c3c4ac74..6f6107de2c 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -3983,13 +3983,16 @@ connect_dist_c(S) -> tls_downgrade(Socket) -> ok = ssl_test_lib:send_recv_result(Socket), - case ssl:close(Socket, {self(), 5000}) of + case ssl:close(Socket, {self(), 10000}) of {ok, TCPSocket} -> inet:setopts(TCPSocket, [{active, true}]), gen_tcp:send(TCPSocket, "Downgraded"), receive {tcp, TCPSocket, <<"Downgraded">>} -> ok; + {tcp_closed, TCPSocket} -> + ct:pal("Peer timed out, downgrade aborted"), + ok; Other -> {error, Other} end; |