aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMicael Karlberg <[email protected]>2018-12-21 16:49:18 +0100
committerMicael Karlberg <[email protected]>2018-12-21 16:49:18 +0100
commite8dace61a2ec8c997e3051547f1d401053626088 (patch)
tree852f97c6a57bde17fdf0adcd893aa660bdaf6dcd
parent103a19f7dbfc05487bf5dac1ed254752e79dfe8e (diff)
downloadotp-e8dace61a2ec8c997e3051547f1d401053626088.tar.gz
otp-e8dace61a2ec8c997e3051547f1d401053626088.tar.bz2
otp-e8dace61a2ec8c997e3051547f1d401053626088.zip
[socket-nif|test] Adjusten runtime of test cases of group ttest
It took "forever" to run the ttest test cases, so the runtime of these have been adjusted down to 10 seconds (from 60 seconds). OTP-14831
-rw-r--r--erts/emulator/test/socket_SUITE.erl45
1 files changed, 5 insertions, 40 deletions
diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl
index 3adda52e1e..6d44a245e4 100644
--- a/erts/emulator/test/socket_SUITE.erl
+++ b/erts/emulator/test/socket_SUITE.erl
@@ -444,6 +444,8 @@
-define(TPP_MEDIUM_NUM, 1000).
-define(TPP_LARGE_NUM, 100).
+-define(TTEST_RUNTIME, ?SECS(10)).
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -15923,10 +15925,12 @@ ttest_tcp(TC,
ServerMod, ServerActive,
ClientMod, ClientActive,
MsgID, MaxOutstanding) ->
- Runtime = ?SECS(60),
+ Runtime = ?TTEST_RUNTIME,
tc_try(TC,
fun() ->
if (Domain =/= inet) -> not_yet_implemented(); true -> ok end,
+ %% This may be overkill, depending on the runtime,
+ %% but better safe then sorry...
?TT(Runtime + ?SECS(60)),
InitState = #{domain => Domain,
msg_id => MsgID,
@@ -15942,45 +15946,6 @@ ttest_tcp(TC,
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% This test is run with the following combinations:
-%% (this does not take the message size into consideration)
-%% server(gen, false) - client(gen, false)
-%% server(gen, false) - client(gen, once)
-%% server(gen, false) - client(gen, true)
-%% server(gen, false) - client(sock, false)
-%% server(gen, false) - client(sock, once)
-%% server(gen, false) - client(sock, true)
-%% server(gen, once) - client(gen, false)
-%% server(gen, once) - client(gen, once)
-%% server(gen, once) - client(gen, true)
-%% server(gen, once) - client(sock, false)
-%% server(gen, once) - client(sock, once)
-%% server(gen, once) - client(sock, true)
-%% server(gen, true) - client(gen, false)
-%% server(gen, true) - client(gen, once)
-%% server(gen, true) - client(gen, true)
-%% server(gen, true) - client(sock, false)
-%% server(gen, true) - client(sock, once)
-%% server(gen, true) - client(sock, true)
-%% server(sock, false) - client(gen, false)
-%% server(sock, false) - client(gen, once)
-%% server(sock, false) - client(gen, true)
-%% server(sock, false) - client(sock, false)
-%% server(sock, false) - client(sock, once)
-%% server(sock, false) - client(sock, true)
-%% server(sock, once) - client(gen, false)
-%% server(sock, once) - client(gen, once)
-%% server(sock, once) - client(gen, true)
-%% server(sock, once) - client(sock, false)
-%% server(sock, once) - client(sock, once)
-%% server(sock, once) - client(sock, true)
-%% server(sock, true) - client(gen, false)
-%% server(sock, true) - client(gen, once)
-%% server(sock, true) - client(gen, true)
-%% server(sock, true) - client(sock, false)
-%% server(sock, true) - client(sock, once)
-%% server(sock, true) - client(sock, true)
-
ttest_tcp(InitState) ->
ServerSeq =
[