aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssl/test/ssl_test_lib.erl
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2019-03-29 11:06:43 +0100
committerIngela Anderton Andin <[email protected]>2019-03-29 11:17:22 +0100
commit0b7ad1b69f0fc1db06747bc5150a7a2835e7e2b2 (patch)
tree45559dfd4157572bffee7150ffabb1a037331964 /lib/ssl/test/ssl_test_lib.erl
parent5fcca655d12f8edb32f9642d1977159ab3330006 (diff)
downloadotp-0b7ad1b69f0fc1db06747bc5150a7a2835e7e2b2.tar.gz
otp-0b7ad1b69f0fc1db06747bc5150a7a2835e7e2b2.tar.bz2
otp-0b7ad1b69f0fc1db06747bc5150a7a2835e7e2b2.zip
ssl: Correct test case
Optimization to concatenate small user data packages recived closely after each other has invalidated assumptions in the test case.
Diffstat (limited to 'lib/ssl/test/ssl_test_lib.erl')
-rw-r--r--lib/ssl/test/ssl_test_lib.erl11
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/ssl/test/ssl_test_lib.erl b/lib/ssl/test/ssl_test_lib.erl
index f79f57fbd7..22169035f3 100644
--- a/lib/ssl/test/ssl_test_lib.erl
+++ b/lib/ssl/test/ssl_test_lib.erl
@@ -1533,10 +1533,13 @@ cipher_result(Socket, Result) ->
ct:log("~p:~p~nSuccessfull connect: ~p~n", [?MODULE,?LINE, Result]),
%% Importante to send two packets here
%% to properly test "cipher state" handling
- ssl:send(Socket, "Hello\n"),
- "Hello\n" = active_recv(Socket, length( "Hello\n")),
- ssl:send(Socket, " world\n"),
- " world\n" = active_recv(Socket, length(" world\n")),
+ Hello = "Hello\n",
+ World = " world\n",
+ ssl:send(Socket, Hello),
+ ct:sleep(500),
+ ssl:send(Socket, World),
+ Expected = Hello ++ World,
+ Expected = active_recv(Socket, length(Expected)),
ok.
session_info_result(Socket) ->