diff options
Diffstat (limited to 'lib/kernel/test/socket_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/socket_SUITE.erl | 5336 |
1 files changed, 1352 insertions, 3984 deletions
diff --git a/lib/kernel/test/socket_SUITE.erl b/lib/kernel/test/socket_SUITE.erl index 03ee74ef29..673c905ddf 100644 --- a/lib/kernel/test/socket_SUITE.erl +++ b/lib/kernel/test/socket_SUITE.erl @@ -24,9 +24,13 @@ %% Variable that controls which 'groups' are to run (with default values) %% %% ESOCK_TEST_API: include +%% ESOCK_TEST_REG: include +%% ESOCK_TEST_MON: include +%% ESOCK_TEST_IOCTL: include %% ESOCK_TEST_SOCK_CLOSE: include %% ESOCK_TEST_TRAFFIC: include -%% ESOCK_TEST_TTEST: exclude +%% ESOCK_TEST_TICKETS: include +%% ESOCK_TEST_TTEST: include %% %% Variable that controls "verbosity" of the test case(s): %% @@ -37,13 +41,23 @@ %% the actual time it takes for the test case to complete %% will be longer; setup, completion, ...) %% -%% ESOCK_TEST_TTEST_RUNTIME: 10 seconds +%% ESOCK_TEST_TTEST_RUNTIME: 1 second %% Format of values: <integer>[<unit>] %% Where unit is: ms | s | m %% ms - milli seconds %% s - seconds (default) %% m - minutes %% +%% The ttest takes a long time to run, even when the runtime is small, +%% because there are such a large number of test cases. +%% So, by default only the 'small' test cases are included in a test run. +%% The following environment variables control which are included and +%% excluded. +%% +%% ESOCK_TEST_TTEST_SMALL: included +%% ESOCK_TEST_TTEST_MEDIUM: excluded +%% ESOCK_TEST_TTEST_LARGE: excluded +%% %% Run the entire test suite: %% ts:run(emulator, socket_SUITE, [batch]). @@ -197,7 +211,7 @@ api_opt_sock_sndtimeo_udp4/1, api_opt_sock_timestamp_udp4/1, api_opt_sock_timestamp_tcp4/1, - api_opt_ip_add_drop_membership/1, + api_opt_ip_add_drop_membership/0, api_opt_ip_add_drop_membership/1, api_opt_ip_pktinfo_udp4/1, api_opt_ip_recvopts_udp4/1, api_opt_ip_recvorigdstaddr_udp4/1, @@ -477,10 +491,10 @@ ttest_sgent_cgent_small_tcp4/1, ttest_sgent_cgent_small_tcp6/1, - ttest_sgent_cgent_medium_tcp4/1, - ttest_sgent_cgent_medium_tcp6/1, - ttest_sgent_cgent_large_tcp4/1, - ttest_sgent_cgent_large_tcp6/1, + ttest_sgent_cgent_medium_tcp4/0, ttest_sgent_cgent_medium_tcp4/1, + ttest_sgent_cgent_medium_tcp6/0, ttest_sgent_cgent_medium_tcp6/1, + ttest_sgent_cgent_large_tcp4/0, ttest_sgent_cgent_large_tcp4/1, + ttest_sgent_cgent_large_tcp6/0, ttest_sgent_cgent_large_tcp6/1, %% Server: transport = gen_tcp, active = true %% Client: transport = socket(tcp) @@ -673,7 +687,9 @@ %% Tickets otp16359_maccept_tcp4/1, otp16359_maccept_tcp6/1, - otp16359_maccept_tcpL/1 + otp16359_maccept_tcpL/1, + otp18240_accept_mon_leak_tcp4/1, + otp18240_accept_mon_leak_tcp6/1 ]). @@ -684,6 +700,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -define(LIB, socket_test_lib). +-define(KLIB, kernel_test_lib). -define(TTEST_LIB, socket_test_ttest_lib). -define(LOGGER, socket_test_logger). @@ -712,9 +729,29 @@ -define(TPP_SMALL_NUM, 5000). -define(TPP_MEDIUM_NUM, 500). -define(TPP_LARGE_NUM, 50). --define(TPP_NUM(Config, Base), (Base) div lookup(esock_factor, 1, Config)). +-define(TPP_NUM(Config, Base), (Base) div lookup(kernel_factor, 1, Config)). + +-define(TTEST_RUNTIME, ?SECS(1)). +-define(TTEST_MIN_FACTOR, 3). +-define(TTEST_DEFAULT_SMALL_MAX_OUTSTANDING, 50). +-define(TTEST_DEFAULT_MEDIUM_MAX_OUTSTANDING, + ?TTEST_MK_DEFAULT_MAX_OUTSTANDING( + ?TTEST_DEFAULT_SMALL_MAX_OUTSTANDING)). +-define(TTEST_DEFAULT_LARGE_MAX_OUTSTANDING, + ?TTEST_MK_DEFAULT_MAX_OUTSTANDING( + ?TTEST_DEFAULT_MEDIUM_MAX_OUTSTANDING)). --define(TTEST_RUNTIME, ?SECS(10)). +-define(TTEST_MK_DEFAULT_MAX_OUTSTANDING(__X__), + if ((__X__) >= 5) -> + (__X__) div 5; + true -> + 1 + end). + +-define(START_NODE(NamePre), + ?START_NODE(NamePre, 5000)). +-define(START_NODE(NamePre, Timeout), + start_node(?CT_PEER_NAME(NamePre), Timeout)). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -725,12 +762,12 @@ suite() -> all() -> Groups = [{api, "ESOCK_TEST_API", include}, - {reg, undefined, include}, - {monitor, undefined, include}, - {ioctl, undefined, include}, + {reg, "ESOCK_TEST_REG", include}, + {monitor, "ESOCK_TEST_MON", include}, + {ioctl, "ESOCK_TEST_IOCTL", include}, {socket_close, "ESOCK_TEST_SOCK_CLOSE", include}, {traffic, "ESOCK_TEST_TRAFFIC", include}, - {ttest, "ESOCK_TEST_TTEST", exclude}, + {ttest, "ESOCK_TEST_TTEST", include}, {tickets, "ESOCK_TEST_TICKETS", include}], [use_group(Group, Env, Default) || {Group, Env, Default} <- Groups]. @@ -856,7 +893,8 @@ groups() -> %% Ticket groups {tickets, [], tickets_cases()}, - {otp16359, [], otp16359_cases()} + {otp16359, [], otp16359_cases()}, + {otp18240, [], otp18240_cases()} ]. api_cases() -> @@ -1344,7 +1382,77 @@ traffic_pp_sendmsg_recvmsg_cases() -> traffic_ping_pong_medium_sendmsg_and_recvmsg_udp6, traffic_ping_pong_medium_sendmsg_and_recvmsg_udpL ]. - + +%% Condition for running the ttest cases. +%% No point in running these cases unless the machine is +%% reasonably fast. +ttest_condition(Config) -> + case ?config(kernel_factor, Config) of + Factor when is_integer(Factor) andalso (Factor =< ?TTEST_MIN_FACTOR) -> + ok; + Factor when is_integer(Factor) -> + {skip, ?F("Too slow for TTest (~w)", [Factor])}; + _ -> + {skip, "Too slow for TTest (undef)"} + end. + +ttest_small_max_outstanding(Config) -> + EnvKey = "ESOCK_TEST_TTEST_SMALL_MAX_OUTSTANDING", + Default = ?TTEST_DEFAULT_SMALL_MAX_OUTSTANDING, + DefaultMaxOutstanding = ttest_max_outstanding(Config, EnvKey, Default), + ttest_max_outstanding(Config, DefaultMaxOutstanding). + +ttest_medium_max_outstanding(Config) -> + SmallMaxOutstanding = ttest_small_max_outstanding(Config), + EnvKey = "ESOCK_TEST_TTEST_MEDIUM_MAX_OUTSTANDING", + Default = ?TTEST_MK_DEFAULT_MAX_OUTSTANDING( + SmallMaxOutstanding), + DefaultMaxOutstanding = ttest_max_outstanding(Config, EnvKey, Default), + ttest_max_outstanding(Config, DefaultMaxOutstanding). + +ttest_large_max_outstanding(Config) -> + MediumMaxOutstanding = ttest_medium_max_outstanding(Config), + EnvKey = "ESOCK_TEST_TTEST_LARGE_MAX_OUTSTANDING", + Default = ?TTEST_MK_DEFAULT_MAX_OUTSTANDING( + MediumMaxOutstanding), + DefaultMaxOutstanding = ttest_max_outstanding(Config, EnvKey, Default), + ttest_max_outstanding(Config, DefaultMaxOutstanding). + +ttest_max_outstanding(Config, Default) + when is_integer(Default) andalso (Default > 1) -> + %% Note that we should not even get here if factor > 4 + case ?config(kernel_factor, Config) of + 1 -> Default; + 2 when (Default >= 2) -> Default div 2; + 3 when (Default >= 4) -> Default div 4; + _ when (Default >= 8) -> Default div 8; + _ -> 1 + end; +ttest_max_outstanding(_, _) -> + 1. + +ttest_max_outstanding(Config, EnvKey, Default) -> + Key = list_to_atom(string:to_lower(EnvKey)), + case lists:keysearch(Key, 1, Config) of + {value, {Key, MO}} when is_integer(MO) andalso (MO > 0) -> + MO; + _ -> + case os:getenv(EnvKey) of + false -> + Default; + Val -> + try list_to_integer(Val) of + MO when (MO > 0) -> + MO; + _ -> + 1 + catch + _:_:_ -> + Default + end + end + end. + ttest_cases() -> [ %% Server: transport = gen_tcp, active = false @@ -1386,45 +1494,75 @@ ttest_sgenf_cgen_cases() -> %% Server: transport = gen_tcp, active = false %% Client: transport = gen_tcp, active = false -ttest_sgenf_cgenf_cases() -> - [ - ttest_sgenf_cgenf_small_tcp4, - ttest_sgenf_cgenf_small_tcp6, - ttest_sgenf_cgenf_medium_tcp4, - ttest_sgenf_cgenf_medium_tcp6, +ttest_conditional_cases(Env, Default, Cases) -> + case os:getenv(Env) of + false -> + Default; + Val -> + case list_to_atom(string:to_lower(Val)) of + Use when (Use =:= include) orelse + (Use =:= enable) orelse + (Use =:= true) -> + Cases; + _ -> % Assumed to be explicitly *disabled* + [] + end + end. + +ttest_small_conditional_cases(Cases) -> + ttest_conditional_cases("ESOCK_TEST_TTEST_SMALL", Cases, Cases). - ttest_sgenf_cgenf_large_tcp4, - ttest_sgenf_cgenf_large_tcp6 - ]. +ttest_medium_conditional_cases(Cases) -> + ttest_conditional_cases("ESOCK_TEST_TTEST_MEDIUM", [], Cases). + +ttest_large_conditional_cases(Cases) -> + ttest_conditional_cases("ESOCK_TEST_TTEST_LARGE", [], Cases). + +ttest_select_conditional_cases(Small, Medium, Large) -> + ttest_small_conditional_cases(Small) ++ + ttest_medium_conditional_cases(Medium) ++ + ttest_large_conditional_cases(Large). + +ttest_sgenf_cgenf_cases() -> + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_cgenf_small_tcp4, + ttest_sgenf_cgenf_small_tcp6], + %% Medium + [ttest_sgenf_cgenf_medium_tcp4, + ttest_sgenf_cgenf_medium_tcp6], + %% Large + [ttest_sgenf_cgenf_large_tcp4, + ttest_sgenf_cgenf_large_tcp6]). %% Server: transport = gen_tcp, active = false %% Client: transport = gen_tcp, active = once ttest_sgenf_cgeno_cases() -> - [ - ttest_sgenf_cgeno_small_tcp4, - ttest_sgenf_cgeno_small_tcp6, - - ttest_sgenf_cgeno_medium_tcp4, - ttest_sgenf_cgeno_medium_tcp6, - - ttest_sgenf_cgeno_large_tcp4, - ttest_sgenf_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_cgeno_small_tcp4, + ttest_sgenf_cgeno_small_tcp6], + %% Medium + [ttest_sgenf_cgeno_medium_tcp4, + ttest_sgenf_cgeno_medium_tcp6], + %% Large + [ttest_sgenf_cgeno_large_tcp4, + ttest_sgenf_cgeno_large_tcp6]). %% Server: transport = gen_tcp, active = false %% Client: transport = gen_tcp, active = true ttest_sgenf_cgent_cases() -> - [ - ttest_sgenf_cgent_small_tcp4, - ttest_sgenf_cgent_small_tcp6, - - ttest_sgenf_cgent_medium_tcp4, - ttest_sgenf_cgent_medium_tcp6, - - ttest_sgenf_cgent_large_tcp4, - ttest_sgenf_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_cgent_small_tcp4, + ttest_sgenf_cgent_small_tcp6], + %% Medium + [ttest_sgenf_cgent_medium_tcp4, + ttest_sgenf_cgent_medium_tcp6], + %% Large + [ttest_sgenf_cgent_large_tcp4, + ttest_sgenf_cgent_large_tcp6]). %% Server: transport = gen_tcp, active = false %% Client: transport = socket(tcp) @@ -1436,40 +1574,40 @@ ttest_sgenf_csock_cases() -> ]. ttest_sgenf_csockf_cases() -> - [ - ttest_sgenf_csockf_small_tcp4, - ttest_sgenf_csockf_small_tcp6, - - ttest_sgenf_csockf_medium_tcp4, - ttest_sgenf_csockf_medium_tcp6, - - ttest_sgenf_csockf_large_tcp4, - ttest_sgenf_csockf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_csockf_small_tcp4, + ttest_sgenf_csockf_small_tcp6], + %% Medium + [ttest_sgenf_csockf_medium_tcp4, + ttest_sgenf_csockf_medium_tcp6], + %% Large + [ttest_sgenf_csockf_large_tcp4, + ttest_sgenf_csockf_large_tcp6]). ttest_sgenf_csocko_cases() -> - [ - ttest_sgenf_csocko_small_tcp4, - ttest_sgenf_csocko_small_tcp6, - - ttest_sgenf_csocko_medium_tcp4, - ttest_sgenf_csocko_medium_tcp6, - - ttest_sgenf_csocko_large_tcp4, - ttest_sgenf_csocko_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_csocko_small_tcp4, + ttest_sgenf_csocko_small_tcp6], + %% Medium + [ttest_sgenf_csocko_medium_tcp4, + ttest_sgenf_csocko_medium_tcp6], + %% Large + [ttest_sgenf_csocko_large_tcp4, + ttest_sgenf_csocko_large_tcp6]). ttest_sgenf_csockt_cases() -> - [ - ttest_sgenf_csockt_small_tcp4, - ttest_sgenf_csockt_small_tcp6, - - ttest_sgenf_csockt_medium_tcp4, - ttest_sgenf_csockt_medium_tcp6, - - ttest_sgenf_csockt_large_tcp4, - ttest_sgenf_csockt_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgenf_csockt_small_tcp4, + ttest_sgenf_csockt_small_tcp6], + %% Medium + [ttest_sgenf_csockt_medium_tcp4, + ttest_sgenf_csockt_medium_tcp6], + %% Large + [ttest_sgenf_csockt_large_tcp4, + ttest_sgenf_csockt_large_tcp6]). %% Server: transport = gen_tcp, active = once ttest_sgeno_cases() -> @@ -1490,44 +1628,44 @@ ttest_sgeno_cgen_cases() -> %% Server: transport = gen_tcp, active = once %% Client: transport = gen_tcp, active = false ttest_sgeno_cgenf_cases() -> - [ - ttest_sgeno_cgenf_small_tcp4, - ttest_sgeno_cgenf_small_tcp6, - - ttest_sgeno_cgenf_medium_tcp4, - ttest_sgeno_cgenf_medium_tcp6, - - ttest_sgeno_cgenf_large_tcp4, - ttest_sgeno_cgenf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_cgenf_small_tcp4, + ttest_sgeno_cgenf_small_tcp6], + %% Medium + [ttest_sgeno_cgenf_medium_tcp4, + ttest_sgeno_cgenf_medium_tcp6], + %% Large + [ttest_sgeno_cgenf_large_tcp4, + ttest_sgeno_cgenf_large_tcp6]). %% Server: transport = gen_tcp, active = once %% Client: transport = gen_tcp, active = once ttest_sgeno_cgeno_cases() -> - [ - ttest_sgeno_cgeno_small_tcp4, - ttest_sgeno_cgeno_small_tcp6, - - ttest_sgeno_cgeno_medium_tcp4, - ttest_sgeno_cgeno_medium_tcp6, - - ttest_sgeno_cgeno_large_tcp4, - ttest_sgeno_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_cgeno_small_tcp4, + ttest_sgeno_cgeno_small_tcp6], + %% Medium + [ttest_sgeno_cgeno_medium_tcp4, + ttest_sgeno_cgeno_medium_tcp6], + %% Large + [ttest_sgeno_cgeno_large_tcp4, + ttest_sgeno_cgeno_large_tcp6]). %% Server: transport = gen_tcp, active = once %% Client: transport = gen_tcp, active = true ttest_sgeno_cgent_cases() -> - [ - ttest_sgeno_cgent_small_tcp4, - ttest_sgeno_cgent_small_tcp6, - - ttest_sgeno_cgent_medium_tcp4, - ttest_sgeno_cgent_medium_tcp6, - - ttest_sgeno_cgent_large_tcp4, - ttest_sgeno_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_cgent_small_tcp4, + ttest_sgeno_cgent_small_tcp6], + %% Medium + [ttest_sgeno_cgent_medium_tcp4, + ttest_sgeno_cgent_medium_tcp6], + %% Large + [ttest_sgeno_cgent_large_tcp4, + ttest_sgeno_cgent_large_tcp6]). %% Server: transport = gen_tcp, active = once %% Client: transport = socket(tcp) @@ -1539,40 +1677,40 @@ ttest_sgeno_csock_cases() -> ]. ttest_sgeno_csockf_cases() -> - [ - ttest_sgeno_csockf_small_tcp4, - ttest_sgeno_csockf_small_tcp6, - - ttest_sgeno_csockf_medium_tcp4, - ttest_sgeno_csockf_medium_tcp6, - - ttest_sgeno_csockf_large_tcp4, - ttest_sgeno_csockf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_csockf_small_tcp4, + ttest_sgeno_csockf_small_tcp6], + %% Medium + [ttest_sgeno_csockf_medium_tcp4, + ttest_sgeno_csockf_medium_tcp6], + %% Large + [ttest_sgeno_csockf_large_tcp4, + ttest_sgeno_csockf_large_tcp6]). ttest_sgeno_csocko_cases() -> - [ - ttest_sgeno_csocko_small_tcp4, - ttest_sgeno_csocko_small_tcp6, - - ttest_sgeno_csocko_medium_tcp4, - ttest_sgeno_csocko_medium_tcp6, - - ttest_sgeno_csocko_large_tcp4, - ttest_sgeno_csocko_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_csocko_small_tcp4, + ttest_sgeno_csocko_small_tcp6], + %% Medium + [ttest_sgeno_csocko_medium_tcp4, + ttest_sgeno_csocko_medium_tcp6], + %% Large + [ttest_sgeno_csocko_large_tcp4, + ttest_sgeno_csocko_large_tcp6]). ttest_sgeno_csockt_cases() -> - [ - ttest_sgeno_csockt_small_tcp4, - ttest_sgeno_csockt_small_tcp6, - - ttest_sgeno_csockt_medium_tcp4, - ttest_sgeno_csockt_medium_tcp6, - - ttest_sgeno_csockt_large_tcp4, - ttest_sgeno_csockt_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgeno_csockt_small_tcp4, + ttest_sgeno_csockt_small_tcp6], + %% Medium + [ttest_sgeno_csockt_medium_tcp4, + ttest_sgeno_csockt_medium_tcp6], + %% Large + [ttest_sgeno_csockt_large_tcp4, + ttest_sgeno_csockt_large_tcp6]). %% Server: transport = gen_tcp, active = true ttest_sgent_cases() -> @@ -1593,44 +1731,44 @@ ttest_sgent_cgen_cases() -> %% Server: transport = gen_tcp, active = true %% Client: transport = gen_tcp, active = false ttest_sgent_cgenf_cases() -> - [ - ttest_sgent_cgenf_small_tcp4, - ttest_sgent_cgenf_small_tcp6, - - ttest_sgent_cgenf_medium_tcp4, - ttest_sgent_cgenf_medium_tcp6, - - ttest_sgent_cgenf_large_tcp4, - ttest_sgent_cgenf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_cgenf_small_tcp4, + ttest_sgent_cgenf_small_tcp6], + %% Medium + [ttest_sgent_cgenf_medium_tcp4, + ttest_sgent_cgenf_medium_tcp6], + %% Large + [ttest_sgent_cgenf_large_tcp4, + ttest_sgent_cgenf_large_tcp6]). %% Server: transport = gen_tcp, active = true %% Client: transport = gen_tcp, active = once ttest_sgent_cgeno_cases() -> - [ - ttest_sgent_cgeno_small_tcp4, - ttest_sgent_cgeno_small_tcp6, - - ttest_sgent_cgeno_medium_tcp4, - ttest_sgent_cgeno_medium_tcp6, - - ttest_sgent_cgeno_large_tcp4, - ttest_sgent_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_cgeno_small_tcp4, + ttest_sgent_cgeno_small_tcp6], + %% Medium + [ttest_sgent_cgeno_medium_tcp4, + ttest_sgent_cgeno_medium_tcp6], + %% Large + [ttest_sgent_cgeno_large_tcp4, + ttest_sgent_cgeno_large_tcp6]). %% Server: transport = gen_tcp, active = true %% Client: transport = gen_tcp, active = true ttest_sgent_cgent_cases() -> - [ - ttest_sgent_cgent_small_tcp4, - ttest_sgent_cgent_small_tcp6, - - ttest_sgent_cgent_medium_tcp4, - ttest_sgent_cgent_medium_tcp6, - - ttest_sgent_cgent_large_tcp4, - ttest_sgent_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_cgent_small_tcp4, + ttest_sgent_cgent_small_tcp6], + %% Medium + [ttest_sgent_cgent_medium_tcp4, + ttest_sgent_cgent_medium_tcp6], + %% Large + [ttest_sgent_cgent_large_tcp4, + ttest_sgent_cgent_large_tcp6]). %% Server: transport = gen_tcp, active = true %% Client: transport = socket(tcp) @@ -1642,40 +1780,40 @@ ttest_sgent_csock_cases() -> ]. ttest_sgent_csockf_cases() -> - [ - ttest_sgent_csockf_small_tcp4, - ttest_sgent_csockf_small_tcp6, - - ttest_sgent_csockf_medium_tcp4, - ttest_sgent_csockf_medium_tcp6, - - ttest_sgent_csockf_large_tcp4, - ttest_sgent_csockf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_csockf_small_tcp4, + ttest_sgent_csockf_small_tcp6], + %% Medium + [ttest_sgent_csockf_medium_tcp4, + ttest_sgent_csockf_medium_tcp6], + %% Large + [ttest_sgent_csockf_large_tcp4, + ttest_sgent_csockf_large_tcp6]). ttest_sgent_csocko_cases() -> - [ - ttest_sgent_csocko_small_tcp4, - ttest_sgent_csocko_small_tcp6, - - ttest_sgent_csocko_medium_tcp4, - ttest_sgent_csocko_medium_tcp6, - - ttest_sgent_csocko_large_tcp4, - ttest_sgent_csocko_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_csocko_small_tcp4, + ttest_sgent_csocko_small_tcp6], + %% Medium + [ttest_sgent_csocko_medium_tcp4, + ttest_sgent_csocko_medium_tcp6], + %% Large + [ttest_sgent_csocko_large_tcp4, + ttest_sgent_csocko_large_tcp6]). ttest_sgent_csockt_cases() -> - [ - ttest_sgent_csockt_small_tcp4, - ttest_sgent_csockt_small_tcp6, - - ttest_sgent_csockt_medium_tcp4, - ttest_sgent_csockt_medium_tcp6, - - ttest_sgent_csockt_large_tcp4, - ttest_sgent_csockt_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_sgent_csockt_small_tcp4, + ttest_sgent_csockt_small_tcp6], + %% Medium + [ttest_sgent_csockt_medium_tcp4, + ttest_sgent_csockt_medium_tcp6], + %% Large + [ttest_sgent_csockt_large_tcp4, + ttest_sgent_csockt_large_tcp6]). %% Server: transport = socket(tcp), active = false ttest_ssockf_cases() -> @@ -1696,44 +1834,44 @@ ttest_ssockf_cgen_cases() -> %% Server: transport = socket(tcp), active = false %% Client: transport = gen_tcp, active = false ttest_ssockf_cgenf_cases() -> - [ - ttest_ssockf_cgenf_small_tcp4, - ttest_ssockf_cgenf_small_tcp6, - - ttest_ssockf_cgenf_medium_tcp4, - ttest_ssockf_cgenf_medium_tcp6, - - ttest_ssockf_cgenf_large_tcp4, - ttest_ssockf_cgenf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_cgenf_small_tcp4, + ttest_ssockf_cgenf_small_tcp6], + %% Medium + [ttest_ssockf_cgenf_medium_tcp4, + ttest_ssockf_cgenf_medium_tcp6], + %% Large + [ttest_ssockf_cgenf_large_tcp4, + ttest_ssockf_cgenf_large_tcp6]). %% Server: transport = socket(tcp), active = false %% Client: transport = gen_tcp, active = once ttest_ssockf_cgeno_cases() -> - [ - ttest_ssockf_cgeno_small_tcp4, - ttest_ssockf_cgeno_small_tcp6, - - ttest_ssockf_cgeno_medium_tcp4, - ttest_ssockf_cgeno_medium_tcp6, - - ttest_ssockf_cgeno_large_tcp4, - ttest_ssockf_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_cgeno_small_tcp4, + ttest_ssockf_cgeno_small_tcp6], + %% Medium + [ttest_ssockf_cgeno_medium_tcp4, + ttest_ssockf_cgeno_medium_tcp6], + %% Large + [ttest_ssockf_cgeno_large_tcp4, + ttest_ssockf_cgeno_large_tcp6]). %% Server: transport = socket(tcp), active = false %% Client: transport = gen_tcp, active = true ttest_ssockf_cgent_cases() -> - [ - ttest_ssockf_cgent_small_tcp4, - ttest_ssockf_cgent_small_tcp6, - - ttest_ssockf_cgent_medium_tcp4, - ttest_ssockf_cgent_medium_tcp6, - - ttest_ssockf_cgent_large_tcp4, - ttest_ssockf_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_cgent_small_tcp4, + ttest_ssockf_cgent_small_tcp6], + %% Medium + [ttest_ssockf_cgent_medium_tcp4, + ttest_ssockf_cgent_medium_tcp6], + %% Large + [ttest_ssockf_cgent_large_tcp4, + ttest_ssockf_cgent_large_tcp6]). %% Server: transport = socket(tcp), active = false %% Client: transport = socket(tcp) @@ -1747,53 +1885,53 @@ ttest_ssockf_csock_cases() -> %% Server: transport = socket(tcp), active = false %% Client: transport = socket(tcp), active = false ttest_ssockf_csockf_cases() -> - [ - ttest_ssockf_csockf_small_tcp4, - ttest_ssockf_csockf_small_tcp6, - ttest_ssockf_csockf_small_tcpL, - - ttest_ssockf_csockf_medium_tcp4, - ttest_ssockf_csockf_medium_tcp6, - ttest_ssockf_csockf_medium_tcpL, - - ttest_ssockf_csockf_large_tcp4, - ttest_ssockf_csockf_large_tcp6, - ttest_ssockf_csockf_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_csockf_small_tcp4, + ttest_ssockf_csockf_small_tcp6, + ttest_ssockf_csockf_small_tcpL], + %% Medium + [ttest_ssockf_csockf_medium_tcp4, + ttest_ssockf_csockf_medium_tcp6, + ttest_ssockf_csockf_medium_tcpL], + %% Large + [ttest_ssockf_csockf_large_tcp4, + ttest_ssockf_csockf_large_tcp6, + ttest_ssockf_csockf_large_tcpL]). %% Server: transport = socket(tcp), active = false %% Client: transport = socket(tcp), active = once ttest_ssockf_csocko_cases() -> - [ - ttest_ssockf_csocko_small_tcp4, - ttest_ssockf_csocko_small_tcp6, - ttest_ssockf_csocko_small_tcpL, - - ttest_ssockf_csocko_medium_tcp4, - ttest_ssockf_csocko_medium_tcp6, - ttest_ssockf_csocko_medium_tcpL, - - ttest_ssockf_csocko_large_tcp4, - ttest_ssockf_csocko_large_tcp6, - ttest_ssockf_csocko_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_csocko_small_tcp4, + ttest_ssockf_csocko_small_tcp6, + ttest_ssockf_csocko_small_tcpL], + %% Medium + [ttest_ssockf_csocko_medium_tcp4, + ttest_ssockf_csocko_medium_tcp6, + ttest_ssockf_csocko_medium_tcpL], + %% Large + [ttest_ssockf_csocko_large_tcp4, + ttest_ssockf_csocko_large_tcp6, + ttest_ssockf_csocko_large_tcpL]). %% Server: transport = socket(tcp), active = false %% Client: transport = socket(tcp), active = true ttest_ssockf_csockt_cases() -> - [ - ttest_ssockf_csockt_small_tcp4, - ttest_ssockf_csockt_small_tcp6, - ttest_ssockf_csockt_small_tcpL, - - ttest_ssockf_csockt_medium_tcp4, - ttest_ssockf_csockt_medium_tcp6, - ttest_ssockf_csockt_medium_tcpL, - - ttest_ssockf_csockt_large_tcp4, - ttest_ssockf_csockt_large_tcp6, - ttest_ssockf_csockt_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockf_csockt_small_tcp4, + ttest_ssockf_csockt_small_tcp6, + ttest_ssockf_csockt_small_tcpL], + %% Medium + [ttest_ssockf_csockt_medium_tcp4, + ttest_ssockf_csockt_medium_tcp6, + ttest_ssockf_csockt_medium_tcpL], + %% Large + [ttest_ssockf_csockt_large_tcp4, + ttest_ssockf_csockt_large_tcp6, + ttest_ssockf_csockt_large_tcpL]). %% Server: transport = socket(tcp), active = once ttest_ssocko_cases() -> @@ -1814,44 +1952,44 @@ ttest_ssocko_cgen_cases() -> %% Server: transport = socket(tcp), active = once %% Client: transport = gen_tcp, active = false ttest_ssocko_cgenf_cases() -> - [ - ttest_ssocko_cgenf_small_tcp4, - ttest_ssocko_cgenf_small_tcp6, - - ttest_ssocko_cgenf_medium_tcp4, - ttest_ssocko_cgenf_medium_tcp6, - - ttest_ssocko_cgenf_large_tcp4, - ttest_ssocko_cgenf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_cgenf_small_tcp4, + ttest_ssocko_cgenf_small_tcp6], + %% Medium + [ttest_ssocko_cgenf_medium_tcp4, + ttest_ssocko_cgenf_medium_tcp6], + %% Large + [ttest_ssocko_cgenf_large_tcp4, + ttest_ssocko_cgenf_large_tcp6]). %% Server: transport = socket(tcp), active = once %% Client: transport = gen_tcp, active = once ttest_ssocko_cgeno_cases() -> - [ - ttest_ssocko_cgeno_small_tcp4, - ttest_ssocko_cgeno_small_tcp6, - - ttest_ssocko_cgeno_medium_tcp4, - ttest_ssocko_cgeno_medium_tcp6, - - ttest_ssocko_cgeno_large_tcp4, - ttest_ssocko_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_cgeno_small_tcp4, + ttest_ssocko_cgeno_small_tcp6], + %% Medium + [ttest_ssocko_cgeno_medium_tcp4, + ttest_ssocko_cgeno_medium_tcp6], + %% Large + [ttest_ssocko_cgeno_large_tcp4, + ttest_ssocko_cgeno_large_tcp6]). %% Server: transport = socket(tcp), active = once %% Client: transport = gen_tcp, active = true ttest_ssocko_cgent_cases() -> - [ - ttest_ssocko_cgent_small_tcp4, - ttest_ssocko_cgent_small_tcp6, - - ttest_ssocko_cgent_medium_tcp4, - ttest_ssocko_cgent_medium_tcp6, - - ttest_ssocko_cgent_large_tcp4, - ttest_ssocko_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_cgent_small_tcp4, + ttest_ssocko_cgent_small_tcp6], + %% Medium + [ttest_ssocko_cgent_medium_tcp4, + ttest_ssocko_cgent_medium_tcp6], + %% Large + [ttest_ssocko_cgent_large_tcp4, + ttest_ssocko_cgent_large_tcp6]). %% Server: transport = socket(tcp), active = once %% Client: transport = socket(tcp) @@ -1865,53 +2003,53 @@ ttest_ssocko_csock_cases() -> %% Server: transport = socket(tcp), active = once %% Client: transport = socket(tcp), active = false ttest_ssocko_csockf_cases() -> - [ - ttest_ssocko_csockf_small_tcp4, - ttest_ssocko_csockf_small_tcp6, - ttest_ssocko_csockf_small_tcpL, - - ttest_ssocko_csockf_medium_tcp4, - ttest_ssocko_csockf_medium_tcp6, - ttest_ssocko_csockf_medium_tcpL, - - ttest_ssocko_csockf_large_tcp4, - ttest_ssocko_csockf_large_tcp6, - ttest_ssocko_csockf_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_csockf_small_tcp4, + ttest_ssocko_csockf_small_tcp6, + ttest_ssocko_csockf_small_tcpL], + %% Medium + [ttest_ssocko_csockf_medium_tcp4, + ttest_ssocko_csockf_medium_tcp6, + ttest_ssocko_csockf_medium_tcpL], + %% Large + [ttest_ssocko_csockf_large_tcp4, + ttest_ssocko_csockf_large_tcp6, + ttest_ssocko_csockf_large_tcpL]). %% Server: transport = socket(tcp), active = once %% Client: transport = socket(tcp), active = once ttest_ssocko_csocko_cases() -> - [ - ttest_ssocko_csocko_small_tcp4, - ttest_ssocko_csocko_small_tcp6, - ttest_ssocko_csocko_small_tcpL, - - ttest_ssocko_csocko_medium_tcp4, - ttest_ssocko_csocko_medium_tcp6, - ttest_ssocko_csocko_medium_tcpL, - - ttest_ssocko_csocko_large_tcp4, - ttest_ssocko_csocko_large_tcp6, - ttest_ssocko_csocko_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_csocko_small_tcp4, + ttest_ssocko_csocko_small_tcp6, + ttest_ssocko_csocko_small_tcpL], + %% Medium + [ttest_ssocko_csocko_medium_tcp4, + ttest_ssocko_csocko_medium_tcp6, + ttest_ssocko_csocko_medium_tcpL], + %% Large + [ttest_ssocko_csocko_large_tcp4, + ttest_ssocko_csocko_large_tcp6, + ttest_ssocko_csocko_large_tcpL]). %% Server: transport = socket(tcp), active = once %% Client: transport = socket(tcp), active = true ttest_ssocko_csockt_cases() -> - [ - ttest_ssocko_csockt_small_tcp4, - ttest_ssocko_csockt_small_tcp6, - ttest_ssocko_csockt_small_tcpL, - - ttest_ssocko_csockt_medium_tcp4, - ttest_ssocko_csockt_medium_tcp6, - ttest_ssocko_csockt_medium_tcpL, - - ttest_ssocko_csockt_large_tcp4, - ttest_ssocko_csockt_large_tcp6, - ttest_ssocko_csockt_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssocko_csockt_small_tcp4, + ttest_ssocko_csockt_small_tcp6, + ttest_ssocko_csockt_small_tcpL], + %% Medium + [ttest_ssocko_csockt_medium_tcp4, + ttest_ssocko_csockt_medium_tcp6, + ttest_ssocko_csockt_medium_tcpL], + %% Large + [ttest_ssocko_csockt_large_tcp4, + ttest_ssocko_csockt_large_tcp6, + ttest_ssocko_csockt_large_tcpL]). %% Server: transport = socket(tcp), active = true ttest_ssockt_cases() -> @@ -1932,44 +2070,44 @@ ttest_ssockt_cgen_cases() -> %% Server: transport = socket(tcp), active = true %% Client: transport = gen_tcp, active = false ttest_ssockt_cgenf_cases() -> - [ - ttest_ssockt_cgenf_small_tcp4, - ttest_ssockt_cgenf_small_tcp6, - - ttest_ssockt_cgenf_medium_tcp4, - ttest_ssockt_cgenf_medium_tcp6, - - ttest_ssockt_cgenf_large_tcp4, - ttest_ssockt_cgenf_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_cgenf_small_tcp4, + ttest_ssockt_cgenf_small_tcp6], + %% Medium + [ttest_ssockt_cgenf_medium_tcp4, + ttest_ssockt_cgenf_medium_tcp6], + %% Large + [ttest_ssockt_cgenf_large_tcp4, + ttest_ssockt_cgenf_large_tcp6]). %% Server: transport = socket(tcp), active = true %% Client: transport = gen_tcp, active = once ttest_ssockt_cgeno_cases() -> - [ - ttest_ssockt_cgeno_small_tcp4, - ttest_ssockt_cgeno_small_tcp6, - - ttest_ssockt_cgeno_medium_tcp4, - ttest_ssockt_cgeno_medium_tcp6, - - ttest_ssockt_cgeno_large_tcp4, - ttest_ssockt_cgeno_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_cgeno_small_tcp4, + ttest_ssockt_cgeno_small_tcp6], + %% Medium + [ttest_ssockt_cgeno_medium_tcp4, + ttest_ssockt_cgeno_medium_tcp6], + %% Large + [ttest_ssockt_cgeno_large_tcp4, + ttest_ssockt_cgeno_large_tcp6]). %% Server: transport = socket(tcp), active = true %% Client: transport = gen_tcp, active = true ttest_ssockt_cgent_cases() -> - [ - ttest_ssockt_cgent_small_tcp4, - ttest_ssockt_cgent_small_tcp6, - - ttest_ssockt_cgent_medium_tcp4, - ttest_ssockt_cgent_medium_tcp6, - - ttest_ssockt_cgent_large_tcp4, - ttest_ssockt_cgent_large_tcp6 - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_cgent_small_tcp4, + ttest_ssockt_cgent_small_tcp6], + %% Medium + [ttest_ssockt_cgent_medium_tcp4, + ttest_ssockt_cgent_medium_tcp6], + %% Large + [ttest_ssockt_cgent_large_tcp4, + ttest_ssockt_cgent_large_tcp6]). %% Server: transport = socket(tcp), active = true %% Client: transport = socket(tcp) @@ -1983,57 +2121,58 @@ ttest_ssockt_csock_cases() -> %% Server: transport = socket(tcp), active = true %% Client: transport = socket(tcp), active = false ttest_ssockt_csockf_cases() -> - [ - ttest_ssockt_csockf_small_tcp4, - ttest_ssockt_csockf_small_tcp6, - ttest_ssockt_csockf_small_tcpL, - - ttest_ssockt_csockf_medium_tcp4, - ttest_ssockt_csockf_medium_tcp6, - ttest_ssockt_csockf_medium_tcpL, - - ttest_ssockt_csockf_large_tcp4, - ttest_ssockt_csockf_large_tcp6, - ttest_ssockt_csockf_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_csockf_small_tcp4, + ttest_ssockt_csockf_small_tcp6, + ttest_ssockt_csockf_small_tcpL], + %% Medium + [ttest_ssockt_csockf_medium_tcp4, + ttest_ssockt_csockf_medium_tcp6, + ttest_ssockt_csockf_medium_tcpL], + %% Large + [ttest_ssockt_csockf_large_tcp4, + ttest_ssockt_csockf_large_tcp6, + ttest_ssockt_csockf_large_tcpL]). %% Server: transport = socket(tcp), active = true %% Client: transport = socket(tcp), active = once ttest_ssockt_csocko_cases() -> - [ - ttest_ssockt_csocko_small_tcp4, - ttest_ssockt_csocko_small_tcp6, - ttest_ssockt_csocko_small_tcpL, - - ttest_ssockt_csocko_medium_tcp4, - ttest_ssockt_csocko_medium_tcp6, - ttest_ssockt_csocko_medium_tcpL, - - ttest_ssockt_csocko_large_tcp4, - ttest_ssockt_csocko_large_tcp6, - ttest_ssockt_csocko_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_csocko_small_tcp4, + ttest_ssockt_csocko_small_tcp6, + ttest_ssockt_csocko_small_tcpL], + %% Medium + [ttest_ssockt_csocko_medium_tcp4, + ttest_ssockt_csocko_medium_tcp6, + ttest_ssockt_csocko_medium_tcpL], + %% Large + [ttest_ssockt_csocko_large_tcp4, + ttest_ssockt_csocko_large_tcp6, + ttest_ssockt_csocko_large_tcpL]). %% Server: transport = socket(tcp), active = true %% Client: transport = socket(tcp), active = true ttest_ssockt_csockt_cases() -> - [ - ttest_ssockt_csockt_small_tcp4, - ttest_ssockt_csockt_small_tcp6, - ttest_ssockt_csockt_small_tcpL, - - ttest_ssockt_csockt_medium_tcp4, - ttest_ssockt_csockt_medium_tcp6, - ttest_ssockt_csockt_medium_tcpL, - - ttest_ssockt_csockt_large_tcp4, - ttest_ssockt_csockt_large_tcp6, - ttest_ssockt_csockt_large_tcpL - ]. + ttest_select_conditional_cases( + %% Small + [ttest_ssockt_csockt_small_tcp4, + ttest_ssockt_csockt_small_tcp6, + ttest_ssockt_csockt_small_tcpL], + %% Medium + [ttest_ssockt_csockt_medium_tcp4, + ttest_ssockt_csockt_medium_tcp6, + ttest_ssockt_csockt_medium_tcpL], + %% Large + [ttest_ssockt_csockt_large_tcp4, + ttest_ssockt_csockt_large_tcp6, + ttest_ssockt_csockt_large_tcpL]). tickets_cases() -> [ - {group, otp16359} + {group, otp16359}, + {group, otp18240} ]. otp16359_cases() -> @@ -2044,38 +2183,58 @@ otp16359_cases() -> ]. +otp18240_cases() -> + [ + otp18240_accept_mon_leak_tcp4, + otp18240_accept_mon_leak_tcp6 + ]. + + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -init_per_suite(Config) -> - io:format("init_per_suite -> entry with" - "~n Config: ~p" - "~n", [Config]), - ct:timetrap(?MINS(2)), - Factor = analyze_and_print_host_info(), +init_per_suite(Config0) -> + ?P("init_per_suite -> entry with" + "~n Config: ~p" + "~n Nodes: ~p", [Config0, erlang:nodes()]), + try socket:info() of #{} -> - socket:use_registry(false), - case quiet_mode(Config) of - default -> - case ?LOGGER:start() of - ok -> - [{esock_factor, Factor} | Config]; - {error, Reason} -> - io:format("init_per_suite -> Failed starting logger" - "~n Reason: ~p" - "~n", [Reason]), - {skip, "Failed starting logger"} - end; - Quiet -> - case ?LOGGER:start(Quiet) of - ok -> - [{esock_factor, Factor}, - {esock_test_quiet, Quiet} | Config]; - {error, Reason} -> - io:format("init_per_suite -> Failed starting logger" - "~n Reason: ~p" - "~n", [Reason]), - {skip, "Failed starting logger"} + case ?KLIB:init_per_suite(Config0) of + {skip, _} = SKIP -> + SKIP; + + Config1 when is_list(Config1) -> + + ?P("init_per_suite -> end when " + "~n Config: ~p", [Config1]), + + %% We need a monitor on this node also + kernel_test_sys_monitor:start(), + + socket:use_registry(false), + case quiet_mode(Config1) of + default -> + case ?LOGGER:start() of + ok -> + Config1; + {error, Reason} -> + ?P("init_per_suite -> " + "Failed starting logger" + "~n Reason: ~p" + "~n", [Reason]), + {skip, "Failed starting logger"} + end; + Quiet -> + case ?LOGGER:start(Quiet) of + ok -> + [{esock_test_quiet, Quiet} | Config1]; + {error, Reason} -> + ?P("init_per_suite -> " + "Failed starting logger" + "~n Reason: ~p" + "~n", [Reason]), + {skip, "Failed starting logger"} + end end end catch @@ -2085,9 +2244,23 @@ init_per_suite(Config) -> {skip, "esock not configured"} end. -end_per_suite(_) -> +end_per_suite(Config0) -> + + ?P("end_per_suite -> entry with" + "~n Config: ~p" + "~n Nodes: ~p", [Config0, erlang:nodes()]), + + %% Stop the local monitor + kernel_test_sys_monitor:stop(), + (catch ?LOGGER:stop()), - ok. + + Config1 = ?KLIB:end_per_suite(Config0), + + ?P("end_per_suite -> " + "~n Nodes: ~p", [erlang:nodes()]), + + Config1. init_per_group(api_sendfile = GroupName, Config) -> @@ -2124,7 +2297,7 @@ init_per_group(GroupName, Config) "~n", [GroupName, Config]), %% Maybe we should skip the entire suite for this platform, %% but for now we just skip these groups, which seem to - %% have problems (slave node start). + %% have problems (node start). %% As stated elsewhere, its not really Fedora 16, but %% the *really* slow VM that is the issue. try is_old_fedora16() of @@ -2138,12 +2311,18 @@ init_per_group(ttest = _GroupName, Config) -> io:format("init_per_group(~w) -> entry with" "~n Config: ~p" "~n", [_GroupName, Config]), - ttest_manager_start(), - case lists:keysearch(esock_test_ttest_runtime, 1, Config) of - {value, _} -> - Config; - false -> - [{esock_test_ttest_runtime, which_ttest_runtime_env()} | Config] + case ttest_condition(Config) of + ok -> + ttest_manager_start(), + case lists:keysearch(esock_test_ttest_runtime, 1, Config) of + {value, _} -> + Config; + false -> + [{esock_test_ttest_runtime, which_ttest_runtime_env()} | + Config] + end; + {skip, _} = SKIP -> + SKIP end; init_per_group(api_async_ref, Config) -> [{select_handle, true} | Config]; @@ -2211,10 +2390,6 @@ double_data(N, Data) -> %% that we can call the "global" info function and that it returns %% a non-empty map... -api_m_info(suite) -> - []; -api_m_info(doc) -> - []; api_m_info(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_m_info, @@ -2244,10 +2419,6 @@ api_m_info() -> %% At the same time, it will test the info function (since it uses it %% for verification). -api_m_debug(suite) -> - []; -api_m_debug(doc) -> - []; api_m_debug(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_m_debug, @@ -2412,10 +2583,6 @@ api_m_error_bind(Config) when is_list(Config) -> %% Basically open (create) and info of an IPv4 UDP (dgram) socket. %% With some extra checks... -api_b_open_and_info_udp4(suite) -> - []; -api_b_open_and_info_udp4(doc) -> - []; api_b_open_and_info_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_info_udp4, @@ -2432,10 +2599,6 @@ api_b_open_and_info_udp4(_Config) when is_list(_Config) -> %% Basically open (create) and info of an IPv6 UDP (dgram) socket. %% With some extra checks... -api_b_open_and_info_udp6(suite) -> - []; -api_b_open_and_info_udp6(doc) -> - []; api_b_open_and_info_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_info_udp6, @@ -2453,10 +2616,6 @@ api_b_open_and_info_udp6(_Config) when is_list(_Config) -> %% Basically open (create) and info of an IPv4 TCP (stream) socket. %% With some extra checks... -api_b_open_and_info_tcp4(suite) -> - []; -api_b_open_and_info_tcp4(doc) -> - []; api_b_open_and_info_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_info_tcp4, @@ -2473,10 +2632,6 @@ api_b_open_and_info_tcp4(_Config) when is_list(_Config) -> %% Basically open (create) and info of an IPv6 TCP (stream) socket. %% With some extra checks... -api_b_open_and_info_tcp6(suite) -> - []; -api_b_open_and_info_tcp6(doc) -> - []; api_b_open_and_info_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_info_tcp6, @@ -2554,10 +2709,6 @@ api_b_open_and_info(InitState) -> %% Basically open (create) and close an IPv4 UDP (dgram) socket. %% With some extra checks... -api_b_open_and_close_udp4(suite) -> - []; -api_b_open_and_close_udp4(doc) -> - []; api_b_open_and_close_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_udp4, @@ -2573,10 +2724,6 @@ api_b_open_and_close_udp4(_Config) when is_list(_Config) -> %% Basically open (create) and close an IPv6 UDP (dgram) socket. %% With some extra checks... -api_b_open_and_close_udp6(suite) -> - []; -api_b_open_and_close_udp6(doc) -> - []; api_b_open_and_close_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_udp6, @@ -2593,10 +2740,6 @@ api_b_open_and_close_udp6(_Config) when is_list(_Config) -> %% Basically open (create) and close an IPv4 TCP (stream) socket. %% With some extra checks... -api_b_open_and_close_tcp4(suite) -> - []; -api_b_open_and_close_tcp4(doc) -> - []; api_b_open_and_close_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_tcp4, @@ -2612,10 +2755,6 @@ api_b_open_and_close_tcp4(_Config) when is_list(_Config) -> %% Basically open (create) and close an IPv6 TCP (stream) socket. %% With some extra checks... -api_b_open_and_close_tcp6(suite) -> - []; -api_b_open_and_close_tcp6(doc) -> - []; api_b_open_and_close_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_tcp6, @@ -2632,10 +2771,6 @@ api_b_open_and_close_tcp6(_Config) when is_list(_Config) -> %% Basically open (create) and close an Unix Domain dgram (UDP) socket. %% With some extra checks... -api_b_open_and_close_udpL(suite) -> - []; -api_b_open_and_close_udpL(doc) -> - []; api_b_open_and_close_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_udpL, @@ -2652,10 +2787,6 @@ api_b_open_and_close_udpL(_Config) when is_list(_Config) -> %% Basically open (create) and close an Unix Domain stream (TCP) socket. %% With some extra checks... -api_b_open_and_close_tcpL(suite) -> - []; -api_b_open_and_close_tcpL(doc) -> - []; api_b_open_and_close_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_tcpL, @@ -2672,10 +2803,6 @@ api_b_open_and_close_tcpL(_Config) when is_list(_Config) -> %% Basically open (create) and close an Unix Domain dgram (UDP) socket. %% With some extra checks... -api_b_open_and_close_seqpL(suite) -> - []; -api_b_open_and_close_seqpL(doc) -> - []; api_b_open_and_close_seqpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -2692,10 +2819,6 @@ api_b_open_and_close_seqpL(_Config) when is_list(_Config) -> %% Basically open (create) and close an IPv4 SCTP (seqpacket) socket. %% With some extra checks... -api_b_open_and_close_sctp4(suite) -> - []; -api_b_open_and_close_sctp4(doc) -> - []; api_b_open_and_close_sctp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_close_sctp4, @@ -2783,7 +2906,7 @@ api_b_open_and_close(InitState) -> protocol := ExpProtocol}, {ok, Protocol}}) -> %% On OpenBSD (at least 6.6) something screwy happens %% when domain = local. - %% It will report a completly different protocol (icmp) + %% It will report a completely different protocol (icmp) %% but everything still works. So we skip if this happens %% on OpenBSD... case os:type() of @@ -2847,10 +2970,6 @@ api_b_open_and_close(InitState) -> %% Basically open (create) and (maybe) close an RAW socket. -api_b_open_and_maybe_close_raw(suite) -> - []; -api_b_open_and_maybe_close_raw(doc) -> - []; api_b_open_and_maybe_close_raw(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_open_and_maybe_close_raw, @@ -2913,13 +3032,10 @@ do_api_b_open_and_maybe_close_raw(InitState) -> %% Basically send and receive on an IPv4 UDP (dgram) socket using %% sendto and recvfrom.. -api_b_sendto_and_recvfrom_udp4(suite) -> - []; -api_b_sendto_and_recvfrom_udp4(doc) -> - []; api_b_sendto_and_recvfrom_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_sendto_and_recvfrom_udp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data, Dest) -> socket:sendto(Sock, Data, Dest) @@ -2939,10 +3055,6 @@ api_b_sendto_and_recvfrom_udp4(_Config) when is_list(_Config) -> %% Basically send and receive on an IPv4 UDP (dgram) socket using %% sendto and recvfrom. -api_b_sendto_and_recvfrom_udpL(suite) -> - []; -api_b_sendto_and_recvfrom_udpL(doc) -> - []; api_b_sendto_and_recvfrom_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_sendto_and_recvfrom_udpL, @@ -2969,13 +3081,10 @@ api_b_sendto_and_recvfrom_udpL(_Config) when is_list(_Config) -> %% Basically send and receive on an IPv4 UDP (dgram) socket %% using sendmsg and recvmsg. -api_b_sendmsg_and_recvmsg_udp4(suite) -> - []; -api_b_sendmsg_and_recvmsg_udp4(doc) -> - []; api_b_sendmsg_and_recvmsg_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_sendmsg_and_recvmsg_udp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data, Dest) -> %% We need tests for this, @@ -3013,10 +3122,6 @@ api_b_sendmsg_and_recvmsg_udp4(_Config) when is_list(_Config) -> %% Basically send and receive on an IPv4 UDP (dgram) socket %% using sendmsg and recvmsg. -api_b_sendmsg_and_recvmsg_udpL(suite) -> - []; -api_b_sendmsg_and_recvmsg_udpL(doc) -> - []; api_b_sendmsg_and_recvmsg_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_sendmsg_and_recvmsg_udpL, @@ -3201,13 +3306,10 @@ api_b_send_and_recv_udp(InitState) -> %% Basically send and receive using the "common" functions (send and recv) %% on an IPv4 TCP (stream) socket. -api_b_send_and_recv_tcp4(suite) -> - []; -api_b_send_and_recv_tcp4(doc) -> - []; api_b_send_and_recv_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_b_send_and_recv_tcp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data) -> socket:send(Sock, Data) @@ -3228,10 +3330,6 @@ api_b_send_and_recv_tcp4(_Config) when is_list(_Config) -> %% Basically send and receive using the "common" functions (send and recv) %% on an Unix Domain (stream) socket (TCP). -api_b_send_and_recv_tcpL(suite) -> - []; -api_b_send_and_recv_tcpL(doc) -> - []; api_b_send_and_recv_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_b_send_and_recv_tcpL, @@ -3256,10 +3354,6 @@ api_b_send_and_recv_tcpL(_Config) when is_list(_Config) -> %% Basically send and receive using the "common" functions (send and recv) %% on an Unix Domain seqpacket socket. -api_b_send_and_recv_seqpL(suite) -> - []; -api_b_send_and_recv_seqpL(doc) -> - []; api_b_send_and_recv_seqpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(?FUNCTION_NAME, @@ -3284,13 +3378,10 @@ api_b_send_and_recv_seqpL(_Config) when is_list(_Config) -> %% Basically send and receive using the msg functions (sendmsg and recvmsg) %% on an IPv4 TCP (stream) socket. -api_b_sendmsg_and_recvmsg_tcp4(suite) -> - []; -api_b_sendmsg_and_recvmsg_tcp4(doc) -> - []; api_b_sendmsg_and_recvmsg_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_b_sendmsg_and_recvmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data) -> Msg = #{iov => [Data]}, @@ -3321,10 +3412,6 @@ api_b_sendmsg_and_recvmsg_tcp4(_Config) when is_list(_Config) -> %% Basically send and receive using the msg functions (sendmsg and recvmsg) %% on an Unix Domain (stream) socket (TCP). -api_b_sendmsg_and_recvmsg_tcpL(suite) -> - []; -api_b_sendmsg_and_recvmsg_tcpL(doc) -> - []; api_b_sendmsg_and_recvmsg_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_b_sendmsg_and_recvmsg_tcpL, @@ -3374,10 +3461,6 @@ api_b_sendmsg_and_recvmsg_tcpL(_Config) when is_list(_Config) -> %% Basically send and receive using the msg functions (sendmsg and recvmsg) %% on an Unix Domain (stream) socket (TCP). -api_b_sendmsg_and_recvmsg_seqpL(suite) -> - []; -api_b_sendmsg_and_recvmsg_seqpL(doc) -> - []; api_b_sendmsg_and_recvmsg_seqpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(?FUNCTION_NAME, @@ -3842,10 +3925,6 @@ api_b_send_and_recv_conn(InitState) -> %% Basically send and receive on an IPv4 SCTP (seqpacket) socket %% using sendmsg and recvmsg. -api_b_sendmsg_and_recvmsg_sctp4(suite) -> - []; -api_b_sendmsg_and_recvmsg_sctp4(doc) -> - []; api_b_sendmsg_and_recvmsg_sctp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_b_sendmsg_and_recvmsg_sctp4, @@ -4384,6 +4463,7 @@ api_b_send_and_recv_sctp(_InitState) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% api_b_sendmsg_iov_dgram_inet(Config) when is_list(Config) -> + has_support_ipv4(), api_b_sendmsg_iov_dgram(inet). %% api_b_sendmsg_iov_dgram_inet6(Config) when is_list(Config) -> @@ -4395,6 +4475,7 @@ api_b_sendmsg_iov_dgram_local(Config) when is_list(Config) -> api_b_sendmsg_iov_dgram(local). api_b_sendmsg_iov_stream_inet(Config) when is_list(Config) -> + has_support_ipv4(), api_b_sendmsg_iov_stream(inet). %% api_b_sendmsg_iov_stream_inet6(Config) when is_list(Config) -> @@ -4489,6 +4570,7 @@ api_b_sendmsg_iov_stream(Domain) -> api_sendfile_inet(Config) when is_list(Config) -> has_support_sendfile(), + has_support_ipv4(), api_sendfile(inet, Config, fun socket:sendfile/2). api_sendfile_inet6(Config) when is_list(Config) -> @@ -4505,6 +4587,7 @@ api_sendfile_local(Config) when is_list(Config) -> api_sendfile_loop_inet(Config) when is_list(Config) -> has_support_sendfile(), + has_support_ipv4(), api_sendfile(inet, Config, fun sendfile_loop/2). api_sendfile_loop_inet6(Config) when is_list(Config) -> @@ -4650,13 +4733,10 @@ api_sendfile_verify_block(S, Data, M, Block, N) -> %% With some extra checks... %% IPv4 %% Without dup -api_ffd_open_wod_and_info_udp4(suite) -> - []; -api_ffd_open_wod_and_info_udp4(doc) -> - []; api_ffd_open_wod_and_info_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wod_and_info_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => dgram, @@ -4673,10 +4753,6 @@ api_ffd_open_wod_and_info_udp4(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% Without dup -api_ffd_open_wod_and_info_udp6(suite) -> - []; -api_ffd_open_wod_and_info_udp6(doc) -> - []; api_ffd_open_wod_and_info_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wod_and_info_udp6, @@ -4697,13 +4773,10 @@ api_ffd_open_wod_and_info_udp6(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv4 %% With dup -api_ffd_open_wd_and_info_udp4(suite) -> - []; -api_ffd_open_wd_and_info_udp4(doc) -> - []; api_ffd_open_wd_and_info_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_wd_open_and_info_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => dgram, @@ -4720,10 +4793,6 @@ api_ffd_open_wd_and_info_udp4(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% With dup -api_ffd_open_wd_and_info_udp6(suite) -> - []; -api_ffd_open_wd_and_info_udp6(doc) -> - []; api_ffd_open_wd_and_info_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_wd_open_and_info_udp6, @@ -4744,13 +4813,10 @@ api_ffd_open_wd_and_info_udp6(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% Without dup -api_ffd_open_wod_and_info_tcp4(suite) -> - []; -api_ffd_open_wod_and_info_tcp4(doc) -> - []; api_ffd_open_wod_and_info_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wod_and_info_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => stream, @@ -4767,10 +4833,6 @@ api_ffd_open_wod_and_info_tcp4(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% Without dup -api_ffd_open_wod_and_info_tcp6(suite) -> - []; -api_ffd_open_wod_and_info_tcp6(doc) -> - []; api_ffd_open_wod_and_info_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wod_and_info_tcp6, @@ -4791,13 +4853,10 @@ api_ffd_open_wod_and_info_tcp6(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% With dup -api_ffd_open_wd_and_info_tcp4(suite) -> - []; -api_ffd_open_wd_and_info_tcp4(doc) -> - []; api_ffd_open_wd_and_info_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wd_and_info_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => stream, @@ -4814,10 +4873,6 @@ api_ffd_open_wd_and_info_tcp4(_Config) when is_list(_Config) -> %% With some extra checks... %% IPv6 %% With dup -api_ffd_open_wd_and_info_tcp6(suite) -> - []; -api_ffd_open_wd_and_info_tcp6(doc) -> - []; api_ffd_open_wd_and_info_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_wd_and_info_tcp6, @@ -5025,7 +5080,7 @@ api_ffd_open_and_info(InitState) -> %% Basically open a socket (1) and then create another socket (2) from %% its file descriptor *without* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv4 UDP (dgram) socket. @@ -5039,13 +5094,10 @@ api_ffd_open_and_info(InitState) -> %% %% </WARNING> %% -api_ffd_open_and_open_wod_and_send_udp4(suite) -> - []; -api_ffd_open_and_open_wod_and_send_udp4(doc) -> - []; api_ffd_open_and_open_wod_and_send_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_and_open_wod_and_send_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => dgram, @@ -5060,7 +5112,7 @@ api_ffd_open_and_open_wod_and_send_udp4(_Config) when is_list(_Config) -> %% Basically open a socket (1) and then create another socket (2) from %% its file descriptor *without* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv6 UDP (dgram) socket. @@ -5074,10 +5126,6 @@ api_ffd_open_and_open_wod_and_send_udp4(_Config) when is_list(_Config) -> %% %% </WARNING> %% -api_ffd_open_and_open_wod_and_send_udp6(suite) -> - []; -api_ffd_open_and_open_wod_and_send_udp6(doc) -> - []; api_ffd_open_and_open_wod_and_send_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_and_open_wod_and_send_udp6, @@ -5096,18 +5144,15 @@ api_ffd_open_and_open_wod_and_send_udp6(_Config) when is_list(_Config) -> %% Basically open a socket (1) and then create another socket (2) from %% its file descriptor *with* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv4 UDP (dgram) socket. %% -api_ffd_open_and_open_wd_and_send_udp4(suite) -> - []; -api_ffd_open_and_open_wd_and_send_udp4(doc) -> - []; api_ffd_open_and_open_wd_and_send_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_and_open_wd_and_send_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => dgram, @@ -5122,15 +5167,11 @@ api_ffd_open_and_open_wd_and_send_udp4(_Config) when is_list(_Config) -> %% Basically open a socket (1) and then create another socket (2) from %% its file descriptor *with* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv6 UDP (dgram) socket. %% -api_ffd_open_and_open_wd_and_send_udp6(suite) -> - []; -api_ffd_open_and_open_wd_and_send_udp6(doc) -> - []; api_ffd_open_and_open_wd_and_send_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_and_open_wd_and_send_udp6, @@ -5748,7 +5789,7 @@ api_ffd_open_and_open_and_send_udp2(InitState) -> %% Basically open a socket (1), connect to a server and then create %% another socket (2) from its file descriptor *without* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv4 TCP (stream) socket. @@ -5762,10 +5803,6 @@ api_ffd_open_and_open_and_send_udp2(InitState) -> %% %% </WARNING> %% -api_ffd_open_connect_and_open_wod_and_send_tcp4(suite) -> - []; -api_ffd_open_connect_and_open_wod_and_send_tcp4(doc) -> - []; api_ffd_open_connect_and_open_wod_and_send_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_connect_and_open_wod_and_send_tcp4, @@ -5783,7 +5820,7 @@ api_ffd_open_connect_and_open_wod_and_send_tcp4(_Config) when is_list(_Config) - %% Basically open a socket (1), connect to a server and then create %% another socket (2) from its file descriptor *without* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv6 TCP (stream) socket. @@ -5797,10 +5834,6 @@ api_ffd_open_connect_and_open_wod_and_send_tcp4(_Config) when is_list(_Config) - %% %% </WARNING> %% -api_ffd_open_connect_and_open_wod_and_send_tcp6(suite) -> - []; -api_ffd_open_connect_and_open_wod_and_send_tcp6(doc) -> - []; api_ffd_open_connect_and_open_wod_and_send_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_connect_and_open_wod_and_send_tcp6, @@ -5819,14 +5852,10 @@ api_ffd_open_connect_and_open_wod_and_send_tcp6(_Config) when is_list(_Config) - %% Basically open a socket (1), connect to a server and then create %% another socket (2) from its file descriptor *with* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv4 TCP (stream) socket. -api_ffd_open_connect_and_open_wd_and_send_tcp4(suite) -> - []; -api_ffd_open_connect_and_open_wd_and_send_tcp4(doc) -> - []; api_ffd_open_connect_and_open_wd_and_send_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_connect_and_open_wd_and_send_tcp4, @@ -5845,14 +5874,10 @@ api_ffd_open_connect_and_open_wd_and_send_tcp4(_Config) when is_list(_Config) -> %% Basically open a socket (1), connect to a server and then create %% another socket (2) from its file descriptor *with* dup. -%% Exchange som data from via both "client" sockets. +%% Exchange some data from via both "client" sockets. %% Finally close the second socket. Ensure that the original socket %% has not been closed (test by sending some data). %% IPv6 TCP (stream) socket. -api_ffd_open_connect_and_open_wd_and_send_tcp6(suite) -> - []; -api_ffd_open_connect_and_open_wd_and_send_tcp6(doc) -> - []; api_ffd_open_connect_and_open_wd_and_send_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_ffd_open_connect_and_open_wd_and_send_tcp6, @@ -6524,14 +6549,10 @@ api_ffd_open_connect_and_open_and_send_tcp2(InitState) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Basically establish a TCP connection via an async connect. IPv4. - -api_a_connect_tcp4(suite) -> - []; -api_a_connect_tcp4(doc) -> - []; api_a_connect_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), tc_try(api_a_connect_tcp4, + fun() -> has_support_ipv4() end, fun() -> ok = api_a_connect_tcpD(inet, nowait(Config)) end). @@ -6540,11 +6561,6 @@ api_a_connect_tcp4(Config) when is_list(Config) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Basically establish a TCP connection via an async connect. IPv6. - -api_a_connect_tcp6(suite) -> - []; -api_a_connect_tcp6(doc) -> - []; api_a_connect_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), tc_try(api_a_connect_tcp6, @@ -7061,14 +7077,11 @@ api_a_connect_tcp(InitState) -> %% select message). Note that we only do this for the recvfrom, %% since its much more difficult to "arrange" for sendto. %% -api_a_sendto_and_recvfrom_udp4(suite) -> - []; -api_a_sendto_and_recvfrom_udp4(doc) -> - []; api_a_sendto_and_recvfrom_udp4(Config) when is_list(Config) -> ?TT(?SECS(5)), Nowait = nowait(Config), tc_try(api_a_sendto_and_recvfrom_udp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data, Dest) -> socket:sendto(Sock, Data, Dest) @@ -7093,10 +7106,6 @@ api_a_sendto_and_recvfrom_udp4(Config) when is_list(Config) -> %% select message). Note that we only do this for the recvfrom, %% since its much more difficult to "arrange" for sendto. %% -api_a_sendto_and_recvfrom_udp6(suite) -> - []; -api_a_sendto_and_recvfrom_udp6(doc) -> - []; api_a_sendto_and_recvfrom_udp6(Config) when is_list(Config) -> ?TT(?SECS(5)), Nowait = nowait(Config), @@ -7126,14 +7135,11 @@ api_a_sendto_and_recvfrom_udp6(Config) when is_list(Config) -> %% select message). Note that we only do this for the recvmsg, %% since its much more difficult to "arrange" for sendmsg. %% -api_a_sendmsg_and_recvmsg_udp4(suite) -> - []; -api_a_sendmsg_and_recvmsg_udp4(doc) -> - []; api_a_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) -> ?TT(?SECS(5)), Nowait = nowait(Config), tc_try(api_a_sendmsg_and_recvmsg_udp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data, Dest) -> Msg = #{addr => Dest, @@ -7171,10 +7177,6 @@ api_a_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) -> %% select message). Note that we only do this for the recvmsg, %% since its much more difficult to "arrange" for sendmsg. %% -api_a_sendmsg_and_recvmsg_udp6(suite) -> - []; -api_a_sendmsg_and_recvmsg_udp6(doc) -> - []; api_a_sendmsg_and_recvmsg_udp6(Config) when is_list(Config) -> ?TT(?SECS(5)), Nowait = nowait(Config), @@ -7652,14 +7654,11 @@ api_a_send_and_recv_udp(InitState) -> %% select message). Note that we only do this for the recv, %% since its much more difficult to "arrange" for send. %% We *also* test async for accept. -api_a_send_and_recv_tcp4(suite) -> - []; -api_a_send_and_recv_tcp4(doc) -> - []; api_a_send_and_recv_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_send_and_recv_tcp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data) -> socket:send(Sock, Data) @@ -7684,10 +7683,6 @@ api_a_send_and_recv_tcp4(Config) when is_list(Config) -> %% select message). Note that we only do this for the recv, %% since its much more difficult to "arrange" for send. %% We *also* test async for accept. -api_a_send_and_recv_tcp6(suite) -> - []; -api_a_send_and_recv_tcp6(doc) -> - []; api_a_send_and_recv_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -7717,14 +7712,11 @@ api_a_send_and_recv_tcp6(Config) when is_list(Config) -> %% select message). Note that we only do this for the recvmsg, %% since its much more difficult to "arrange" for sendmsg. %% We *also* test async for accept. -api_a_sendmsg_and_recvmsg_tcp4(suite) -> - []; -api_a_sendmsg_and_recvmsg_tcp4(doc) -> - []; api_a_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_sendmsg_and_recvmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> Send = fun(Sock, Data) -> Msg = #{iov => [Data]}, @@ -7757,10 +7749,6 @@ api_a_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> %% select message). Note that we only do this for the recvmsg, %% since its much more difficult to "arrange" for sendmsg. %% We *also* test async for accept. -api_a_sendmsg_and_recvmsg_tcp6(suite) -> - []; -api_a_sendmsg_and_recvmsg_tcp6(doc) -> - []; api_a_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -8320,14 +8308,11 @@ api_a_send_and_recv_tcp(Config, InitState) -> %% Basically we make an async (Timeout = nowait) call to recvfrom, %% wait some time and then cancel. IPv4 %% -api_a_recvfrom_cancel_udp4(suite) -> - []; -api_a_recvfrom_cancel_udp4(doc) -> - []; api_a_recvfrom_cancel_udp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_recvfrom_cancel_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> case socket:recvfrom(Sock, 0, Nowait) of @@ -8352,10 +8337,6 @@ api_a_recvfrom_cancel_udp4(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recvfrom, %% wait some time and then cancel. IPv6 %% -api_a_recvfrom_cancel_udp6(suite) -> - []; -api_a_recvfrom_cancel_udp6(doc) -> - []; api_a_recvfrom_cancel_udp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -8385,14 +8366,11 @@ api_a_recvfrom_cancel_udp6(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recvmsg, %% wait some time and then cancel. IPv4 %% -api_a_recvmsg_cancel_udp4(suite) -> - []; -api_a_recvmsg_cancel_udp4(doc) -> - []; api_a_recvmsg_cancel_udp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_recvmsg_cancel_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> case socket:recvmsg(Sock, Nowait) of @@ -8417,10 +8395,6 @@ api_a_recvmsg_cancel_udp4(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recvmsg, %% wait some time and then cancel. IPv6 %% -api_a_recvmsg_cancel_udp6(suite) -> - []; -api_a_recvmsg_cancel_udp6(doc) -> - []; api_a_recvmsg_cancel_udp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -8661,14 +8635,11 @@ api_a_recv_cancel_udp(InitState) -> %% Basically we make an async (Timeout = nowait) call to accept, %% wait some time and then cancel. IPv4 %% -api_a_accept_cancel_tcp4(suite) -> - []; -api_a_accept_cancel_tcp4(doc) -> - []; api_a_accept_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_accept_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Accept = fun(Sock) -> case socket:accept(Sock, Nowait) of @@ -8694,10 +8665,6 @@ api_a_accept_cancel_tcp4(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to accept, %% wait some time and then cancel. IPv6 %% -api_a_accept_cancel_tcp6(suite) -> - []; -api_a_accept_cancel_tcp6(doc) -> - []; api_a_accept_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -8941,14 +8908,11 @@ api_a_accept_cancel_tcp(InitState) -> %% Basically we make an async (Timeout = nowait) call to recv, %% wait some time and then cancel. IPv4 %% -api_a_recv_cancel_tcp4(suite) -> - []; -api_a_recv_cancel_tcp4(doc) -> - []; api_a_recv_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_recv_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recv(Sock, 0, Nowait) @@ -8966,10 +8930,6 @@ api_a_recv_cancel_tcp4(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recv, %% wait some time and then cancel. IPv6 %% -api_a_recv_cancel_tcp6(suite) -> - []; -api_a_recv_cancel_tcp6(doc) -> - []; api_a_recv_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -8992,14 +8952,11 @@ api_a_recv_cancel_tcp6(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recvmsg, %% wait some time and then cancel. IPv4 %% -api_a_recvmsg_cancel_tcp4(suite) -> - []; -api_a_recvmsg_cancel_tcp4(doc) -> - []; api_a_recvmsg_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), tc_try(api_a_recvmsg_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recvmsg(Sock, Nowait) @@ -9017,10 +8974,6 @@ api_a_recvmsg_cancel_tcp4(Config) when is_list(Config) -> %% Basically we make an async (Timeout = nowait) call to recvmsg, %% wait some time and then cancel. IPv6 %% -api_a_recvmsg_cancel_tcp6(suite) -> - []; -api_a_recvmsg_cancel_tcp6(doc) -> - []; api_a_recvmsg_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(10)), Nowait = nowait(Config), @@ -9407,14 +9360,11 @@ api_a_recv_cancel_tcp(InitState) -> %% (from *several* processes), wait some time and then cancel. %% This should result in abort messages to the 'other' processes. IPv4 %% -api_a_mrecvfrom_cancel_udp4(suite) -> - []; -api_a_mrecvfrom_cancel_udp4(doc) -> - []; api_a_mrecvfrom_cancel_udp4(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), tc_try(api_a_mrecvfrom_cancel_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> case socket:recvfrom(Sock, 0, Nowait) of @@ -9440,10 +9390,6 @@ api_a_mrecvfrom_cancel_udp4(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel. %% This should result in abort messages to the 'other' processes. IPv6 %% -api_a_mrecvfrom_cancel_udp6(suite) -> - []; -api_a_mrecvfrom_cancel_udp6(doc) -> - []; api_a_mrecvfrom_cancel_udp6(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), @@ -9474,14 +9420,11 @@ api_a_mrecvfrom_cancel_udp6(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel. %% This should result in abort messages to the 'other' processes. IPv4 %% -api_a_mrecvmsg_cancel_udp4(suite) -> - []; -api_a_mrecvmsg_cancel_udp4(doc) -> - []; api_a_mrecvmsg_cancel_udp4(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), tc_try(api_a_mrecvmsg_cancel_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> case socket:recvmsg(Sock, Nowait) of @@ -9507,10 +9450,6 @@ api_a_mrecvmsg_cancel_udp4(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel. %% This should result in abort messages to the 'other' processes. IPv6 %% -api_a_mrecvmsg_cancel_udp6(suite) -> - []; -api_a_mrecvmsg_cancel_udp6(doc) -> - []; api_a_mrecvmsg_cancel_udp6(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), @@ -9928,14 +9867,11 @@ api_a_mrecv_cancel_udp(InitState) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv4 %% -api_a_maccept_cancel_tcp4(suite) -> - []; -api_a_maccept_cancel_tcp4(doc) -> - []; api_a_maccept_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), tc_try(api_a_maccept_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Accept = fun(Sock) -> case socket:accept(Sock, Nowait) of @@ -9962,10 +9898,6 @@ api_a_maccept_cancel_tcp4(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv6 %% -api_a_maccept_cancel_tcp6(suite) -> - []; -api_a_maccept_cancel_tcp6(doc) -> - []; api_a_maccept_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), @@ -10387,14 +10319,11 @@ api_a_maccept_cancel_tcp(InitState) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv4 %% -api_a_mrecv_cancel_tcp4(suite) -> - []; -api_a_mrecv_cancel_tcp4(doc) -> - []; api_a_mrecv_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), tc_try(api_a_mrecv_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recv(Sock, 0, Nowait) @@ -10413,10 +10342,6 @@ api_a_mrecv_cancel_tcp4(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv6 %% -api_a_mrecv_cancel_tcp6(suite) -> - []; -api_a_mrecv_cancel_tcp6(doc) -> - []; api_a_mrecv_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), @@ -10440,14 +10365,11 @@ api_a_mrecv_cancel_tcp6(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv4 %% -api_a_mrecvmsg_cancel_tcp4(suite) -> - []; -api_a_mrecvmsg_cancel_tcp4(doc) -> - []; api_a_mrecvmsg_cancel_tcp4(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), tc_try(api_a_mrecvmsg_cancel_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recvmsg(Sock, Nowait) @@ -10466,10 +10388,6 @@ api_a_mrecvmsg_cancel_tcp4(Config) when is_list(Config) -> %% (from *several* processes), wait some time and then cancel, %% This should result in abort messages to the 'other' processes. IPv6 %% -api_a_mrecvmsg_cancel_tcp6(suite) -> - []; -api_a_mrecvmsg_cancel_tcp6(doc) -> - []; api_a_mrecvmsg_cancel_tcp6(Config) when is_list(Config) -> ?TT(?SECS(20)), Nowait = nowait(Config), @@ -11037,10 +10955,6 @@ api_a_mrecv_cancel_tcp(InitState) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Perform some simple getopt and setopt with the level = otp options -api_opt_simple_otp_options(suite) -> - []; -api_opt_simple_otp_options(doc) -> - []; api_opt_simple_otp_options(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_simple_otp_options, @@ -11304,7 +11218,8 @@ api_opt_simple_otp_options() -> %% *** We are done *** #{desc => "finish", - cmd => fun(_) -> + cmd => fun(#{ dummy := Dummy }) -> + Dummy ! die, {ok, normal} end} ], @@ -11324,10 +11239,6 @@ api_opt_simple_otp_options() -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Perform some simple getopt and setopt otp meta option -api_opt_simple_otp_meta_option(suite) -> - []; -api_opt_simple_otp_meta_option(doc) -> - []; api_opt_simple_otp_meta_option(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_simple_otp_meta_option, @@ -11504,10 +11415,6 @@ api_opt_simple_otp_meta_option() -> %% Perform some simple operations with the rcvbuf otp option %% The operations we test here are only for type = stream and %% protocol = tcp. -api_opt_simple_otp_rcvbuf_option(suite) -> - []; -api_opt_simple_otp_rcvbuf_option(doc) -> - []; api_opt_simple_otp_rcvbuf_option(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(api_opt_simple_otp_rcvbuf_option, @@ -12150,7 +12057,7 @@ api_opt_simple_otp_rcvbuf_option() -> %% Create a data binary of 6*1024 bytes Data = list_to_binary(lists:duplicate(6*4, lists:seq(0, 255))), - InitState = #{domain => inet, + InitState = #{domain => inet_or_inet6(), data => Data}, i("create server evaluator"), @@ -12175,10 +12082,6 @@ api_opt_simple_otp_rcvbuf_option() -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Perform some simple getopt and setopt with the level = otp options -api_opt_simple_otp_controlling_process(suite) -> - []; -api_opt_simple_otp_controlling_process(doc) -> - []; api_opt_simple_otp_controlling_process(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_simple_otp_controlling_process, @@ -12399,7 +12302,7 @@ api_opt_simple_otp_controlling_process() -> Client1 = ?SEV_START("tcp-client", ClientSeq, ClientInitState1), i("start tcp (stream) tester evaluator"), - TesterInitState1 = #{domain => inet, + TesterInitState1 = #{domain => inet, type => stream, protocol => tcp, client => Client1#ev.pid}, @@ -12413,7 +12316,7 @@ api_opt_simple_otp_controlling_process() -> Client2 = ?SEV_START("udp-client", ClientSeq, ClientInitState2), i("start udp (dgram) tester evaluator"), - TesterInitState2 = #{domain => inet, + TesterInitState2 = #{domain => inet, type => dgram, protocol => udp, client => Client2#ev.pid}, @@ -12429,10 +12332,6 @@ api_opt_simple_otp_controlling_process() -> %% Tests the socket option acceptconn for UDP. %% This should be possible to get but not set. -api_opt_sock_acceptconn_udp(suite) -> - []; -api_opt_sock_acceptconn_udp(doc) -> - []; api_opt_sock_acceptconn_udp(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_sock_acceptconn_udp, @@ -12561,7 +12460,7 @@ api_opt_sock_acceptconn_udp() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -12577,10 +12476,6 @@ api_opt_sock_acceptconn_udp() -> %% Tests the socket option acceptconn for TCP. %% This should be possible to get but not set. -api_opt_sock_acceptconn_tcp(suite) -> - []; -api_opt_sock_acceptconn_tcp(doc) -> - []; api_opt_sock_acceptconn_tcp(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_sock_acceptconn_tcp, @@ -12917,7 +12812,7 @@ api_opt_sock_acceptconn_tcp() -> ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -12932,10 +12827,6 @@ api_opt_sock_acceptconn_tcp() -> %% Tests the socket option acceptfilter. PLACEHOLDER! -api_opt_sock_acceptfilter(suite) -> - []; -api_opt_sock_acceptfilter(doc) -> - []; api_opt_sock_acceptfilter(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_sock_acceptfilter, @@ -12948,12 +12839,8 @@ api_opt_sock_acceptfilter(_Config) when is_list(_Config) -> %% Tests the socket option bindtodevice. %% It has not always been possible to 'get' this option -%% (atleast on linux). +%% (at least on linux). -api_opt_sock_bindtodevice(suite) -> - []; -api_opt_sock_bindtodevice(doc) -> - []; api_opt_sock_bindtodevice(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_sock_bindtodevice, @@ -13221,7 +13108,7 @@ api_opt_sock_bindtodevice() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -13238,10 +13125,6 @@ api_opt_sock_bindtodevice() -> %% Make it possible for datagram sockets to send packets to a broadcast %% address (IPv4 only). -api_opt_sock_broadcast(suite) -> - []; -api_opt_sock_broadcast(doc) -> - []; api_opt_sock_broadcast(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_sock_broadcast, @@ -13468,7 +13351,7 @@ api_opt_sock_broadcast() -> (#{sock3 := Sock, sa1 := Dest} = _State) -> Data = list_to_binary("hejsan"), - ?SEV_IPRINT("try send to bradcast address: " + ?SEV_IPRINT("try send to broadcast address: " "~n ~p", [Dest]), case socket:sendto(Sock, Data, Dest) of ok -> @@ -13514,7 +13397,7 @@ api_opt_sock_broadcast() -> cmd => fun(#{sock3 := Sock, sa2 := Dest} = _State) -> Data = list_to_binary("hejsan"), - ?SEV_IPRINT("try send to bradcast address: " + ?SEV_IPRINT("try send to broadcast address: " "~n ~p", [Dest]), case socket:sendto(Sock, Data, Dest) of ok -> @@ -13572,7 +13455,7 @@ api_opt_sock_broadcast() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -13588,13 +13471,9 @@ api_opt_sock_broadcast() -> %% Tests the socket option debug. %% On linux, this test requires that the user running the test to have %% CAP_NET_ADMIN capabilities or be root (effective user ID of 0), -%% therefor we explicitly test for the result eacces when attempting to +%% therefore we explicitly test for the result eacces when attempting to %% set, and skip if we get it. -api_opt_sock_debug(suite) -> - []; -api_opt_sock_debug(doc) -> - []; api_opt_sock_debug(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_debug, @@ -13617,19 +13496,14 @@ api_opt_sock_debug() -> cmd => fun(#{domain := Domain} = State) -> case ?LIB:which_local_host_info(Domain) of {ok, #{name := Name, - addr := Addr, - broadaddr := BAddr}} -> + addr := Addr}} -> ?SEV_IPRINT("local host info: " "~n Name: ~p" - "~n Addr: ~p" - "~n Broadcast Addr: ~p", - [Name, Addr, BAddr]), + "~n Addr: ~p", + [Name, Addr]), LSA = #{family => Domain, addr => Addr}, - BSA = #{family => Domain, - addr => BAddr}, - {ok, State#{lsa => LSA, - bsa => BSA}}; + {ok, State#{lsa => LSA}}; {error, _} = ERROR -> ERROR end @@ -13697,7 +13571,7 @@ api_opt_sock_debug() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -13713,10 +13587,6 @@ api_opt_sock_debug() -> %% Tests the socket option domain. %% This is a read only option. Also not available on all platforms. -api_opt_sock_domain(suite) -> - []; -api_opt_sock_domain(doc) -> - []; api_opt_sock_domain(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_domain, @@ -13736,19 +13606,14 @@ api_opt_sock_domain() -> cmd => fun(#{domain := Domain} = State) -> case ?LIB:which_local_host_info(Domain) of {ok, #{name := Name, - addr := Addr, - broadaddr := BAddr}} -> + addr := Addr}} -> ?SEV_IPRINT("local host info: " "~n Name: ~p" - "~n Addr: ~p" - "~n Broadcast Addr: ~p", - [Name, Addr, BAddr]), + "~n Addr: ~p", + [Name, Addr]), LSA = #{family => Domain, addr => Addr}, - BSA = #{family => Domain, - addr => BAddr}, - {ok, State#{lsa => LSA, - bsa => BSA}}; + {ok, State#{lsa => LSA}}; {error, _} = ERROR -> ERROR end @@ -13815,7 +13680,7 @@ api_opt_sock_domain() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -13838,10 +13703,6 @@ api_opt_sock_domain() -> %% other side"), we only test if we can set and get the value. %% Better then nothing. -api_opt_sock_dontroute(suite) -> - []; -api_opt_sock_dontroute(doc) -> - []; api_opt_sock_dontroute(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_dontroute, @@ -13864,19 +13725,14 @@ api_opt_sock_dontroute() -> cmd => fun(#{domain := Domain} = State) -> case ?LIB:which_local_host_info(Domain) of {ok, #{name := Name, - addr := Addr, - broadaddr := BAddr}} -> + addr := Addr}} -> ?SEV_IPRINT("local host info: " "~n Name: ~p" - "~n Addr: ~p" - "~n Broadcast Addr: ~p", - [Name, Addr, BAddr]), + "~n Addr: ~p", + [Name, Addr]), LSA = #{family => Domain, addr => Addr}, - BSA = #{family => Domain, - addr => BAddr}, - {ok, State#{lsa => LSA, - bsa => BSA}}; + {ok, State#{lsa => LSA}}; {error, _} = ERROR -> ERROR end @@ -13946,7 +13802,7 @@ api_opt_sock_dontroute() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -13961,10 +13817,6 @@ api_opt_sock_dontroute() -> %% Tests the socket option error. PLACEHOLDER! -api_opt_sock_error(suite) -> - []; -api_opt_sock_error(doc) -> - []; api_opt_sock_error(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_error, @@ -13980,10 +13832,6 @@ api_opt_sock_error(_Config) when is_list(_Config) -> %% the underlying TCP timeouts. So, for now, we just test that we can %% change the value. -api_opt_sock_keepalive(suite) -> - []; -api_opt_sock_keepalive(doc) -> - []; api_opt_sock_keepalive(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_keepalive, @@ -14006,19 +13854,14 @@ api_opt_sock_keepalive() -> cmd => fun(#{domain := Domain} = State) -> case ?LIB:which_local_host_info(Domain) of {ok, #{name := Name, - addr := Addr, - broadaddr := BAddr}} -> + addr := Addr}} -> ?SEV_IPRINT("local host info: " "~n Name: ~p" - "~n Addr: ~p" - "~n Broadcast Addr: ~p", - [Name, Addr, BAddr]), + "~n Addr: ~p", + [Name, Addr]), LSA = #{family => Domain, addr => Addr}, - BSA = #{family => Domain, - addr => BAddr}, - {ok, State#{lsa => LSA, - bsa => BSA}}; + {ok, State#{lsa => LSA}}; {error, _} = ERROR -> ERROR end @@ -14090,7 +13933,7 @@ api_opt_sock_keepalive() -> ?SEV_FINISH_NORMAL ], - Domain = inet, + Domain = inet_or_inet6(), i("start tester evaluator"), InitState = #{domain => Domain}, @@ -14105,10 +13948,6 @@ api_opt_sock_keepalive() -> %% Tests the socket option linger. PLACEHOLDER! -api_opt_sock_linger(suite) -> - []; -api_opt_sock_linger(doc) -> - []; api_opt_sock_linger(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_linger, @@ -14121,10 +13960,6 @@ api_opt_sock_linger(_Config) when is_list(_Config) -> %% Tests the socket option mark. PLACEHOLDER! -api_opt_sock_mark(suite) -> - []; -api_opt_sock_mark(doc) -> - []; api_opt_sock_mark(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_opt_sock_mark, @@ -14141,7 +13976,7 @@ api_opt_sock_mark(_Config) when is_list(_Config) -> %% %% socket:setopt(Sock, socket, oobinline, boolean()). %% -%% This works on linux of some version (atleast linux kernel 4.15.0), +%% This works on linux of some version (at least linux kernel 4.15.0), %% but not on FreeBSD (12) for some reason. Until we have figured out %% exctly why, we skip a bunch of OSs... %% @@ -14150,10 +13985,6 @@ api_opt_sock_mark(_Config) when is_list(_Config) -> %% linux but maybe not in, say, FreeBSD). %% -api_opt_sock_oobinline(suite) -> - []; -api_opt_sock_oobinline(doc) -> - []; api_opt_sock_oobinline(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_ooinline, @@ -14179,7 +14010,7 @@ api_opt_sock_oobinline(_Config) when is_list(_Config) -> (Sock, false) -> socket:recv(Sock) end, - InitState = #{domain => inet, + InitState = #{domain => inet_or_inet6(), proto => tcp, send => Send, recv => Recv, @@ -14783,10 +14614,6 @@ do_api_opt_sock_oobinline(InitState) -> %% As it is now, the client does *not* get any credentials! %% Until this has been done, this case is skipped!. -api_opt_sock_passcred_tcp4(suite) -> - []; -api_opt_sock_passcred_tcp4(doc) -> - []; api_opt_sock_passcred_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_passcred_tcp4, @@ -15574,10 +15401,6 @@ api_opt_sock_passcred_tcp(InitState) -> %% %% -api_opt_sock_peek_off_tcpL(suite) -> - []; -api_opt_sock_peek_off_tcpL(doc) -> - []; api_opt_sock_peek_off_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_peek_off_tcpL, @@ -16125,7 +15948,7 @@ api_opt_sock_peek_off(InitState) -> %% There is no way to be sure that the data has actually arrived, %% and with no data on the server side, the peek will fail. - %% Hopfully a sleep will take care of this... + %% Hopefully a sleep will take care of this... ?SEV_SLEEP(?SECS(1)), %% 1) peek @@ -16288,7 +16111,7 @@ api_opt_sock_peek_off(InitState) -> %% Tests that we get the peer credentials for a connected unix domain %% TCP (stream) socket. -%% That is, all we need to do is to create a slave node, and have +%% That is, all we need to do is to create a node, and have %% process connect from that to a local (unix domain socket) socket. %% %% THIS IS A PLACEHOLDER!! @@ -16297,10 +16120,6 @@ api_opt_sock_peek_off(InitState) -> %% and decode it... %% -api_opt_sock_peercred_tcpL(suite) -> - []; -api_opt_sock_peercred_tcpL(doc) -> - []; api_opt_sock_peercred_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_peercred_tcpL, @@ -16477,11 +16296,11 @@ api_opt_sock_peercred_tcp(_InitState) -> %% #{desc => "create node", %% cmd => fun(#{host := Host} = State) -> %% ?SEV_IPRINT("try create node on ~p", [Host]), - %% case start_node(Host, client) of - %% {ok, Node} -> + %% case ?CT_PEER() of + %% {ok, Peer, Node} -> %% ?SEV_IPRINT("client node ~p started", %% [Node]), - %% {ok, State#{node => Node}}; + %% {ok, State#{node => Node, peer => Peer}}; %% {error, Reason} -> %% {skip, Reason} %% end @@ -16590,8 +16409,8 @@ api_opt_sock_peercred_tcp(_InitState) -> %% {ok, State1} %% end}, %% #{desc => "stop client node", - %% cmd => fun(#{node := Node} = _State) -> - %% stop_node(Node) + %% cmd => fun(#{peer := Peer} = _State) -> + %% peer:stop(Peer) %% end}, %% #{desc => "await client node termination", %% cmd => fun(#{node := Node} = State) -> @@ -16836,14 +16655,10 @@ api_opt_sock_peercred_tcp(_InitState) -> %% %% -api_opt_sock_priority_udp4(suite) -> - []; -api_opt_sock_priority_udp4(doc) -> - []; api_opt_sock_priority_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_priority_udp4, - fun() -> has_support_sock_priority() end, + fun() -> has_support_ipv4(), has_support_sock_priority() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, socket, priority, Value) @@ -16869,14 +16684,10 @@ api_opt_sock_priority_udp4(_Config) when is_list(_Config) -> %% %% -api_opt_sock_priority_tcp4(suite) -> - []; -api_opt_sock_priority_tcp4(doc) -> - []; api_opt_sock_priority_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_priority_tcp4, - fun() -> has_support_sock_priority() end, + fun() -> has_support_ipv4(), has_support_sock_priority() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, socket, priority, Value) @@ -17010,14 +16821,10 @@ api_opt_sock_priority(InitState) -> %% %% -api_opt_sock_rcvbuf_udp4(suite) -> - []; -api_opt_sock_rcvbuf_udp4(doc) -> - []; api_opt_sock_rcvbuf_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_rcvbuf_udp4, - fun() -> has_support_sock_rcvbuf() end, + fun() -> has_support_ipv4(), has_support_sock_rcvbuf() end, fun() -> ok = api_opt_sock_buf_udp4(rcvbuf) end). @@ -17031,14 +16838,10 @@ api_opt_sock_rcvbuf_udp4(_Config) when is_list(_Config) -> %% %% -api_opt_sock_sndbuf_udp4(suite) -> - []; -api_opt_sock_sndbuf_udp4(doc) -> - []; api_opt_sock_sndbuf_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_sndbuf_udp4, - fun() -> has_support_sock_sndbuf() end, + fun() -> has_support_ipv4(), has_support_sock_sndbuf() end, fun() -> ok = api_opt_sock_buf_udp4(sndbuf) end). @@ -17167,14 +16970,10 @@ api_opt_sock_buf(InitState) -> %% but we don't (we just set the value and read it back...) %% -api_opt_sock_rcvtimeo_udp4(suite) -> - []; -api_opt_sock_rcvtimeo_udp4(doc) -> - []; api_opt_sock_rcvtimeo_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_rcvtimeo_udp4, - fun() -> has_support_sock_rcvtimeo() end, + fun() -> has_support_ipv4(), has_support_sock_rcvtimeo() end, fun() -> ok = api_opt_sock_timeo_udp4(rcvtimeo) end). @@ -17188,14 +16987,10 @@ api_opt_sock_rcvtimeo_udp4(_Config) when is_list(_Config) -> %% %% -api_opt_sock_sndtimeo_udp4(suite) -> - []; -api_opt_sock_sndtimeo_udp4(doc) -> - []; api_opt_sock_sndtimeo_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_sndtimeo_udp4, - fun() -> has_support_sock_sndtimeo() end, + fun() -> has_support_ipv4(), has_support_sock_sndtimeo() end, fun() -> ok = api_opt_sock_timeo_udp4(sndtimeo) end). @@ -17291,7 +17086,7 @@ api_opt_sock_timeo(InitState) -> ok; {ok, #{sec := Sec}} when (ExpSec =:= Sec) -> %% For some reason OpenBSD "adjusts" the timeout, - %% so that usec does not (allways match) + %% so that usec does not (always match) ?SEV_IPRINT("timeout (approx) validated"), ok; {ok, TO} -> @@ -17338,14 +17133,10 @@ api_opt_sock_timeo(InitState) -> %% %% -api_opt_sock_rcvlowat_udp4(suite) -> - []; -api_opt_sock_rcvlowat_udp4(doc) -> - []; api_opt_sock_rcvlowat_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_rcvlowat_udp4, - fun() -> has_support_sock_rcvlowat() end, + fun() -> has_support_ipv4(), has_support_sock_rcvlowat() end, fun() -> ok = api_opt_sock_lowat_udp4(rcvlowat) end). @@ -17361,14 +17152,10 @@ api_opt_sock_rcvlowat_udp4(_Config) when is_list(_Config) -> %% so we skip if we get ENOPROTOOPT when attempting a change. %% -api_opt_sock_sndlowat_udp4(suite) -> - []; -api_opt_sock_sndlowat_udp4(doc) -> - []; api_opt_sock_sndlowat_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_sndlowat_udp4, - fun() -> has_support_sock_sndlowat() end, + fun() -> has_support_ipv4(), has_support_sock_sndlowat() end, fun() -> ok = api_opt_sock_lowat_udp4(sndlowat) end). @@ -17505,14 +17292,10 @@ api_opt_sock_lowat(InitState) -> %% All subsequent *received* messages will be timestamped. %% -api_opt_sock_timestamp_udp4(suite) -> - []; -api_opt_sock_timestamp_udp4(doc) -> - []; api_opt_sock_timestamp_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_timestamp_udp4, - fun() -> has_support_sock_timestamp() end, + fun() -> has_support_ipv4(), has_support_sock_timestamp() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, socket, timestamp, Value) @@ -17891,14 +17674,11 @@ api_opt_sock_timestamp_udp(InitState) -> %% Don't actually know if its the distro or the (kernel) version... %% -api_opt_sock_timestamp_tcp4(suite) -> - []; -api_opt_sock_timestamp_tcp4(doc) -> - []; api_opt_sock_timestamp_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_sock_timestamp_tcp4, fun() -> + has_support_ipv4(), has_support_sock_timestamp(), is_good_enough_linux({4,4,120}), is_not_freebsd(), @@ -18311,7 +18091,7 @@ api_opt_sock_timestamp_tcp(InitState) -> ERROR end end}, - %% Linux pecularity observed here... + %% Linux peculiarity observed here... %% Detected on Kernel 4.15.0-72 x96_64. %% The option set to enable receiving timestamps just above %% has failed to be effective down in "await recv reply 2 @@ -18696,10 +18476,9 @@ api_opt_sock_timestamp_tcp(InitState) -> %% When sending, the dest will be the multicast address %% and port of the receiving socket. %% Receiving socket: Bound to the multicast address and port. -api_opt_ip_add_drop_membership(suite) -> - []; -api_opt_ip_add_drop_membership(doc) -> - ["OTP-15908 (ERL-980)"]; +api_opt_ip_add_drop_membership() -> + [{doc, "OTP-15908 (ERL-980)"}]. + api_opt_ip_add_drop_membership(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(api_opt_ip_add_drop_membership, @@ -18708,10 +18487,10 @@ api_opt_ip_add_drop_membership(_Config) when is_list(_Config) -> has_support_ip_drop_membership(), has_support_ip_multicast() end, - fun() -> api_opt_ip_add_drop_membership() end). + fun() -> api_opt_ip_add_drop_membership_do() end). -api_opt_ip_add_drop_membership() -> +api_opt_ip_add_drop_membership_do() -> Set = fun(S, Key, Val) -> socket:setopt(S, ip, Key, Val) end, @@ -19038,14 +18817,10 @@ which_local_host_ifname(Domain) -> %% we do not test!! %% -api_opt_ip_pktinfo_udp4(suite) -> - []; -api_opt_ip_pktinfo_udp4(doc) -> - []; api_opt_ip_pktinfo_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_pktinfo_udp4, - fun() -> has_support_ip_pktinfo() end, + fun() -> has_support_ipv4(), has_support_ip_pktinfo() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, ip, pktinfo, Value) @@ -19394,14 +19169,11 @@ api_opt_ip_pktinfo_udp(InitState) -> %% </NOTE> %% -api_opt_ip_recvopts_udp4(suite) -> - []; -api_opt_ip_recvopts_udp4(doc) -> - []; api_opt_ip_recvopts_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_recvopts_udp4, fun() -> + has_support_ipv4(), has_support_ip_recvopts(), %% We also use the recvtos and timestamp options %% in this test, so at least one of them must @@ -19853,14 +19625,10 @@ api_opt_ip_recvopts_udp(InitState) -> %% %% -api_opt_ip_recvorigdstaddr_udp4(suite) -> - []; -api_opt_ip_recvorigdstaddr_udp4(doc) -> - []; api_opt_ip_recvorigdstaddr_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_recvorigdstaddr_udp4, - fun() -> has_support_ip_recvorigdstaddr() end, + fun() -> has_support_ipv4(), has_support_ip_recvorigdstaddr() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, ip, recvorigdstaddr, Value) @@ -20109,14 +19877,11 @@ api_opt_ip_recvorigdstaddr_udp(InitState) -> %% that method. Instead, set tos (true) on the sending socket. %% -api_opt_ip_recvtos_udp4(suite) -> - []; -api_opt_ip_recvtos_udp4(doc) -> - []; api_opt_ip_recvtos_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_recvtos_udp4, fun() -> + has_support_ipv4(), has_support_ip_recvtos(), has_support_ip_tos() % Used in the test end, @@ -20486,14 +20251,11 @@ api_opt_ip_recvtos_udp(InitState) -> %% skip darwin and OpenBSD. %% -api_opt_ip_recvttl_udp4(suite) -> - []; -api_opt_ip_recvttl_udp4(doc) -> - []; api_opt_ip_recvttl_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_recvttl_udp4, fun() -> + has_support_ipv4(), has_support_ip_recvttl(), is_not_openbsd(), is_not_darwin() @@ -20872,14 +20634,10 @@ api_opt_ip_recvttl_udp(InitState) -> %% Default value is supposed to be '0'. %% -api_opt_ip_tos_udp4(suite) -> - []; -api_opt_ip_tos_udp4(doc) -> - []; api_opt_ip_tos_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_tos_udp4, - fun() -> has_support_ip_tos() end, + fun() -> has_support_ipv4(), has_support_ip_tos() end, fun() -> Set = fun(Sock, Value) -> socket:setopt(Sock, ip, tos, Value) @@ -20900,7 +20658,7 @@ api_opt_ip_tos_udp(InitState) -> process_flag(trap_exit, true), %% mincost is not supported on all platforms. %% For instance, Solaris 10, does not have that constant. - %% Instead it has two others with, what appers to be, + %% Instead it has two others with, what appears to be, %% completely different meanings... %% So, avoid the complication by not using this value... %% TOS1 = mincost, TOS1Str = atom_to_list(TOS1), @@ -21118,14 +20876,11 @@ api_opt_ip_tos_udp(InitState) -> %% queue can be read. %% -api_opt_ip_recverr_udp4(suite) -> - []; -api_opt_ip_recverr_udp4(doc) -> - []; api_opt_ip_recverr_udp4(Config) when is_list(Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_recverr_udp4, fun() -> + has_support_ipv4(), has_support_ip_recverr() end, fun() -> @@ -21157,10 +20912,6 @@ api_opt_ip_recverr_udp4(Config) when is_list(Config) -> %% queue can be read. %% -api_opt_ipv6_recverr_udp6(suite) -> - []; -api_opt_ipv6_recverr_udp6(doc) -> - []; api_opt_ipv6_recverr_udp6(Config) when is_list(Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_recverr_udp6, @@ -21249,7 +21000,7 @@ api_opt_recverr_udp(Config, InitState) -> "~n ~p", [SelectInfo]), {ok, State#{rselect => SelectInfo}}; {ok, _} -> - ?SEV_EPRINT("unexpected successs"), + ?SEV_EPRINT("unexpected success"), {error, unexpected_success}; {error, Reason} = ERROR -> ?SEV_EPRINT("unexpected error: ~p", [Reason]), @@ -21310,7 +21061,7 @@ api_opt_recverr_udp(Config, InitState) -> ?SEV_IPRINT("expected failure: ~p", [Reason]), ok; {ok, _} -> - ?SEV_EPRINT("unexpected successs"), + ?SEV_EPRINT("unexpected success"), {error, unexpected_success}; {select, SelectInfo} -> ?SEV_EPRINT("unexpected select: ~p", @@ -21448,14 +21199,11 @@ api_opt_recverr_udp(Config, InitState) -> %% the test (since its a IPv4 test case). %% -api_opt_ip_mopts_udp4(suite) -> - []; -api_opt_ip_mopts_udp4(doc) -> - []; api_opt_ip_mopts_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ip_mopts_udp4, fun() -> + has_support_ipv4(), case is_any_options_supported( [{ip, pktinfo}, {ip, recvorigdstaddr}, @@ -21789,10 +21537,6 @@ api_opt_ip_mopts_udp(InitState) -> %% although we only test this with dgram. %% -api_opt_ipv6_recvpktinfo_udp6(suite) -> - []; -api_opt_ipv6_recvpktinfo_udp6(doc) -> - []; api_opt_ipv6_recvpktinfo_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_recvpktinfo_udp6, @@ -22052,14 +21796,10 @@ api_opt_ipv6_recvpktinfo_udp(InitState) -> %% There seem to be some weirdness with the definition of this %% option, so its defined in an include file we don't include %% (directly or indirectly). And since some of the defines -%% are occure in a file we *do* include (via netinet/in.h), we +%% occur in a file we *do* include (via netinet/in.h), we %% leave it as is for now... %% -api_opt_ipv6_flowinfo_udp6(suite) -> - []; -api_opt_ipv6_flowinfo_udp6(doc) -> - []; api_opt_ipv6_flowinfo_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_flowinfo_udp6, @@ -22315,10 +22055,6 @@ api_opt_ipv6_flowinfo_udp(InitState) -> %% </Note> %% -api_opt_ipv6_hoplimit_udp6(suite) -> - []; -api_opt_ipv6_hoplimit_udp6(doc) -> - []; api_opt_ipv6_hoplimit_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_hoplimit_udp6, @@ -22606,10 +22342,6 @@ api_opt_ipv6_hoplimit_udp(InitState) -> %% </Note> %% -api_opt_ipv6_tclass_udp6(suite) -> - []; -api_opt_ipv6_tclass_udp6(doc) -> - []; api_opt_ipv6_tclass_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_tclass_udp6, @@ -22963,10 +22695,6 @@ api_opt_ipv6_tclass_udp(InitState) -> %% the test (since its a IPv6 test case). %% -api_opt_ipv6_mopts_udp6(suite) -> - []; -api_opt_ipv6_mopts_udp6(doc) -> - []; api_opt_ipv6_mopts_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_ipv6_mopts_udp6, @@ -23254,18 +22982,14 @@ api_opt_ipv6_mopts_udp(InitState) -> %% According to the man page (on linux) for this option it *should* be %% possible to both get and set *allowed* algorithms. But when we attempt %% to set, we get 'enoent'. -%% Accoring to /proc/sys/net/ipv4/tcp_allowed_congestion_control that +%% According to /proc/sys/net/ipv4/tcp_allowed_congestion_control that %% allgorithm was allowed, so... %% For now, we only test that we can get (it could be a bug in our code) -api_opt_tcp_congestion_tcp4(suite) -> - []; -api_opt_tcp_congestion_tcp4(doc) -> - []; api_opt_tcp_congestion_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_tcp_congestion_tcp4, - fun() -> has_support_tcp_congestion() end, + fun() -> has_support_ipv4(), has_support_tcp_congestion() end, fun() -> Set = fun(Sock, Value) when is_list(Value) -> socket:setopt(Sock, tcp, congestion, Value) @@ -23449,14 +23173,10 @@ api_opt_tcp_congestion_tcp(InitState) -> %% Reading the man page it seems like (on linux) that the %% value resets itself after some (short) time... -api_opt_tcp_cork_tcp4(suite) -> - []; -api_opt_tcp_cork_tcp4(doc) -> - []; api_opt_tcp_cork_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_tcp_cork_tcp4, - fun() -> has_support_tcp_cork() end, + fun() -> has_support_ipv4(), has_support_tcp_cork() end, fun() -> Set = fun(Sock, Value) when is_boolean(Value) -> socket:setopt(Sock, tcp, cork, Value) @@ -23568,17 +23288,13 @@ api_opt_tcp_cork_tcp(InitState) -> %% %% Note that there is no point in reading this value back, %% since the kernel imposes its own rules with regard -%% to what is an acceptible value. +%% to what is an acceptable value. %% -api_opt_tcp_maxseg_tcp4(suite) -> - []; -api_opt_tcp_maxseg_tcp4(doc) -> - []; api_opt_tcp_maxseg_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_tcp_maxseg_tcp4, - fun() -> has_support_tcp_maxseg() end, + fun() -> has_support_ipv4(), has_support_tcp_maxseg() end, fun() -> Set = fun(Sock, Value) when is_integer(Value) -> socket:setopt(Sock, tcp, maxseg, Value) @@ -23644,7 +23360,7 @@ api_opt_tcp_maxseg_tcp(InitState) -> %% Note that there is no point in reading this value back, %% since the kernel imposes its own rules with regard - %% to what is an acceptible value. + %% to what is an acceptable value. %% So, even if the set operation is a success, the value %% still might not have changed. %% @@ -23698,14 +23414,10 @@ api_opt_tcp_maxseg_tcp(InitState) -> %% This is a very simple test. We simple set and get the value. %% To test that it has an effect is just "to much work"... -api_opt_tcp_nodelay_tcp4(suite) -> - []; -api_opt_tcp_nodelay_tcp4(doc) -> - []; api_opt_tcp_nodelay_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_tcp_nodelay_tcp4, - fun() -> has_support_tcp_nodelay() end, + fun() -> has_support_ipv4(), has_support_tcp_nodelay() end, fun() -> Set = fun(Sock, Value) when is_boolean(Value) -> socket:setopt(Sock, tcp, nodelay, Value) @@ -23816,14 +23528,10 @@ api_opt_tcp_nodelay_tcp(InitState) -> %% To test that it has an effect is just "to much work"... %% -api_opt_udp_cork_udp4(suite) -> - []; -api_opt_udp_cork_udp4(doc) -> - []; api_opt_udp_cork_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(api_opt_udp_cork_udp4, - fun() -> has_support_udp_cork() end, + fun() -> has_support_ipv4(), has_support_udp_cork() end, fun() -> Set = fun(Sock, Value) when is_boolean(Value) -> socket:setopt(Sock, udp, cork, Value) @@ -23939,13 +23647,9 @@ api_opt_udp_cork_udp(InitState) -> %% This test case is intended to test the connect timeout option %% on an IPv4 TCP (stream) socket. -api_to_connect_tcp4(suite) -> - []; -api_to_connect_tcp4(doc) -> - []; api_to_connect_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), - Cond = fun() -> api_to_connect_cond() end, + Cond = fun() -> has_support_ipv4(), api_to_connect_cond() end, tc_try(api_to_connect_tcp4, Cond, fun() -> @@ -23961,7 +23665,7 @@ api_to_connect_cond() -> %% I don't know exactly at which version this starts to work. %% I know it does not work for 4.4.*, but is does for 4.15. -%% So, just to simplify, we require atleast 4.15 +%% So, just to simplify, we require at least 4.15 api_to_connect_cond({unix, linux}, {Maj, Min, _Rev}) -> if (Maj > 4) -> @@ -23998,10 +23702,6 @@ api_to_connect_cond(_, _) -> %% This test case is intended to test the connect timeout option %% on an IPv6 TCP (stream) socket. -api_to_connect_tcp6(suite) -> - []; -api_to_connect_tcp6(doc) -> - []; api_to_connect_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_connect_tcp6, @@ -24019,7 +23719,7 @@ api_to_connect_tcp6(_Config) when is_list(_Config) -> %% We use the backlog (listen) argument to test this. %% Note that the behaviour of the TCP "server side" can vary when %% a client connect to a "busy" server (full backlog). -%% For instance, on FreeBSD (11.2) the reponse when the backlog is full +%% For instance, on FreeBSD (11.2) the response when the backlog is full %% is a econreset. api_to_connect_tcp(InitState) -> @@ -24119,16 +23819,9 @@ api_to_connect_tcp(InitState) -> {ok, State#{local_sa => LSA}} end}, #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - ?SEV_IPRINT("try create node on ~p", [Host]), - case start_node(Host, client) of - {ok, Node} -> - ?SEV_IPRINT("client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(#{host := _Host} = State) -> + {Peer, Node} = ?START_NODE("client"), + {ok, State#{node => Node, peer => Peer}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -24233,9 +23926,9 @@ api_to_connect_tcp(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -24257,14 +23950,14 @@ api_to_connect_tcp(InitState) -> receive {nodedown, Node} -> ?SEV_IPRINT("nodedown received - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end; (#{node_stop := error} = State) -> ?SEV_IPRINT("Failed node stop - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end}, @@ -24511,13 +24204,10 @@ api_to_connect_tcp_await_timeout3([Sock|Socka]) -> %% This test case is intended to test the accept timeout option %% on an IPv4 TCP (stream) socket. -api_to_accept_tcp4(suite) -> - []; -api_to_accept_tcp4(doc) -> - []; api_to_accept_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_accept_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, timeout => 5000}, ok = api_to_accept_tcp(InitState) @@ -24528,13 +24218,9 @@ api_to_accept_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the accept timeout option %% on an IPv6 TCP (stream) socket. -api_to_accept_tcp6(suite) -> - []; -api_to_accept_tcp6(doc) -> - []; api_to_accept_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), - tc_try(api_to_accept_tcp4, + tc_try(api_to_accept_tcp6, fun() -> has_support_ipv6() end, fun() -> InitState = #{domain => inet6, timeout => 5000}, @@ -24625,13 +24311,10 @@ api_to_accept_tcp(InitState) -> %% This test case is intended to test the multi accept timeout option %% on an IPv4 TCP (stream) socket with multiple acceptor processes %% (three in this case). -api_to_maccept_tcp4(suite) -> - []; -api_to_maccept_tcp4(doc) -> - []; api_to_maccept_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(20)), tc_try(api_to_maccept_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, timeout => 5000}, ok = api_to_maccept_tcp(InitState) @@ -24642,13 +24325,9 @@ api_to_maccept_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the accept timeout option %% on an IPv6 TCP (stream) socket. -api_to_maccept_tcp6(suite) -> - []; -api_to_maccept_tcp6(doc) -> - []; api_to_maccept_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(20)), - tc_try(api_to_maccept_tcp4, + tc_try(api_to_maccept_tcp6, fun() -> has_support_ipv6() end, fun() -> InitState = #{domain => inet6, timeout => 5000}, @@ -24995,12 +24674,9 @@ api_to_maccept_tcp(InitState) -> %% This test case is intended to test the send timeout option %% on an IPv4 TCP (stream) socket. -api_to_send_tcp4(suite) -> - []; -api_to_send_tcp4(doc) -> - []; api_to_send_tcp4(_Config) when is_list(_Config) -> tc_try(api_to_send_tcp4, + fun() -> has_support_ipv4() end, fun() -> not_yet_implemented()%% , %% ok = api_to_send_tcp(inet) @@ -25011,10 +24687,6 @@ api_to_send_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the send timeout option %% on an IPv6 TCP (stream) socket. -api_to_send_tcp6(suite) -> - []; -api_to_send_tcp6(doc) -> - []; api_to_send_tcp6(_Config) when is_list(_Config) -> tc_try(api_to_send_tcp6, fun() -> has_support_ipv6() end, @@ -25028,12 +24700,9 @@ api_to_send_tcp6(_Config) when is_list(_Config) -> %% This test case is intended to test the sendto timeout option %% on an IPv4 UDP (dgram) socket. -api_to_sendto_udp4(suite) -> - []; -api_to_sendto_udp4(doc) -> - []; api_to_sendto_udp4(_Config) when is_list(_Config) -> tc_try(api_to_sendto_udp4, + fun () -> has_support_ipv4() end, fun() -> not_yet_implemented()%% , %% ok = api_to_sendto_to_udp(inet) @@ -25044,10 +24713,6 @@ api_to_sendto_udp4(_Config) when is_list(_Config) -> %% This test case is intended to test the sendto timeout option %% on an IPv6 UDP (dgram) socket. -api_to_sendto_udp6(suite) -> - []; -api_to_sendto_udp6(doc) -> - []; api_to_sendto_udp6(_Config) when is_list(_Config) -> tc_try(api_to_sendto_udp6, fun() -> has_support_ipv6() end, @@ -25061,12 +24726,9 @@ api_to_sendto_udp6(_Config) when is_list(_Config) -> %% This test case is intended to test the sendmsg timeout option %% on an IPv4 TCP (stream) socket. -api_to_sendmsg_tcp4(suite) -> - []; -api_to_sendmsg_tcp4(doc) -> - []; api_to_sendmsg_tcp4(_Config) when is_list(_Config) -> tc_try(api_to_sendmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> not_yet_implemented()%% , %% ok = api_to_sendmsg_tcp(inet) @@ -25077,10 +24739,6 @@ api_to_sendmsg_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the sendmsg timeout option %% on an IPv6 TCP (stream) socket. -api_to_sendmsg_tcp6(suite) -> - []; -api_to_sendmsg_tcp6(doc) -> - []; api_to_sendmsg_tcp6(_Config) when is_list(_Config) -> tc_try(api_to_sendmsg_tcp6, fun() -> has_support_ipv6() end, @@ -25095,12 +24753,9 @@ api_to_sendmsg_tcp6(_Config) when is_list(_Config) -> %% This test case is intended to test the recv timeout option %% on an IPv4 UDP (dgram) socket. To test this we must connect %% the socket. -api_to_recv_udp4(suite) -> - []; -api_to_recv_udp4(doc) -> - []; api_to_recv_udp4(_Config) when is_list(_Config) -> tc_try(api_to_recv_udp4, + fun() -> has_support_ipv4() end, fun() -> not_yet_implemented()%%, %%ok = api_to_recv_udp(inet) @@ -25112,10 +24767,6 @@ api_to_recv_udp4(_Config) when is_list(_Config) -> %% This test case is intended to test the recv timeout option %% on an IPv6 UDP (dgram) socket. To test this we must connect %% the socket. -api_to_recv_udp6(suite) -> - []; -api_to_recv_udp6(doc) -> - []; api_to_recv_udp6(_Config) when is_list(_Config) -> tc_try(api_to_recv_udp6, fun() -> has_support_ipv6() end, @@ -25129,13 +24780,10 @@ api_to_recv_udp6(_Config) when is_list(_Config) -> %% This test case is intended to test the recv timeout option %% on an IPv4 TCP (stream) socket. -api_to_recv_tcp4(suite) -> - []; -api_to_recv_tcp4(doc) -> - []; api_to_recv_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recv_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock, To) -> socket:recv(Sock, 0, To) end, InitState = #{domain => inet, @@ -25149,10 +24797,6 @@ api_to_recv_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the recv timeout option %% on an IPv6 TCP (stream) socket. -api_to_recv_tcp6(suite) -> - []; -api_to_recv_tcp6(doc) -> - []; api_to_recv_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recv_tcp6, @@ -25486,13 +25130,10 @@ api_to_receive_tcp(InitState) -> %% This test case is intended to test the recvfrom timeout option %% on an IPv4 UDP (dgram) socket. -api_to_recvfrom_udp4(suite) -> - []; -api_to_recvfrom_udp4(doc) -> - []; api_to_recvfrom_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvfrom_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock, To) -> socket:recvfrom(Sock, 0, To) end, InitState = #{domain => inet, @@ -25506,10 +25147,6 @@ api_to_recvfrom_udp4(_Config) when is_list(_Config) -> %% This test case is intended to test the recvfrom timeout option %% on an IPv6 UDP (dgram) socket. -api_to_recvfrom_udp6(suite) -> - []; -api_to_recvfrom_udp6(doc) -> - []; api_to_recvfrom_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvfrom_udp6, @@ -25602,13 +25239,10 @@ api_to_receive_udp(InitState) -> %% This test case is intended to test the recvmsg timeout option %% on an IPv4 UDP (dgram) socket. -api_to_recvmsg_udp4(suite) -> - []; -api_to_recvmsg_udp4(doc) -> - []; api_to_recvmsg_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvmsg_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock, To) -> socket:recvmsg(Sock, To) end, InitState = #{domain => inet, @@ -25622,10 +25256,6 @@ api_to_recvmsg_udp4(_Config) when is_list(_Config) -> %% This test case is intended to test the recvmsg timeout option %% on an IPv6 UDP (dgram) socket. -api_to_recvmsg_udp6(suite) -> - []; -api_to_recvmsg_udp6(doc) -> - []; api_to_recvmsg_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvmsg_udp6, @@ -25643,13 +25273,10 @@ api_to_recvmsg_udp6(_Config) when is_list(_Config) -> %% This test case is intended to test the recvmsg timeout option %% on an IPv4 TCP (stream) socket. -api_to_recvmsg_tcp4(suite) -> - []; -api_to_recvmsg_tcp4(doc) -> - []; api_to_recvmsg_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock, To) -> socket:recvmsg(Sock, To) end, InitState = #{domain => inet, @@ -25663,10 +25290,6 @@ api_to_recvmsg_tcp4(_Config) when is_list(_Config) -> %% This test case is intended to test the recvmsg timeout option %% on an IPv6 TCP (stream) socket. -api_to_recvmsg_tcp6(suite) -> - []; -api_to_recvmsg_tcp6(doc) -> - []; api_to_recvmsg_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(api_to_recvmsg_tcp6, @@ -25693,10 +25316,6 @@ api_to_recvmsg_tcp6(_Config) when is_list(_Config) -> %% We create a bunch of different sockets and ensure that the registry %% has the correct info. -reg_s_single_open_and_close_and_count(suite) -> - []; -reg_s_single_open_and_close_and_count(doc) -> - []; reg_s_single_open_and_close_and_count(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(reg_s_single_open_and_close_and_count, @@ -26086,10 +25705,6 @@ reg_sr_num2(Existing, F) -> %% We create a bunch of different sockets and ensure that the registry %% has the correct info. -reg_s_optional_open_and_close_and_count(suite) -> - []; -reg_s_optional_open_and_close_and_count(doc) -> - []; reg_s_optional_open_and_close_and_count(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(reg_s_optional_open_and_close_and_count, @@ -26198,10 +25813,6 @@ reg_s_optional_open_and_close_and_count() -> %% Create one socket, monitor from a different process then close socket. %% The process that did the monitor shall receive a socket DOWN. -monitor_simple_open_and_close(suite) -> - []; -monitor_simple_open_and_close(doc) -> - []; monitor_simple_open_and_close(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_simple_open_and_close, @@ -26458,10 +26069,6 @@ mon_simple_open_and_close(InitState) -> %% owner process. %% The process that did the monitor shall receive a socket DOWN. -monitor_simple_open_and_exit(suite) -> - []; -monitor_simple_open_and_exit(doc) -> - []; monitor_simple_open_and_exit(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_simple_open_and_exit, @@ -26653,10 +26260,6 @@ mon_simple_open_and_exit(InitState) -> %% (demonitor) and then close socket. %% The process that did the monitor shall *not* receive a socket DOWN. -monitor_simple_open_and_demon_and_close(suite) -> - []; -monitor_simple_open_and_demon_and_close(doc) -> - []; monitor_simple_open_and_demon_and_close(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_simple_open_and_demon_and_close, @@ -26848,10 +26451,6 @@ mon_simple_open_and_demon_and_close(InitState) -> %% Create several sockets, monitor from a different process then close %% socket. The process that did the monitor shall receive a socket DOWN. -monitor_open_and_close_multi_socks(suite) -> - []; -monitor_open_and_close_multi_socks(doc) -> - []; monitor_open_and_close_multi_socks(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_close_multi_socks, @@ -27293,10 +26892,6 @@ mon_open_and_close_multi_socks(InitState) -> %% the owner process. %% The process that did the monitor shall receive a socket DOWN. -monitor_open_and_exit_multi_socks(suite) -> - []; -monitor_open_and_exit_multi_socks(doc) -> - []; monitor_open_and_exit_multi_socks(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_exit_multi_socks, @@ -27614,10 +27209,6 @@ mon_open_and_exit_multi_socks(InitState) -> %% The process that did the monitor shall receive a socket DOWN for %% the sockets that are still monitored. -monitor_open_and_demon_and_close_multi_socks(suite) -> - []; -monitor_open_and_demon_and_close_multi_socks(doc) -> - []; monitor_open_and_demon_and_close_multi_socks(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_demon_and_close_multi_socks, @@ -27987,10 +27578,6 @@ mon_open_and_demon_and_close_multi_socks(InitState) -> %% processes, then close socket (from 'owner'). %% The processes that did the monitor shall receive a socket DOWN. -monitor_open_and_close_multi_mon(suite) -> - []; -monitor_open_and_close_multi_mon(doc) -> - []; monitor_open_and_close_multi_mon(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_close_multi_mon, @@ -28580,10 +28167,6 @@ mon_open_and_close_multi_mon(InitState) -> %% processes, then close socket (from 'owner'). %% The processes that did the monitor shall receive a socket DOWN. -monitor_open_and_exit_multi_mon(suite) -> - []; -monitor_open_and_exit_multi_mon(doc) -> - []; monitor_open_and_exit_multi_mon(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_exit_multi_mon, @@ -29138,10 +28721,6 @@ mon_open_and_exit_multi_mon(InitState) -> %% The processes that did the monitor shall receive one socket DOWN for %% each socket. -monitor_open_and_close_multi_socks_and_mon(suite) -> - []; -monitor_open_and_close_multi_socks_and_mon(doc) -> - []; monitor_open_and_close_multi_socks_and_mon(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(monitor_open_and_close_multi_socks_and_mon, @@ -30096,10 +29675,6 @@ mon_open_and_close_multi_socks_and_mon(InitState) -> %% The processes that did the monitor shall receive one socket DOWN for %% each socket. -monitor_open_and_exit_multi_socks_and_mon(suite) -> - []; -monitor_open_and_exit_multi_socks_and_mon(doc) -> - []; monitor_open_and_exit_multi_socks_and_mon(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(monitor_open_and_exit_multi_socks_and_mon, @@ -30847,10 +30422,6 @@ mon_open_and_exit_multi_socks_and_mon(InitState) -> %% The processes that did the monitor shall receive one socket DOWN for %% each socket. -monitor_closed_socket(suite) -> - []; -monitor_closed_socket(doc) -> - []; monitor_closed_socket(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(monitor_closed_socket, @@ -31146,10 +30717,6 @@ mon_closed_socket(InitState) -> %% ("removed") when the controlling process terminates (without explicitly %% calling the close function). For a IPv4 TCP (stream) socket. -sc_cpe_socket_cleanup_tcp4(suite) -> - []; -sc_cpe_socket_cleanup_tcp4(doc) -> - []; sc_cpe_socket_cleanup_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_tcp4, @@ -31166,10 +30733,6 @@ sc_cpe_socket_cleanup_tcp4(_Config) when is_list(_Config) -> %% ("removed") when the controlling process terminates (without explicitly %% calling the close function). For a IPv6 TCP (stream) socket. -sc_cpe_socket_cleanup_tcp6(suite) -> - []; -sc_cpe_socket_cleanup_tcp6(doc) -> - []; sc_cpe_socket_cleanup_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_tcp6, @@ -31187,10 +30750,6 @@ sc_cpe_socket_cleanup_tcp6(_Config) when is_list(_Config) -> %% ("removed") when the controlling process terminates (without explicitly %% calling the close function). For a Unix Domain (stream) socket (TCP). -sc_cpe_socket_cleanup_tcpL(suite) -> - []; -sc_cpe_socket_cleanup_tcpL(doc) -> - []; sc_cpe_socket_cleanup_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_tcpL, @@ -31208,13 +30767,10 @@ sc_cpe_socket_cleanup_tcpL(_Config) when is_list(_Config) -> %% ("removed") when the controlling process terminates (without explicitly %% calling the close function). For a IPv4 UDP (dgram) socket. -sc_cpe_socket_cleanup_udp4(suite) -> - []; -sc_cpe_socket_cleanup_udp4(doc) -> - []; sc_cpe_socket_cleanup_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, type => dgram, @@ -31229,10 +30785,6 @@ sc_cpe_socket_cleanup_udp4(_Config) when is_list(_Config) -> %% (removed) when the controlling process terminates (without explicitly %% calling the close function). For a IPv6 UDP (dgram) socket. -sc_cpe_socket_cleanup_udp6(suite) -> - []; -sc_cpe_socket_cleanup_udp6(doc) -> - []; sc_cpe_socket_cleanup_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_udp6, @@ -31250,10 +30802,6 @@ sc_cpe_socket_cleanup_udp6(_Config) when is_list(_Config) -> %% ("removed") when the controlling process terminates (without explicitly %% calling the close function). For a Unix Domain (dgram) socket (UDP). -sc_cpe_socket_cleanup_udpL(suite) -> - []; -sc_cpe_socket_cleanup_udpL(doc) -> - []; sc_cpe_socket_cleanup_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_cpe_socket_cleanup_udpL, @@ -31303,7 +30851,7 @@ sc_cpe_socket_cleanup(InitState) -> end}, %% *** The actual test *** - %% We *intentially* leave the socket "as is", no explicit close + %% We *intentionally* leave the socket "as is", no explicit close #{desc => "await terminate (from tester)", cmd => fun(#{tester := Tester} = State) -> case ?SEV_AWAIT_TERMINATE(Tester, tester) of @@ -31412,13 +30960,10 @@ sc_cpe_socket_cleanup(InitState) -> %% %% </KOLLA> -sc_lc_recv_response_tcp4(suite) -> - []; -sc_lc_recv_response_tcp4(doc) -> - []; sc_lc_recv_response_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_recv_response_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recv(Sock) end, InitState = #{domain => inet, @@ -31433,10 +30978,6 @@ sc_lc_recv_response_tcp4(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recv function. %% Socket is IPv6. -sc_lc_recv_response_tcp6(suite) -> - []; -sc_lc_recv_response_tcp6(doc) -> - []; sc_lc_recv_response_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_recv_response_tcp6, @@ -31455,10 +30996,6 @@ sc_lc_recv_response_tcp6(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recv function. %% Socket is Unix Domain (stream) socket. -sc_lc_recv_response_tcpL(suite) -> - []; -sc_lc_recv_response_tcpL(doc) -> - []; sc_lc_recv_response_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_recv_response_tcpL, @@ -31647,7 +31184,7 @@ sc_lc_receive_response_tcp(InitState) -> ], %% The point of this is to perform the recv for which - %% we are testing the reponse. + %% we are testing the response. HandlerSeq = [ %% *** Wait for start order part *** @@ -32099,13 +31636,10 @@ sc_lc_receive_response_tcp(InitState) -> %% Socket is IPv4. %% -sc_lc_recvfrom_response_udp4(suite) -> - []; -sc_lc_recvfrom_response_udp4(doc) -> - []; sc_lc_recvfrom_response_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_lc_recvfrom_response_udp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock, To) -> socket:recvfrom(Sock, [], To) end, InitState = #{domain => inet, @@ -32120,10 +31654,6 @@ sc_lc_recvfrom_response_udp4(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recv function. %% Socket is IPv6. -sc_lc_recvfrom_response_udp6(suite) -> - []; -sc_lc_recvfrom_response_udp6(doc) -> - []; sc_lc_recvfrom_response_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_lc_recvfrom_response_udp6, @@ -32142,10 +31672,6 @@ sc_lc_recvfrom_response_udp6(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recv function. %% Socket is Unix Domainm (dgram) socket. -sc_lc_recvfrom_response_udpL(suite) -> - []; -sc_lc_recvfrom_response_udpL(doc) -> - []; sc_lc_recvfrom_response_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_lc_recvfrom_response_udpL, @@ -32419,7 +31945,7 @@ sc_lc_receive_response_udp(InitState) -> %% The actual test - %% Make all the seondary servers continue, with an infinit recvfrom + %% Make all the seondary servers continue, with an infinite recvfrom %% and then the prim-server with a timed recvfrom. %% After the prim server notifies us (about the timeout) we order it %% to close the socket, which should cause the all the secondary @@ -32571,13 +32097,10 @@ sc_lc_receive_response_udp(InitState) -> %% locally closed while the process is calling the recvmsg function. %% Socket is IPv4. -sc_lc_recvmsg_response_tcp4(suite) -> - []; -sc_lc_recvmsg_response_tcp4(doc) -> - []; sc_lc_recvmsg_response_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_recvmsg_response_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recvmsg(Sock) end, InitState = #{domain => inet, @@ -32592,10 +32115,6 @@ sc_lc_recvmsg_response_tcp4(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recvmsg function. %% Socket is IPv6. -sc_lc_recvmsg_response_tcp6(suite) -> - []; -sc_lc_recvmsg_response_tcp6(doc) -> - []; sc_lc_recvmsg_response_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_recvmsg_response_tcp6, @@ -32614,10 +32133,6 @@ sc_lc_recvmsg_response_tcp6(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recvmsg function. %% Socket is Unix Domain (stream) socket. -sc_lc_recvmsg_response_tcpL(suite) -> - []; -sc_lc_recvmsg_response_tcpL(doc) -> - []; sc_lc_recvmsg_response_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_recvmsg_response_tcpL, @@ -32636,12 +32151,9 @@ sc_lc_recvmsg_response_tcpL(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recvmsg function. %% Socket is IPv4. -sc_lc_recvmsg_response_udp4(suite) -> - []; -sc_lc_recvmsg_response_udp4(doc) -> - []; sc_lc_recvmsg_response_udp4(_Config) when is_list(_Config) -> tc_try(sc_lc_recvmsg_response_udp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(10)), Recv = fun(Sock, To) -> socket:recvmsg(Sock, To) end, @@ -32657,10 +32169,6 @@ sc_lc_recvmsg_response_udp4(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recvmsg function. %% Socket is IPv6. -sc_lc_recvmsg_response_udp6(suite) -> - []; -sc_lc_recvmsg_response_udp6(doc) -> - []; sc_lc_recvmsg_response_udp6(_Config) when is_list(_Config) -> tc_try(sc_recvmsg_response_udp6, fun() -> has_support_ipv6() end, @@ -32680,10 +32188,6 @@ sc_lc_recvmsg_response_udp6(_Config) when is_list(_Config) -> %% locally closed while the process is calling the recvmsg function. %% Socket is Unix Domain (dgram) socket. -sc_lc_recvmsg_response_udpL(suite) -> - []; -sc_lc_recvmsg_response_udpL(doc) -> - []; sc_lc_recvmsg_response_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_recvmsg_response_udpL, @@ -32705,13 +32209,10 @@ sc_lc_recvmsg_response_udpL(_Config) when is_list(_Config) -> %% git the setup anyway. %% Socket is IPv4. -sc_lc_acceptor_response_tcp4(suite) -> - []; -sc_lc_acceptor_response_tcp4(doc) -> - []; sc_lc_acceptor_response_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_acceptor_response_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, protocol => tcp}, @@ -32726,10 +32227,6 @@ sc_lc_acceptor_response_tcp4(_Config) when is_list(_Config) -> %% git the setup anyway. %% Socket is IPv6. -sc_lc_acceptor_response_tcp6(suite) -> - []; -sc_lc_acceptor_response_tcp6(doc) -> - []; sc_lc_acceptor_response_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_acceptor_response_tcp6, @@ -32748,10 +32245,6 @@ sc_lc_acceptor_response_tcp6(_Config) when is_list(_Config) -> %% git the setup anyway. %% Socket is Unix Domain (stream) socket. -sc_lc_acceptor_response_tcpL(suite) -> - []; -sc_lc_acceptor_response_tcpL(doc) -> - []; sc_lc_acceptor_response_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_lc_acceptor_response_tcpL, @@ -33020,7 +32513,7 @@ sc_lc_acceptor_response_tcp(InitState) -> %% The actual test - %% Make all the seondary servers continue, with an infinit recvfrom + %% Make all the seondary servers continue, with an infinite recvfrom %% and then the prim-server with a timed recvfrom. %% After the prim server notifies us (about the timeout) we order it %% to close the socket, which should cause the all the secondary @@ -33176,13 +32669,10 @@ sc_lc_acceptor_response_tcp(InitState) -> %% now, we will make do with different VMs on the same host. %% -sc_rc_recv_response_tcp4(suite) -> - []; -sc_rc_recv_response_tcp4(doc) -> - []; sc_rc_recv_response_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recv_response_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recv(Sock) end, InitState = #{domain => inet, @@ -33197,10 +32687,6 @@ sc_rc_recv_response_tcp4(_Config) when is_list(_Config) -> %% remotely closed while the process is calling the recv function. %% Socket is IPv6. -sc_rc_recv_response_tcp6(suite) -> - []; -sc_rc_recv_response_tcp6(doc) -> - []; sc_rc_recv_response_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recv_response_tcp6, @@ -33219,10 +32705,6 @@ sc_rc_recv_response_tcp6(_Config) when is_list(_Config) -> %% remotely closed while the process is calling the recv function. %% Socket is Unix Domain (stream) socket. -sc_rc_recv_response_tcpL(suite) -> - []; -sc_rc_recv_response_tcpL(doc) -> - []; sc_rc_recv_response_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recv_response_tcpL, @@ -33535,19 +33017,11 @@ sc_rc_receive_response_tcp(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host, node_id := NodeID} = State) -> - case start_node(Host, - l2a(f("client_~w", [NodeID]))) of - {ok, Node} -> - ?SEV_IPRINT("client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - ?SEV_EPRINT("failed starting " - "client node ~p (=> SKIP):" - "~n ~p", [NodeID, Reason]), - {skip, Reason} - end + cmd => fun(#{node_id := NodeID} = State) -> + {Peer, Node} = + ?START_NODE(?CT_PEER_NAME(f("client_~w", + [NodeID]))), + {ok, State#{node => Node, peer => Peer}} end}, #{desc => "monitor client node 1", cmd => fun(#{node := Node} = _State) -> @@ -33665,9 +33139,9 @@ sc_rc_receive_response_tcp(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -33690,14 +33164,14 @@ sc_rc_receive_response_tcp(InitState) -> receive {nodedown, Node} -> ?SEV_IPRINT("nodedown received - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end; (#{node_stop := error} = State) -> ?SEV_IPRINT("Failed node stop - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end}, @@ -33989,7 +33463,7 @@ sc_rc_receive_response_tcp(InitState) -> Tester = ?SEV_START("tester", TesterSeq, TesterInitState), i("await evaluator"), - ?line ok = ?SEV_AWAIT_FINISH([Server, + ok = ?SEV_AWAIT_FINISH([Server, Client1, Client2, Client3, Tester]). @@ -34161,13 +33635,10 @@ sc_rc_tcp_handler_announce_ready(Parent, Slogan, Result) -> %% remotely closed while the process is calling the recvmsg function. %% Socket is IPv4. -sc_rc_recvmsg_response_tcp4(suite) -> - []; -sc_rc_recvmsg_response_tcp4(doc) -> - []; sc_rc_recvmsg_response_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recvmsg_response_tcp4, + fun() -> has_support_ipv4() end, fun() -> Recv = fun(Sock) -> socket:recvmsg(Sock) end, InitState = #{domain => inet, @@ -34182,10 +33653,6 @@ sc_rc_recvmsg_response_tcp4(_Config) when is_list(_Config) -> %% remotely closed while the process is calling the recvmsg function. %% Socket is IPv6. -sc_rc_recvmsg_response_tcp6(suite) -> - []; -sc_rc_recvmsg_response_tcp6(doc) -> - []; sc_rc_recvmsg_response_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recvmsg_response_tcp6, @@ -34204,10 +33671,6 @@ sc_rc_recvmsg_response_tcp6(_Config) when is_list(_Config) -> %% remotely closed while the process is calling the recvmsg function. %% Socket is Unix Domain (stream) socket. -sc_rc_recvmsg_response_tcpL(suite) -> - []; -sc_rc_recvmsg_response_tcpL(doc) -> - []; sc_rc_recvmsg_response_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rc_recvmsg_response_tcpL, @@ -34234,13 +33697,10 @@ sc_rc_recvmsg_response_tcpL(_Config) when is_list(_Config) -> %% This would of course not work for Unix Domain sockets. %% -sc_rs_recv_send_shutdown_receive_tcp4(suite) -> - []; -sc_rs_recv_send_shutdown_receive_tcp4(doc) -> - []; sc_rs_recv_send_shutdown_receive_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(sc_rs_recv_send_shutdown_receive_tcp4, + fun() -> has_support_ipv4() end, fun() -> MsgData = ?DATA, Recv = fun(Sock) -> @@ -34265,10 +33725,6 @@ sc_rs_recv_send_shutdown_receive_tcp4(_Config) when is_list(_Config) -> %% reader attempts a recv. %% Socket is IPv6. -sc_rs_recv_send_shutdown_receive_tcp6(suite) -> - []; -sc_rs_recv_send_shutdown_receive_tcp6(doc) -> - []; sc_rs_recv_send_shutdown_receive_tcp6(_Config) when is_list(_Config) -> tc_try(sc_rs_recv_send_shutdown_receive_tcp6, fun() -> has_support_ipv6() end, @@ -34297,10 +33753,6 @@ sc_rs_recv_send_shutdown_receive_tcp6(_Config) when is_list(_Config) -> %% reader attempts a recv. %% Socket is Unix Domain (stream) socket. -sc_rs_recv_send_shutdown_receive_tcpL(suite) -> - []; -sc_rs_recv_send_shutdown_receive_tcpL(doc) -> - []; sc_rs_recv_send_shutdown_receive_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_rs_recv_send_shutdown_receive_tcpL, @@ -34539,15 +33991,9 @@ sc_rs_send_shutdown_receive_tcp(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, client) of - {ok, Node} -> - ?SEV_IPRINT("client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(State) -> + {Peer, Node} = ?START_NODE("client"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -34712,9 +34158,9 @@ sc_rs_send_shutdown_receive_tcp(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -34736,14 +34182,14 @@ sc_rs_send_shutdown_receive_tcp(InitState) -> receive {nodedown, Node} -> ?SEV_IPRINT("nodedown received - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end; (#{node_stop := error} = State) -> ?SEV_IPRINT("Failed node stop - cleanup"), - State1 = maps:remove(node_id, State), - State2 = maps:remove(node, State1), + State1 = maps:remove(peer, State), + State2 = maps:remove(node, State1), {ok, State2} end}, @@ -35106,7 +34552,7 @@ sc_rs_tcp_handler_await(Parent, Slogan) -> ?SEV_IPRINT("await ~w", [Slogan]), ?SEV_AWAIT_CONTINUE(Parent, parent, Slogan). -%% This hould actually work - we leave it for now +%% This should actually work - we leave it for now sc_rs_tcp_handler_recv(Recv, Sock, First) -> ?SEV_IPRINT("recv"), try Recv(Sock) of @@ -35143,12 +34589,9 @@ sc_rs_tcp_handler_announce_ready(Parent, Slogan, Result) -> %% reader attempts a recv. %% Socket is IPv4. -sc_rs_recvmsg_send_shutdown_receive_tcp4(suite) -> - []; -sc_rs_recvmsg_send_shutdown_receive_tcp4(doc) -> - []; sc_rs_recvmsg_send_shutdown_receive_tcp4(_Config) when is_list(_Config) -> tc_try(sc_rs_recvmsg_send_shutdown_receive_tcp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(30)), MsgData = ?DATA, @@ -35182,10 +34625,6 @@ sc_rs_recvmsg_send_shutdown_receive_tcp4(_Config) when is_list(_Config) -> %% reader attempts a recv. %% Socket is IPv6. -sc_rs_recvmsg_send_shutdown_receive_tcp6(suite) -> - []; -sc_rs_recvmsg_send_shutdown_receive_tcp6(doc) -> - []; sc_rs_recvmsg_send_shutdown_receive_tcp6(_Config) when is_list(_Config) -> tc_try(sc_rs_recvmsg_send_shutdown_receive_tcp6, fun() -> has_support_ipv6() end, @@ -35222,10 +34661,6 @@ sc_rs_recvmsg_send_shutdown_receive_tcp6(_Config) when is_list(_Config) -> %% reader attempts a recv. %% Socket is UNix Domain (stream) socket. -sc_rs_recvmsg_send_shutdown_receive_tcpL(suite) -> - []; -sc_rs_recvmsg_send_shutdown_receive_tcpL(doc) -> - []; sc_rs_recvmsg_send_shutdown_receive_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(sc_rs_recvmsg_send_shutdown_receive_tcpL, @@ -35271,10 +34706,6 @@ sc_rs_recvmsg_send_shutdown_receive_tcpL(_Config) when is_list(_Config) -> %% This test case is intended to (simply) test "some" ioctl features. %% -ioctl_simple1(suite) -> - []; -ioctl_simple1(doc) -> - []; ioctl_simple1(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35357,10 +34788,6 @@ do_ioctl_simple(_State) -> %% request(s). %% -ioctl_get_gifname(suite) -> - []; -ioctl_get_gifname(doc) -> - []; ioctl_get_gifname(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35410,10 +34837,6 @@ do_ioctl_get_gifname(_State) -> %% --- gifindex --- -ioctl_get_gifindex(suite) -> - []; -ioctl_get_gifindex(doc) -> - []; ioctl_get_gifindex(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35465,10 +34888,6 @@ do_ioctl_get_gifindex(_State) -> %% --- gifaddr --- -ioctl_get_gifaddr(suite) -> - []; -ioctl_get_gifaddr(doc) -> - []; ioctl_get_gifaddr(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35532,10 +34951,6 @@ do_ioctl_get_gifaddr(_State) -> %% --- gifdstaddr --- -ioctl_get_gifdstaddr(suite) -> - []; -ioctl_get_gifdstaddr(doc) -> - []; ioctl_get_gifdstaddr(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35550,17 +34965,17 @@ ioctl_get_gifdstaddr(_Config) when is_list(_Config) -> do_ioctl_get_gifdstaddr(_State) -> - Domain = inet, + Domain = inet_or_inet6(), LSA = which_local_socket_addr(Domain), i("create and init listen stream:TCP socket"), - {ok, LSock} = socket:open(inet, stream, tcp), + {ok, LSock} = socket:open(Domain, stream, tcp), ok = socket:bind(LSock, LSA#{port => 0}), ok = socket:listen(LSock), {ok, #{port := LPort}} = socket:sockname(LSock), i("create and init connection stream:TCP socket"), - {ok, CSock} = socket:open(inet, stream, tcp), + {ok, CSock} = socket:open(Domain, stream, tcp), i("attempt connect (nowait)"), {ok, ASock} = @@ -35625,16 +35040,13 @@ verify_gifdstaddr(Sock, Prefix, IfIdx, IfName) -> "~n ~p", [Prefix, IfName, IfIdx, Crap]), socket:close(Sock), ?FAIL({unexpected_addr, Prefix, IfName, IfIdx, Crap}); - {error, eaddrnotavail = Reason} -> + {error, IgnoredReason} when IgnoredReason =:= eaddrnotavail; + IgnoredReason =:= eperm; + IgnoredReason =:= enotty -> i("[~s] got unexpected error for interface ~p (~w) => " "SKIP interface" - "~n Reason: ~p", [Prefix, IfName, IfIdx, Reason]), + "~n Reason: ~p", [Prefix, IfName, IfIdx, IgnoredReason]), ignore; - {error, eperm = Reason} -> - i("[~s] got unexpected error for interface ~p (~w) => " - "SKIP interface" - "~n Reason: ~p", [Prefix, IfName, IfIdx, Reason]), - ignore; {error, einval = Reason} when (OsFam =:= unix) andalso ((OsName =:= darwin) orelse (OsName =:= freebsd) orelse @@ -35656,10 +35068,6 @@ verify_gifdstaddr(Sock, Prefix, IfIdx, IfName) -> %% --- gifbrdaddr --- -ioctl_get_gifbrdaddr(suite) -> - []; -ioctl_get_gifbrdaddr(doc) -> - []; ioctl_get_gifbrdaddr(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35674,17 +35082,17 @@ ioctl_get_gifbrdaddr(_Config) when is_list(_Config) -> do_ioctl_get_gifbrdaddr(_State) -> - Domain = inet, + Domain = inet_or_inet6(), LSA = which_local_socket_addr(Domain), i("create and init listen stream:TCP socket"), - {ok, LSock} = socket:open(inet, stream, tcp), + {ok, LSock} = socket:open(Domain, stream, tcp), ok = socket:bind(LSock, LSA#{port => 0}), ok = socket:listen(LSock), {ok, #{port := LPort}} = socket:sockname(LSock), i("create and init connection stream:TCP socket"), - {ok, CSock} = socket:open(inet, stream, tcp), + {ok, CSock} = socket:open(Domain, stream, tcp), i("attempt connect (nowait)"), {ok, ASock} = @@ -35748,16 +35156,13 @@ verify_gifbrdaddr(Sock, Prefix, IfIdx, IfName) -> "~n ~p", [Prefix, IfName, IfIdx, Crap]), socket:close(Sock), ?FAIL({unexpected_addr, IfName, IfIdx, Crap}); - {error, eaddrnotavail = Reason} -> + {error, IgnoredReason} when IgnoredReason =:= eaddrnotavail; + IgnoredReason =:= eperm; + IgnoredReason =:= enotty -> i("[~s] got unexpected error for interface ~p (~w) => " - "SKIP interface" - "~n Reason: ~p", [Prefix, IfName, IfIdx, Reason]), + "SKIP interface" + "~n Reason: ~p", [Prefix, IfName, IfIdx, IgnoredReason]), ignore; - {error, eperm = Reason} -> - i("[~s] got unexpected error for interface ~p (~w) => " - "SKIP interface" - "~n Reason: ~p", [Prefix, IfName, IfIdx, Reason]), - ignore; {error, einval = Reason} when (OsFam =:= unix) andalso ((OsName =:= darwin) orelse (OsName =:= freebsd) orelse @@ -35778,10 +35183,6 @@ verify_gifbrdaddr(Sock, Prefix, IfIdx, IfName) -> %% --- gifnetmask --- -ioctl_get_gifnetmask(suite) -> - []; -ioctl_get_gifnetmask(doc) -> - []; ioctl_get_gifnetmask(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35844,10 +35245,6 @@ do_ioctl_get_gifnetmask(_State) -> %% --- gifmtu --- -ioctl_get_gifmtu(suite) -> - []; -ioctl_get_gifmtu(doc) -> - []; ioctl_get_gifmtu(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35900,10 +35297,6 @@ do_ioctl_get_gifmtu(_State) -> %% --- gifhwaddr --- -ioctl_get_gifhwaddr(suite) -> - []; -ioctl_get_gifhwaddr(doc) -> - []; ioctl_get_gifhwaddr(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -35929,22 +35322,8 @@ do_ioctl_get_gifhwaddr(_State) -> %% This a *very* simple test... %% ...just to check that we actually get an socket address _ = [case socket:ioctl(Sock, gifhwaddr, IfName) of - {ok, #{family := ArphdrFam, - addr := Addr}} when is_atom(ArphdrFam) -> - case erlang:atom_to_list(ArphdrFam) of - "arphrd_" ++ _ -> - i("got (expected) (HW) socket address for " - "interface ~p (~w): " - "~n (~w) ~p", [IfName, IfIdx, ArphdrFam, Addr]), - ok; - _ -> - i("<ERROR> got unexpected family for interface ~p (~w)" - "~n ~p", [IfName, IfIdx, ArphdrFam]), - socket:close(Sock), - ?FAIL({unexpected_family, IfName, IfIdx, ArphdrFam}) - end; {ok, #{family := Fam, - addr := Addr}} when is_integer(Fam) -> + addr := Addr}} when is_atom(Fam) orelse is_integer(Fam) -> i("got (expected) socket address for interface ~p (~w): " "~n (~w) ~p", [IfName, IfIdx, Fam, Addr]), ok; @@ -35971,10 +35350,6 @@ do_ioctl_get_gifhwaddr(_State) -> %% --- giftxqlen --- -ioctl_get_giftxqlen(suite) -> - []; -ioctl_get_giftxqlen(doc) -> - []; ioctl_get_giftxqlen(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -36027,10 +35402,6 @@ do_ioctl_get_giftxqlen(_State) -> %% --- gifflags --- -ioctl_get_gifflags(suite) -> - []; -ioctl_get_gifflags(doc) -> - []; ioctl_get_gifflags(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -36099,10 +35470,6 @@ do_ioctl_get_gifflags(_State) -> %% --- gifmap --- -ioctl_get_gifmap(suite) -> - []; -ioctl_get_gifmap(doc) -> - []; ioctl_get_gifmap(_Config) when is_list(_Config) -> ?TT(?SECS(5)), tc_try(?FUNCTION_NAME, @@ -36160,13 +35527,10 @@ do_ioctl_get_gifmap(_State) -> %% So that its easy to extend, we use fun's for read and write. %% We use TCP on IPv4. -traffic_send_and_recv_counters_tcp4(suite) -> - []; -traffic_send_and_recv_counters_tcp4(doc) -> - []; traffic_send_and_recv_counters_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_send_and_recv_counters_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => tcp, @@ -36182,10 +35546,6 @@ traffic_send_and_recv_counters_tcp4(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use TCP on IPv6. -traffic_send_and_recv_counters_tcp6(suite) -> - []; -traffic_send_and_recv_counters_tcp6(doc) -> - []; traffic_send_and_recv_counters_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_send_and_recv_counters_tcp6, @@ -36205,10 +35565,6 @@ traffic_send_and_recv_counters_tcp6(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use default (TCP) on local. -traffic_send_and_recv_counters_tcpL(suite) -> - []; -traffic_send_and_recv_counters_tcpL(doc) -> - []; traffic_send_and_recv_counters_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_send_and_recv_counters_tcpL, @@ -36228,13 +35584,10 @@ traffic_send_and_recv_counters_tcpL(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use TCP on IPv4. -traffic_sendmsg_and_recvmsg_counters_tcp4(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_tcp4(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => tcp, @@ -36260,10 +35613,6 @@ traffic_sendmsg_and_recvmsg_counters_tcp4(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use TCP on IPv6. -traffic_sendmsg_and_recvmsg_counters_tcp6(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_tcp6(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_tcp6, @@ -36293,10 +35642,6 @@ traffic_sendmsg_and_recvmsg_counters_tcp6(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use default (TCP) on local. -traffic_sendmsg_and_recvmsg_counters_tcpL(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_tcpL(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_tcpL, @@ -37365,13 +36710,10 @@ traffic_sar_counters_validation2(Counters, [{Cnt, Val}|ValidateCounters]) -> %% So that its easy to extend, we use fun's for read and write. %% We use UDP on IPv4. -traffic_sendto_and_recvfrom_counters_udp4(suite) -> - []; -traffic_sendto_and_recvfrom_counters_udp4(doc) -> - []; traffic_sendto_and_recvfrom_counters_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendto_and_recvfrom_counters_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => udp, @@ -37391,10 +36733,6 @@ traffic_sendto_and_recvfrom_counters_udp4(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use UDP on IPv6. -traffic_sendto_and_recvfrom_counters_udp6(suite) -> - []; -traffic_sendto_and_recvfrom_counters_udp6(doc) -> - []; traffic_sendto_and_recvfrom_counters_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendto_and_recvfrom_counters_udp6, @@ -37418,10 +36756,6 @@ traffic_sendto_and_recvfrom_counters_udp6(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use default (UDP) on local. -traffic_sendto_and_recvfrom_counters_udpL(suite) -> - []; -traffic_sendto_and_recvfrom_counters_udpL(doc) -> - []; traffic_sendto_and_recvfrom_counters_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendto_and_recvfrom_counters_udp4, @@ -37445,13 +36779,10 @@ traffic_sendto_and_recvfrom_counters_udpL(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use UDP on IPv4. -traffic_sendmsg_and_recvmsg_counters_udp4(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_udp4(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_udp4(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_udp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => udp, @@ -37479,10 +36810,6 @@ traffic_sendmsg_and_recvmsg_counters_udp4(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use UDP on IPv6. -traffic_sendmsg_and_recvmsg_counters_udp6(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_udp6(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_udp6(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_udp6, @@ -37514,10 +36841,6 @@ traffic_sendmsg_and_recvmsg_counters_udp6(_Config) when is_list(_Config) -> %% So that its easy to extend, we use fun's for read and write. %% We use default (UDP) on local. -traffic_sendmsg_and_recvmsg_counters_udpL(suite) -> - []; -traffic_sendmsg_and_recvmsg_counters_udpL(doc) -> - []; traffic_sendmsg_and_recvmsg_counters_udpL(_Config) when is_list(_Config) -> ?TT(?SECS(15)), tc_try(traffic_sendmsg_and_recvmsg_counters_udpL, @@ -38377,13 +37700,10 @@ traffic_send_and_recv_udp(InitState) -> %% Second, send in a bunch of "small" chunks, and read in one "big" chunk. %% Socket is IPv4. -traffic_send_and_recv_chunks_tcp4(suite) -> - []; -traffic_send_and_recv_chunks_tcp4(doc) -> - []; traffic_send_and_recv_chunks_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(traffic_send_and_recv_chunks_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => tcp}, @@ -38399,10 +37719,6 @@ traffic_send_and_recv_chunks_tcp4(_Config) when is_list(_Config) -> %% Second, send in a bunch of "small" chunks, and read in one "big" chunk. %% Socket is IPv6. -traffic_send_and_recv_chunks_tcp6(suite) -> - []; -traffic_send_and_recv_chunks_tcp6(doc) -> - []; traffic_send_and_recv_chunks_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(traffic_send_and_recv_chunks_tcp6, @@ -38421,10 +37737,6 @@ traffic_send_and_recv_chunks_tcp6(_Config) when is_list(_Config) -> %% Second, send in a bunch of "small" chunks, and read in one "big" chunk. %% Socket is UNix Domain (Stream) socket. -traffic_send_and_recv_chunks_tcpL(suite) -> - []; -traffic_send_and_recv_chunks_tcpL(doc) -> - []; traffic_send_and_recv_chunks_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(30)), tc_try(traffic_send_and_recv_chunks_tcp6, @@ -38732,15 +38044,9 @@ traffic_send_and_recv_chunks_tcp(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, client) of - {ok, Node} -> - ?SEV_IPRINT("(remote) client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(State) -> + {Peer, Node} = ?START_NODE("client"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -39104,9 +38410,9 @@ traffic_send_and_recv_chunks_tcp(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -39352,7 +38658,7 @@ traffic_snr_tcp_client(Parent) -> traffic_snr_tcp_client_send_loop(Parent, Sock) -> case ?SEV_AWAIT_CONTINUE(Parent, parent, send) of - {ok, stop} -> % Breakes the loop + {ok, stop} -> % Breaks the loop ?SEV_ANNOUNCE_READY(Parent, send, ok), ok; {ok, Data} -> @@ -39457,15 +38763,12 @@ traffic_snr_tcp_client_await_terminate(Parent) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv4. -traffic_ping_pong_small_send_and_recv_tcp4(suite) -> - []; -traffic_ping_pong_small_send_and_recv_tcp4(doc) -> - []; traffic_ping_pong_small_send_and_recv_tcp4(Config) when is_list(Config) -> ?TT(?SECS(15)), Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), tc_try(traffic_ping_pong_small_send_and_recv_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, proto => tcp, @@ -39485,10 +38788,6 @@ traffic_ping_pong_small_send_and_recv_tcp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv6. -traffic_ping_pong_small_send_and_recv_tcp6(suite) -> - []; -traffic_ping_pong_small_send_and_recv_tcp6(doc) -> - []; traffic_ping_pong_small_send_and_recv_tcp6(Config) when is_list(Config) -> ?TT(?SECS(15)), Msg = l2b(?TPP_SMALL), @@ -39513,10 +38812,6 @@ traffic_ping_pong_small_send_and_recv_tcp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for Unix Domain (stream) socket. -traffic_ping_pong_small_send_and_recv_tcpL(suite) -> - []; -traffic_ping_pong_small_send_and_recv_tcpL(doc) -> - []; traffic_ping_pong_small_send_and_recv_tcpL(Config) when is_list(Config) -> ?TT(?SECS(15)), Msg = l2b(?TPP_SMALL), @@ -39541,14 +38836,11 @@ traffic_ping_pong_small_send_and_recv_tcpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv4. -traffic_ping_pong_medium_send_and_recv_tcp4(suite) -> - []; -traffic_ping_pong_medium_send_and_recv_tcp4(doc) -> - []; traffic_ping_pong_medium_send_and_recv_tcp4(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), tc_try(traffic_ping_pong_medium_send_and_recv_tcp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(30)), InitState = #{domain => inet, @@ -39568,10 +38860,6 @@ traffic_ping_pong_medium_send_and_recv_tcp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv6. -traffic_ping_pong_medium_send_and_recv_tcp6(suite) -> - []; -traffic_ping_pong_medium_send_and_recv_tcp6(doc) -> - []; traffic_ping_pong_medium_send_and_recv_tcp6(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -39597,10 +38885,6 @@ traffic_ping_pong_medium_send_and_recv_tcp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for Unix Domain (stream) socket. -traffic_ping_pong_medium_send_and_recv_tcpL(suite) -> - []; -traffic_ping_pong_medium_send_and_recv_tcpL(doc) -> - []; traffic_ping_pong_medium_send_and_recv_tcpL(Config) when is_list(Config) -> ?TT(?SECS(30)), Msg = l2b(?TPP_MEDIUM), @@ -39626,16 +38910,13 @@ traffic_ping_pong_medium_send_and_recv_tcpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for IPv4. -traffic_ping_pong_large_send_and_recv_tcp4(suite) -> - []; -traffic_ping_pong_large_send_and_recv_tcp4(doc) -> - []; traffic_ping_pong_large_send_and_recv_tcp4(Config) when is_list(Config) -> ?TT(?SECS(60)), Msg = l2b(?TPP_LARGE), Num = ?TPP_NUM(Config, ?TPP_LARGE_NUM), tc_try(traffic_ping_pong_large_send_and_recv_tcp4, - fun() -> is_old_fedora16(), + fun() -> has_support_ipv4(), + is_old_fedora16(), is_slow_ubuntu(Config) end, fun() -> InitState = #{domain => inet, @@ -39655,10 +38936,6 @@ traffic_ping_pong_large_send_and_recv_tcp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for IPv6. -traffic_ping_pong_large_send_and_recv_tcp6(suite) -> - []; -traffic_ping_pong_large_send_and_recv_tcp6(doc) -> - []; traffic_ping_pong_large_send_and_recv_tcp6(Config) when is_list(Config) -> ?TT(?SECS(60)), Msg = l2b(?TPP_LARGE), @@ -39686,10 +38963,6 @@ traffic_ping_pong_large_send_and_recv_tcp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for UNix Domain (stream) socket. -traffic_ping_pong_large_send_and_recv_tcpL(suite) -> - []; -traffic_ping_pong_large_send_and_recv_tcpL(doc) -> - []; traffic_ping_pong_large_send_and_recv_tcpL(Config) when is_list(Config) -> ?TT(?SECS(60)), Msg = l2b(?TPP_LARGE), @@ -39747,7 +39020,7 @@ is_old_fedora16(_) -> %% not actually needed. %% The host in question is a Ubuntu 20.04... is_slow_ubuntu(Config) -> - case lookup(esock_factor, 1, Config) of + case lookup(kernel_factor, 1, Config) of F when is_integer(F) andalso (F > 1) -> case os:type() of {unix, linux} -> @@ -39774,14 +39047,11 @@ is_slow_ubuntu(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv4. -traffic_ping_pong_small_sendto_and_recvfrom_udp4(suite) -> - []; -traffic_ping_pong_small_sendto_and_recvfrom_udp4(doc) -> - []; traffic_ping_pong_small_sendto_and_recvfrom_udp4(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), tc_try(traffic_ping_pong_small_sendto_and_recvfrom_udp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(45)), InitState = #{domain => inet, @@ -39801,10 +39071,6 @@ traffic_ping_pong_small_sendto_and_recvfrom_udp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv6. -traffic_ping_pong_small_sendto_and_recvfrom_udp6(suite) -> - []; -traffic_ping_pong_small_sendto_and_recvfrom_udp6(doc) -> - []; traffic_ping_pong_small_sendto_and_recvfrom_udp6(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -39830,10 +39096,6 @@ traffic_ping_pong_small_sendto_and_recvfrom_udp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for Unix Domain (dgram) socket. -traffic_ping_pong_small_sendto_and_recvfrom_udpL(suite) -> - []; -traffic_ping_pong_small_sendto_and_recvfrom_udpL(doc) -> - []; traffic_ping_pong_small_sendto_and_recvfrom_udpL(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -39859,14 +39121,11 @@ traffic_ping_pong_small_sendto_and_recvfrom_udpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv4. -traffic_ping_pong_medium_sendto_and_recvfrom_udp4(suite) -> - []; -traffic_ping_pong_medium_sendto_and_recvfrom_udp4(doc) -> - []; traffic_ping_pong_medium_sendto_and_recvfrom_udp4(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), tc_try(traffic_ping_pong_medium_sendto_and_recvfrom_udp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(45)), InitState = #{domain => inet, @@ -39886,10 +39145,6 @@ traffic_ping_pong_medium_sendto_and_recvfrom_udp4(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv6. -traffic_ping_pong_medium_sendto_and_recvfrom_udp6(suite) -> - []; -traffic_ping_pong_medium_sendto_and_recvfrom_udp6(doc) -> - []; traffic_ping_pong_medium_sendto_and_recvfrom_udp6(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -39915,10 +39170,6 @@ traffic_ping_pong_medium_sendto_and_recvfrom_udp6(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for Unix Domain (dgram) socket. -traffic_ping_pong_medium_sendto_and_recvfrom_udpL(suite) -> - []; -traffic_ping_pong_medium_sendto_and_recvfrom_udpL(doc) -> - []; traffic_ping_pong_medium_sendto_and_recvfrom_udpL(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -39944,14 +39195,11 @@ traffic_ping_pong_medium_sendto_and_recvfrom_udpL(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv4. -traffic_ping_pong_small_sendmsg_and_recvmsg_tcp4(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_tcp4(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), tc_try(traffic_ping_pong_small_sendmsg_and_recvmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(20)), InitState = #{domain => inet, @@ -39971,10 +39219,6 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv6. -traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -39999,10 +39243,6 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for Unix Domain (stream) socket. -traffic_ping_pong_small_sendmsg_and_recvmsg_tcpL(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_tcpL(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -40027,14 +39267,11 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv4. -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), tc_try(traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(30)), InitState = #{domain => inet, @@ -40054,10 +39291,6 @@ traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv6. -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -40082,10 +39315,6 @@ traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for Unix Domain (stream) socket. -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcpL(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_tcpL(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -40110,15 +39339,11 @@ traffic_ping_pong_medium_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for IPv4. -traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(suite) -> - []; -traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(doc) -> - []; traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(Config) when is_list(Config) -> Msg = l2b(?TPP_LARGE), Num = ?TPP_NUM(Config, ?TPP_LARGE_NUM), tc_try(traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4, - fun() -> traffic_ping_pong_large_sendmsg_and_recvmsg_cond() end, + fun() -> has_support_ipv4(), traffic_ping_pong_large_sendmsg_and_recvmsg_cond() end, fun() -> ?TT(?SECS(60)), InitState = #{domain => inet, @@ -40148,10 +39373,6 @@ traffic_ping_pong_large_sendmsg_and_recvmsg_cond(_, _) -> %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for IPv6. -traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(suite) -> - []; -traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(doc) -> - []; traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> Msg = l2b(?TPP_LARGE), Num = ?TPP_NUM(Config, ?TPP_LARGE_NUM), @@ -40180,10 +39401,6 @@ traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'large' message test case, for Unix Domain (stream) socket. -traffic_ping_pong_large_sendmsg_and_recvmsg_tcpL(suite) -> - []; -traffic_ping_pong_large_sendmsg_and_recvmsg_tcpL(doc) -> - []; traffic_ping_pong_large_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) -> Msg = l2b(?TPP_LARGE), Num = ?TPP_NUM(Config, ?TPP_LARGE_NUM), @@ -40209,14 +39426,11 @@ traffic_ping_pong_large_sendmsg_and_recvmsg_tcpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv4. -traffic_ping_pong_small_sendmsg_and_recvmsg_udp4(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_udp4(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), tc_try(traffic_ping_pong_small_sendmsg_and_recvmsg_udp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(60)), InitState = #{domain => inet, @@ -40236,10 +39450,6 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for IPv6. -traffic_ping_pong_small_sendmsg_and_recvmsg_udp6(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_udp6(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_udp6(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -40264,10 +39474,6 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_udp6(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'small' message test case, for Unix Domain (dgram) socket. -traffic_ping_pong_small_sendmsg_and_recvmsg_udpL(suite) -> - []; -traffic_ping_pong_small_sendmsg_and_recvmsg_udpL(doc) -> - []; traffic_ping_pong_small_sendmsg_and_recvmsg_udpL(Config) when is_list(Config) -> Msg = l2b(?TPP_SMALL), Num = ?TPP_NUM(Config, ?TPP_SMALL_NUM), @@ -40292,14 +39498,11 @@ traffic_ping_pong_small_sendmsg_and_recvmsg_udpL(Config) when is_list(Config) -> %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv4. -traffic_ping_pong_medium_sendmsg_and_recvmsg_udp4(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_udp4(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), tc_try(traffic_ping_pong_medium_sendmsg_and_recvmsg_udp4, + fun() -> has_support_ipv4() end, fun() -> ?TT(?SECS(60)), InitState = #{domain => inet, @@ -40319,10 +39522,6 @@ traffic_ping_pong_medium_sendmsg_and_recvmsg_udp4(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for IPv6. -traffic_ping_pong_medium_sendmsg_and_recvmsg_udp6(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_udp6(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_udp6(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -40348,10 +39547,6 @@ traffic_ping_pong_medium_sendmsg_and_recvmsg_udp6(Config) when is_list(Config) - %% repeated a set number of times (more times the small the message). %% This is the 'medium' message test case, for Unix Domain (dgram) socket. -traffic_ping_pong_medium_sendmsg_and_recvmsg_udpL(suite) -> - []; -traffic_ping_pong_medium_sendmsg_and_recvmsg_udpL(doc) -> - []; traffic_ping_pong_medium_sendmsg_and_recvmsg_udpL(Config) when is_list(Config) -> Msg = l2b(?TPP_MEDIUM), Num = ?TPP_NUM(Config, ?TPP_MEDIUM_NUM), @@ -40431,7 +39626,7 @@ traffic_ping_pong_sendmsg_and_recvmsg_tcp2(InitState) -> traffic_ping_pong_send_and_receive_tcp(#{msg := Msg} = InitState) -> Fun = fun(Sock) -> {ok, RcvSz} = socket:getopt(Sock, socket, rcvbuf), - ?SEV_IPRINT("RcvBuf is ~p (needs atleast ~p)", + ?SEV_IPRINT("RcvBuf is ~p (needs at least ~p)", [RcvSz, 16+size(Msg)]), if (RcvSz < size(Msg)) -> NewRcvSz = 1024+size(Msg), @@ -40449,7 +39644,7 @@ traffic_ping_pong_send_and_receive_tcp(#{msg := Msg} = InitState) -> ok end, {ok, SndSz} = socket:getopt(Sock, socket, sndbuf), - ?SEV_IPRINT("SndBuf is ~p (needs atleast ~p)", + ?SEV_IPRINT("SndBuf is ~p (needs at least ~p)", [SndSz, 16+size(Msg)]), if (SndSz < size(Msg)) -> NewSndSz = 1024+size(Msg), @@ -40681,15 +39876,9 @@ traffic_ping_pong_send_and_receive_tcp2(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, client) of - {ok, Node} -> - ?SEV_IPRINT("(remote) client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(State) -> + {Peer, Node} = ?START_NODE("client"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -40834,9 +40023,9 @@ traffic_ping_pong_send_and_receive_tcp2(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -40991,7 +40180,7 @@ traffic_ping_pong_send_and_receive_tcp2(InitState) -> CTime = tdiff(CStart, CStop), %% Note that the sizes we are counting is only %% the "data" part of the messages. There is also - %% fixed header for each message, which of cource + %% fixed header for each message, which of course %% is small for the large messages, but comparatively %% big for the small messages! ?SEV_IPRINT("Results: ~w messages exchanged" @@ -41674,15 +40863,9 @@ traffic_ping_pong_send_and_receive_udp2(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, client) of - {ok, Node} -> - ?SEV_IPRINT("(remote) client node ~p started", - [Node]), - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(State) -> + {Peer, Node} = ?START_NODE("client"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -41783,9 +40966,9 @@ traffic_ping_pong_send_and_receive_udp2(InitState) -> {ok, State1} end}, #{desc => "stop client node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -41917,7 +41100,7 @@ traffic_ping_pong_send_and_receive_udp2(InitState) -> CTime = tdiff(CStart, CStop), %% Note that the sizes we are counting is only %% the "data" part of the messages. There is also - %% fixed header for each message, which of cource + %% fixed header for each message, which of course %% is small for the large messages, but comparatively %% big for the small messages! ?SEV_IPRINT("Results: ~w messages exchanged" @@ -42194,7 +41377,7 @@ tpp_udp_recv(Sock, Recv, Tag) -> ERROR catch C:E:S -> - {error, {catched, C, E, S}} + {error, {caught, C, E, S}} end. tpp_udp_send_req(Sock, Send, Data, Dest) -> @@ -42306,18 +41489,14 @@ tpp_udp_sock_close(Sock, Path) -> %% Domain: inet %% -ttest_sgenf_cgenf_small_tcp4(suite) -> - []; -ttest_sgenf_cgenf_small_tcp4(doc) -> - []; ttest_sgenf_cgenf_small_tcp4(Config) when is_list(Config) -> - Runtime = which_ttest_runtime(Config), + Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_small_tcp4, Runtime, inet, gen, false, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42330,10 +41509,6 @@ ttest_sgenf_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgenf_small_tcp6(suite) -> - []; -ttest_sgenf_cgenf_small_tcp6(doc) -> - []; ttest_sgenf_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_small_tcp6, @@ -42341,7 +41516,7 @@ ttest_sgenf_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42354,10 +41529,6 @@ ttest_sgenf_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgenf_medium_tcp4(suite) -> - []; -ttest_sgenf_cgenf_medium_tcp4(doc) -> - []; ttest_sgenf_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_medium_tcp4, @@ -42365,7 +41536,7 @@ ttest_sgenf_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42378,10 +41549,6 @@ ttest_sgenf_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgenf_medium_tcp6(suite) -> - []; -ttest_sgenf_cgenf_medium_tcp6(doc) -> - []; ttest_sgenf_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_medium_tcp6, @@ -42389,7 +41556,7 @@ ttest_sgenf_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42402,10 +41569,6 @@ ttest_sgenf_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgenf_large_tcp4(suite) -> - []; -ttest_sgenf_cgenf_large_tcp4(doc) -> - []; ttest_sgenf_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_large_tcp4, @@ -42413,7 +41576,7 @@ ttest_sgenf_cgenf_large_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42426,10 +41589,6 @@ ttest_sgenf_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgenf_large_tcp6(suite) -> - []; -ttest_sgenf_cgenf_large_tcp6(doc) -> - []; ttest_sgenf_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgenf_large_tcp6, @@ -42437,7 +41596,7 @@ ttest_sgenf_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42450,10 +41609,6 @@ ttest_sgenf_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgeno_small_tcp4(suite) -> - []; -ttest_sgenf_cgeno_small_tcp4(doc) -> - []; ttest_sgenf_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_small_tcp4, @@ -42461,7 +41616,7 @@ ttest_sgenf_cgeno_small_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42474,10 +41629,6 @@ ttest_sgenf_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgeno_small_tcp6(suite) -> - []; -ttest_sgenf_cgeno_small_tcp6(doc) -> - []; ttest_sgenf_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_small_tcp6, @@ -42485,7 +41636,7 @@ ttest_sgenf_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42498,10 +41649,6 @@ ttest_sgenf_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgeno_medium_tcp4(suite) -> - []; -ttest_sgenf_cgeno_medium_tcp4(doc) -> - []; ttest_sgenf_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_medium_tcp4, @@ -42509,7 +41656,7 @@ ttest_sgenf_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42522,10 +41669,6 @@ ttest_sgenf_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgeno_medium_tcp6(suite) -> - []; -ttest_sgenf_cgeno_medium_tcp6(doc) -> - []; ttest_sgenf_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_medium_tcp6, @@ -42533,7 +41676,7 @@ ttest_sgenf_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42546,10 +41689,6 @@ ttest_sgenf_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgeno_large_tcp4(suite) -> - []; -ttest_sgenf_cgeno_large_tcp4(doc) -> - []; ttest_sgenf_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_large_tcp4, @@ -42557,7 +41696,7 @@ ttest_sgenf_cgeno_large_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42570,10 +41709,6 @@ ttest_sgenf_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgeno_large_tcp6(suite) -> - []; -ttest_sgenf_cgeno_large_tcp6(doc) -> - []; ttest_sgenf_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_large_tcp6, @@ -42581,7 +41716,7 @@ ttest_sgenf_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42594,10 +41729,6 @@ ttest_sgenf_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgent_small_tcp4(suite) -> - []; -ttest_sgenf_cgent_small_tcp4(doc) -> - []; ttest_sgenf_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgent_small_tcp4, @@ -42605,7 +41736,7 @@ ttest_sgenf_cgent_small_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42618,10 +41749,6 @@ ttest_sgenf_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgent_small_tcp6(suite) -> - []; -ttest_sgenf_cgent_small_tcp6(doc) -> - []; ttest_sgenf_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgeno_small_tcp6, @@ -42629,7 +41756,7 @@ ttest_sgenf_cgent_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42642,10 +41769,6 @@ ttest_sgenf_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgent_medium_tcp4(suite) -> - []; -ttest_sgenf_cgent_medium_tcp4(doc) -> - []; ttest_sgenf_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgent_medium_tcp4, @@ -42653,7 +41776,7 @@ ttest_sgenf_cgent_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42666,10 +41789,6 @@ ttest_sgenf_cgent_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgent_medium_tcp6(suite) -> - []; -ttest_sgenf_cgent_medium_tcp6(doc) -> - []; ttest_sgenf_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgent_medium_tcp6, @@ -42677,7 +41796,7 @@ ttest_sgenf_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42690,10 +41809,6 @@ ttest_sgenf_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_cgent_large_tcp4(suite) -> - []; -ttest_sgenf_cgent_large_tcp4(doc) -> - []; ttest_sgenf_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgent_large_tcp4, @@ -42701,7 +41816,7 @@ ttest_sgenf_cgent_large_tcp4(Config) when is_list(Config) -> inet, gen, false, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42714,10 +41829,6 @@ ttest_sgenf_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_cgent_large_tcp6(suite) -> - []; -ttest_sgenf_cgent_large_tcp6(doc) -> - []; ttest_sgenf_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_cgent_large_tcp6, @@ -42725,7 +41836,7 @@ ttest_sgenf_cgent_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42738,10 +41849,6 @@ ttest_sgenf_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockf_small_tcp4(suite) -> - []; -ttest_sgenf_csockf_small_tcp4(doc) -> - []; ttest_sgenf_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_small_tcp4, @@ -42749,7 +41856,7 @@ ttest_sgenf_csockf_small_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42762,10 +41869,6 @@ ttest_sgenf_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockf_small_tcp6(suite) -> - []; -ttest_sgenf_csockf_small_tcp6(doc) -> - []; ttest_sgenf_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_small_tcp6, @@ -42773,7 +41876,7 @@ ttest_sgenf_csockf_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42786,10 +41889,6 @@ ttest_sgenf_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockf_medium_tcp4(suite) -> - []; -ttest_sgenf_csockf_medium_tcp4(doc) -> - []; ttest_sgenf_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_medium_tcp4, @@ -42797,7 +41896,7 @@ ttest_sgenf_csockf_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42810,10 +41909,6 @@ ttest_sgenf_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockf_medium_tcp6(suite) -> - []; -ttest_sgenf_csockf_medium_tcp6(doc) -> - []; ttest_sgenf_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_medium_tcp6, @@ -42821,7 +41916,7 @@ ttest_sgenf_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42834,10 +41929,6 @@ ttest_sgenf_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockf_large_tcp4(suite) -> - []; -ttest_sgenf_csockf_large_tcp4(doc) -> - []; ttest_sgenf_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_large_tcp4, @@ -42845,7 +41936,7 @@ ttest_sgenf_csockf_large_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42858,10 +41949,6 @@ ttest_sgenf_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockf_large_tcp6(suite) -> - []; -ttest_sgenf_csockf_large_tcp6(doc) -> - []; ttest_sgenf_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockf_large_tcp6, @@ -42869,7 +41956,7 @@ ttest_sgenf_csockf_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -42882,10 +41969,6 @@ ttest_sgenf_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csocko_small_tcp4(suite) -> - []; -ttest_sgenf_csocko_small_tcp4(doc) -> - []; ttest_sgenf_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_small_tcp4, @@ -42893,7 +41976,7 @@ ttest_sgenf_csocko_small_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42906,10 +41989,6 @@ ttest_sgenf_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csocko_small_tcp6(suite) -> - []; -ttest_sgenf_csocko_small_tcp6(doc) -> - []; ttest_sgenf_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_small_tcp6, @@ -42917,7 +41996,7 @@ ttest_sgenf_csocko_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -42930,10 +42009,6 @@ ttest_sgenf_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csocko_medium_tcp4(suite) -> - []; -ttest_sgenf_csocko_medium_tcp4(doc) -> - []; ttest_sgenf_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_medium_tcp4, @@ -42941,7 +42016,7 @@ ttest_sgenf_csocko_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42954,10 +42029,6 @@ ttest_sgenf_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csocko_medium_tcp6(suite) -> - []; -ttest_sgenf_csocko_medium_tcp6(doc) -> - []; ttest_sgenf_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_medium_tcp6, @@ -42965,7 +42036,7 @@ ttest_sgenf_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -42978,10 +42049,6 @@ ttest_sgenf_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csocko_large_tcp4(suite) -> - []; -ttest_sgenf_csocko_large_tcp4(doc) -> - []; ttest_sgenf_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_large_tcp4, @@ -42989,7 +42056,7 @@ ttest_sgenf_csocko_large_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43002,10 +42069,6 @@ ttest_sgenf_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csocko_large_tcp6(suite) -> - []; -ttest_sgenf_csocko_large_tcp6(doc) -> - []; ttest_sgenf_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_large_tcp6, @@ -43013,7 +42076,7 @@ ttest_sgenf_csocko_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43026,10 +42089,6 @@ ttest_sgenf_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockt_small_tcp4(suite) -> - []; -ttest_sgenf_csockt_small_tcp4(doc) -> - []; ttest_sgenf_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockt_small_tcp4, @@ -43037,7 +42096,7 @@ ttest_sgenf_csockt_small_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43050,10 +42109,6 @@ ttest_sgenf_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockt_small_tcp6(suite) -> - []; -ttest_sgenf_csockt_small_tcp6(doc) -> - []; ttest_sgenf_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csocko_small_tcp6, @@ -43061,7 +42116,7 @@ ttest_sgenf_csockt_small_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43074,10 +42129,6 @@ ttest_sgenf_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockt_medium_tcp4(suite) -> - []; -ttest_sgenf_csockt_medium_tcp4(doc) -> - []; ttest_sgenf_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockt_medium_tcp4, @@ -43085,7 +42136,7 @@ ttest_sgenf_csockt_medium_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43098,10 +42149,6 @@ ttest_sgenf_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockt_medium_tcp6(suite) -> - []; -ttest_sgenf_csockt_medium_tcp6(doc) -> - []; ttest_sgenf_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockt_medium_tcp6, @@ -43109,7 +42156,7 @@ ttest_sgenf_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43122,10 +42169,6 @@ ttest_sgenf_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgenf_csockt_large_tcp4(suite) -> - []; -ttest_sgenf_csockt_large_tcp4(doc) -> - []; ttest_sgenf_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockt_large_tcp4, @@ -43133,7 +42176,7 @@ ttest_sgenf_csockt_large_tcp4(Config) when is_list(Config) -> inet, gen, false, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43146,10 +42189,6 @@ ttest_sgenf_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgenf_csockt_large_tcp6(suite) -> - []; -ttest_sgenf_csockt_large_tcp6(doc) -> - []; ttest_sgenf_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgenf_csockt_large_tcp6, @@ -43157,7 +42196,7 @@ ttest_sgenf_csockt_large_tcp6(Config) when is_list(Config) -> inet6, gen, false, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43170,10 +42209,6 @@ ttest_sgenf_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgenf_small_tcp4(suite) -> - []; -ttest_sgeno_cgenf_small_tcp4(doc) -> - []; ttest_sgeno_cgenf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_small_tcp4, @@ -43181,7 +42216,7 @@ ttest_sgeno_cgenf_small_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43194,10 +42229,6 @@ ttest_sgeno_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgenf_small_tcp6(suite) -> - []; -ttest_sgeno_cgenf_small_tcp6(doc) -> - []; ttest_sgeno_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_small_tcp6, @@ -43205,7 +42236,7 @@ ttest_sgeno_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43218,10 +42249,6 @@ ttest_sgeno_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgenf_medium_tcp4(suite) -> - []; -ttest_sgeno_cgenf_medium_tcp4(doc) -> - []; ttest_sgeno_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_medium_tcp4, @@ -43229,7 +42256,7 @@ ttest_sgeno_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43242,10 +42269,6 @@ ttest_sgeno_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgenf_medium_tcp6(suite) -> - []; -ttest_sgeno_cgenf_medium_tcp6(doc) -> - []; ttest_sgeno_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_medium_tcp6, @@ -43253,7 +42276,7 @@ ttest_sgeno_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43266,10 +42289,6 @@ ttest_sgeno_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgenf_large_tcp4(suite) -> - []; -ttest_sgeno_cgenf_large_tcp4(doc) -> - []; ttest_sgeno_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_large_tcp4, @@ -43277,7 +42296,7 @@ ttest_sgeno_cgenf_large_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43290,10 +42309,6 @@ ttest_sgeno_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgenf_large_tcp6(suite) -> - []; -ttest_sgeno_cgenf_large_tcp6(doc) -> - []; ttest_sgeno_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgenf_large_tcp6, @@ -43301,7 +42316,7 @@ ttest_sgeno_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43314,10 +42329,6 @@ ttest_sgeno_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgeno_small_tcp4(suite) -> - []; -ttest_sgeno_cgeno_small_tcp4(doc) -> - []; ttest_sgeno_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_small_tcp4, @@ -43325,7 +42336,7 @@ ttest_sgeno_cgeno_small_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43338,10 +42349,6 @@ ttest_sgeno_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgeno_small_tcp6(suite) -> - []; -ttest_sgeno_cgeno_small_tcp6(doc) -> - []; ttest_sgeno_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_small_tcp6, @@ -43349,7 +42356,7 @@ ttest_sgeno_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43362,10 +42369,6 @@ ttest_sgeno_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgeno_medium_tcp4(suite) -> - []; -ttest_sgeno_cgeno_medium_tcp4(doc) -> - []; ttest_sgeno_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_medium_tcp4, @@ -43373,7 +42376,7 @@ ttest_sgeno_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43386,10 +42389,6 @@ ttest_sgeno_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgeno_medium_tcp6(suite) -> - []; -ttest_sgeno_cgeno_medium_tcp6(doc) -> - []; ttest_sgeno_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_medium_tcp6, @@ -43397,7 +42396,7 @@ ttest_sgeno_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43410,10 +42409,6 @@ ttest_sgeno_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgeno_large_tcp4(suite) -> - []; -ttest_sgeno_cgeno_large_tcp4(doc) -> - []; ttest_sgeno_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_large_tcp4, @@ -43421,7 +42416,7 @@ ttest_sgeno_cgeno_large_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43434,10 +42429,6 @@ ttest_sgeno_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgeno_large_tcp6(suite) -> - []; -ttest_sgeno_cgeno_large_tcp6(doc) -> - []; ttest_sgeno_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_large_tcp6, @@ -43445,7 +42436,7 @@ ttest_sgeno_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43458,10 +42449,6 @@ ttest_sgeno_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgent_small_tcp4(suite) -> - []; -ttest_sgeno_cgent_small_tcp4(doc) -> - []; ttest_sgeno_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgent_small_tcp4, @@ -43469,7 +42456,7 @@ ttest_sgeno_cgent_small_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43482,10 +42469,6 @@ ttest_sgeno_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgent_small_tcp6(suite) -> - []; -ttest_sgeno_cgent_small_tcp6(doc) -> - []; ttest_sgeno_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgeno_small_tcp6, @@ -43493,7 +42476,7 @@ ttest_sgeno_cgent_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43506,10 +42489,6 @@ ttest_sgeno_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgent_medium_tcp4(suite) -> - []; -ttest_sgeno_cgent_medium_tcp4(doc) -> - []; ttest_sgeno_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgent_medium_tcp4, @@ -43517,7 +42496,7 @@ ttest_sgeno_cgent_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43530,10 +42509,6 @@ ttest_sgeno_cgent_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgent_medium_tcp6(suite) -> - []; -ttest_sgeno_cgent_medium_tcp6(doc) -> - []; ttest_sgeno_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgent_medium_tcp6, @@ -43541,7 +42516,7 @@ ttest_sgeno_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43554,10 +42529,6 @@ ttest_sgeno_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_cgent_large_tcp4(suite) -> - []; -ttest_sgeno_cgent_large_tcp4(doc) -> - []; ttest_sgeno_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgent_large_tcp4, @@ -43565,7 +42536,7 @@ ttest_sgeno_cgent_large_tcp4(Config) when is_list(Config) -> inet, gen, once, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43578,10 +42549,6 @@ ttest_sgeno_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_cgent_large_tcp6(suite) -> - []; -ttest_sgeno_cgent_large_tcp6(doc) -> - []; ttest_sgeno_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_cgent_large_tcp6, @@ -43589,7 +42556,7 @@ ttest_sgeno_cgent_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43602,10 +42569,6 @@ ttest_sgeno_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockf_small_tcp4(suite) -> - []; -ttest_sgeno_csockf_small_tcp4(doc) -> - []; ttest_sgeno_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_small_tcp4, @@ -43613,7 +42576,7 @@ ttest_sgeno_csockf_small_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43626,10 +42589,6 @@ ttest_sgeno_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockf_small_tcp6(suite) -> - []; -ttest_sgeno_csockf_small_tcp6(doc) -> - []; ttest_sgeno_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_small_tcp6, @@ -43637,7 +42596,7 @@ ttest_sgeno_csockf_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43650,10 +42609,6 @@ ttest_sgeno_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockf_medium_tcp4(suite) -> - []; -ttest_sgeno_csockf_medium_tcp4(doc) -> - []; ttest_sgeno_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_medium_tcp4, @@ -43661,7 +42616,7 @@ ttest_sgeno_csockf_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43674,10 +42629,6 @@ ttest_sgeno_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockf_medium_tcp6(suite) -> - []; -ttest_sgeno_csockf_medium_tcp6(doc) -> - []; ttest_sgeno_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_medium_tcp6, @@ -43685,7 +42636,7 @@ ttest_sgeno_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43698,10 +42649,6 @@ ttest_sgeno_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockf_large_tcp4(suite) -> - []; -ttest_sgeno_csockf_large_tcp4(doc) -> - []; ttest_sgeno_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_large_tcp4, @@ -43709,7 +42656,7 @@ ttest_sgeno_csockf_large_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43722,10 +42669,6 @@ ttest_sgeno_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockf_large_tcp6(suite) -> - []; -ttest_sgeno_csockf_large_tcp6(doc) -> - []; ttest_sgeno_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockf_large_tcp6, @@ -43733,7 +42676,7 @@ ttest_sgeno_csockf_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43746,10 +42689,6 @@ ttest_sgeno_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csocko_small_tcp4(suite) -> - []; -ttest_sgeno_csocko_small_tcp4(doc) -> - []; ttest_sgeno_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_small_tcp4, @@ -43757,7 +42696,7 @@ ttest_sgeno_csocko_small_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43770,10 +42709,6 @@ ttest_sgeno_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csocko_small_tcp6(suite) -> - []; -ttest_sgeno_csocko_small_tcp6(doc) -> - []; ttest_sgeno_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_small_tcp6, @@ -43781,7 +42716,7 @@ ttest_sgeno_csocko_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43794,10 +42729,6 @@ ttest_sgeno_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csocko_medium_tcp4(suite) -> - []; -ttest_sgeno_csocko_medium_tcp4(doc) -> - []; ttest_sgeno_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_medium_tcp4, @@ -43805,7 +42736,7 @@ ttest_sgeno_csocko_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43818,10 +42749,6 @@ ttest_sgeno_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csocko_medium_tcp6(suite) -> - []; -ttest_sgeno_csocko_medium_tcp6(doc) -> - []; ttest_sgeno_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_medium_tcp6, @@ -43829,7 +42756,7 @@ ttest_sgeno_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43842,10 +42769,6 @@ ttest_sgeno_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csocko_large_tcp4(suite) -> - []; -ttest_sgeno_csocko_large_tcp4(doc) -> - []; ttest_sgeno_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_large_tcp4, @@ -43853,7 +42776,7 @@ ttest_sgeno_csocko_large_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43866,10 +42789,6 @@ ttest_sgeno_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csocko_large_tcp6(suite) -> - []; -ttest_sgeno_csocko_large_tcp6(doc) -> - []; ttest_sgeno_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_large_tcp6, @@ -43877,7 +42796,7 @@ ttest_sgeno_csocko_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -43890,10 +42809,6 @@ ttest_sgeno_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockt_small_tcp4(suite) -> - []; -ttest_sgeno_csockt_small_tcp4(doc) -> - []; ttest_sgeno_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockt_small_tcp4, @@ -43901,7 +42816,7 @@ ttest_sgeno_csockt_small_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43914,10 +42829,6 @@ ttest_sgeno_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockt_small_tcp6(suite) -> - []; -ttest_sgeno_csockt_small_tcp6(doc) -> - []; ttest_sgeno_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csocko_small_tcp6, @@ -43925,7 +42836,7 @@ ttest_sgeno_csockt_small_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -43938,10 +42849,6 @@ ttest_sgeno_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockt_medium_tcp4(suite) -> - []; -ttest_sgeno_csockt_medium_tcp4(doc) -> - []; ttest_sgeno_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockt_medium_tcp4, @@ -43949,7 +42856,7 @@ ttest_sgeno_csockt_medium_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43962,10 +42869,6 @@ ttest_sgeno_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockt_medium_tcp6(suite) -> - []; -ttest_sgeno_csockt_medium_tcp6(doc) -> - []; ttest_sgeno_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockt_medium_tcp6, @@ -43973,7 +42876,7 @@ ttest_sgeno_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -43986,10 +42889,6 @@ ttest_sgeno_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgeno_csockt_large_tcp4(suite) -> - []; -ttest_sgeno_csockt_large_tcp4(doc) -> - []; ttest_sgeno_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockt_large_tcp4, @@ -43997,7 +42896,7 @@ ttest_sgeno_csockt_large_tcp4(Config) when is_list(Config) -> inet, gen, once, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44010,10 +42909,6 @@ ttest_sgeno_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgeno_csockt_large_tcp6(suite) -> - []; -ttest_sgeno_csockt_large_tcp6(doc) -> - []; ttest_sgeno_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgeno_csockt_large_tcp6, @@ -44021,7 +42916,7 @@ ttest_sgeno_csockt_large_tcp6(Config) when is_list(Config) -> inet6, gen, once, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44034,10 +42929,6 @@ ttest_sgeno_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgenf_small_tcp4(suite) -> - []; -ttest_sgent_cgenf_small_tcp4(doc) -> - []; ttest_sgent_cgenf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_small_tcp4, @@ -44045,7 +42936,7 @@ ttest_sgent_cgenf_small_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44058,10 +42949,6 @@ ttest_sgent_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgenf_small_tcp6(suite) -> - []; -ttest_sgent_cgenf_small_tcp6(doc) -> - []; ttest_sgent_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_small_tcp6, @@ -44069,7 +42956,7 @@ ttest_sgent_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44082,10 +42969,6 @@ ttest_sgent_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgenf_medium_tcp4(suite) -> - []; -ttest_sgent_cgenf_medium_tcp4(doc) -> - []; ttest_sgent_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_medium_tcp4, @@ -44093,7 +42976,7 @@ ttest_sgent_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44106,10 +42989,6 @@ ttest_sgent_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgenf_medium_tcp6(suite) -> - []; -ttest_sgent_cgenf_medium_tcp6(doc) -> - []; ttest_sgent_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_medium_tcp6, @@ -44117,7 +42996,7 @@ ttest_sgent_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44130,10 +43009,6 @@ ttest_sgent_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgenf_large_tcp4(suite) -> - []; -ttest_sgent_cgenf_large_tcp4(doc) -> - []; ttest_sgent_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_large_tcp4, @@ -44141,7 +43016,7 @@ ttest_sgent_cgenf_large_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44154,10 +43029,6 @@ ttest_sgent_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgenf_large_tcp6(suite) -> - []; -ttest_sgent_cgenf_large_tcp6(doc) -> - []; ttest_sgent_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgenf_large_tcp6, @@ -44165,7 +43036,7 @@ ttest_sgent_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44178,10 +43049,6 @@ ttest_sgent_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgeno_small_tcp4(suite) -> - []; -ttest_sgent_cgeno_small_tcp4(doc) -> - []; ttest_sgent_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_small_tcp4, @@ -44189,7 +43056,7 @@ ttest_sgent_cgeno_small_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44202,10 +43069,6 @@ ttest_sgent_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgeno_small_tcp6(suite) -> - []; -ttest_sgent_cgeno_small_tcp6(doc) -> - []; ttest_sgent_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_small_tcp6, @@ -44213,7 +43076,7 @@ ttest_sgent_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44226,10 +43089,6 @@ ttest_sgent_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgeno_medium_tcp4(suite) -> - []; -ttest_sgent_cgeno_medium_tcp4(doc) -> - []; ttest_sgent_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_medium_tcp4, @@ -44237,7 +43096,7 @@ ttest_sgent_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44250,10 +43109,6 @@ ttest_sgent_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgeno_medium_tcp6(suite) -> - []; -ttest_sgent_cgeno_medium_tcp6(doc) -> - []; ttest_sgent_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_medium_tcp6, @@ -44261,7 +43116,7 @@ ttest_sgent_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44274,10 +43129,6 @@ ttest_sgent_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgeno_large_tcp4(suite) -> - []; -ttest_sgent_cgeno_large_tcp4(doc) -> - []; ttest_sgent_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_large_tcp4, @@ -44285,7 +43136,7 @@ ttest_sgent_cgeno_large_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44298,10 +43149,6 @@ ttest_sgent_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgeno_large_tcp6(suite) -> - []; -ttest_sgent_cgeno_large_tcp6(doc) -> - []; ttest_sgent_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_large_tcp6, @@ -44309,7 +43156,7 @@ ttest_sgent_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44322,10 +43169,6 @@ ttest_sgent_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgent_small_tcp4(suite) -> - []; -ttest_sgent_cgent_small_tcp4(doc) -> - []; ttest_sgent_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgent_small_tcp4, @@ -44333,7 +43176,7 @@ ttest_sgent_cgent_small_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44346,10 +43189,6 @@ ttest_sgent_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgent_small_tcp6(suite) -> - []; -ttest_sgent_cgent_small_tcp6(doc) -> - []; ttest_sgent_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgeno_small_tcp6, @@ -44357,7 +43196,7 @@ ttest_sgent_cgent_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44370,10 +43209,9 @@ ttest_sgent_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgent_medium_tcp4(suite) -> - []; -ttest_sgent_cgent_medium_tcp4(doc) -> - ["Server(gen,true), Client(gen,true), Domain=inet, msg=medium"]; +ttest_sgent_cgent_medium_tcp4() -> + [{doc, "Server(gen,true), Client(gen,true), Domain=inet, msg=medium"}]. + ttest_sgent_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgent_medium_tcp4, @@ -44381,7 +43219,7 @@ ttest_sgent_cgent_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44393,11 +43231,9 @@ ttest_sgent_cgent_medium_tcp4(Config) when is_list(Config) -> %% Message Size: medium (=2) %% Domain: inet6 %% +ttest_sgent_cgent_medium_tcp6() -> + [{doc, "Server(gen,true), Client(gen,true), Domain=inet6, msg=medium"}]. -ttest_sgent_cgent_medium_tcp6(suite) -> - []; -ttest_sgent_cgent_medium_tcp6(doc) -> - ["Server(gen,true), Client(gen,true), Domain=inet6, msg=medium"]; ttest_sgent_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgent_medium_tcp6, @@ -44405,7 +43241,7 @@ ttest_sgent_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44418,10 +43254,9 @@ ttest_sgent_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_cgent_large_tcp4(suite) -> - []; -ttest_sgent_cgent_large_tcp4(doc) -> - ["Server(gen,true), Client(gen,true), Domain=inet, msg=large"]; +ttest_sgent_cgent_large_tcp4() -> + [{doc, "Server(gen,true), Client(gen,true), Domain=inet, msg=large"}]. + ttest_sgent_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgent_large_tcp4, @@ -44429,7 +43264,7 @@ ttest_sgent_cgent_large_tcp4(Config) when is_list(Config) -> inet, gen, true, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44442,10 +43277,9 @@ ttest_sgent_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_cgent_large_tcp6(suite) -> - []; -ttest_sgent_cgent_large_tcp6(doc) -> - ["Server(gen,true), Client(gen,true), Domain=inet6, msg=large"]; +ttest_sgent_cgent_large_tcp6() -> + [{doc, "Server(gen,true), Client(gen,true), Domain=inet6, msg=large"}]. + ttest_sgent_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_cgent_large_tcp6, @@ -44453,7 +43287,7 @@ ttest_sgent_cgent_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44466,10 +43300,7 @@ ttest_sgent_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockf_small_tcp4(suite) -> - []; -ttest_sgent_csockf_small_tcp4(doc) -> - []; + ttest_sgent_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_small_tcp4, @@ -44477,7 +43308,7 @@ ttest_sgent_csockf_small_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44490,10 +43321,6 @@ ttest_sgent_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockf_small_tcp6(suite) -> - []; -ttest_sgent_csockf_small_tcp6(doc) -> - []; ttest_sgent_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_small_tcp6, @@ -44501,7 +43328,7 @@ ttest_sgent_csockf_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44514,10 +43341,6 @@ ttest_sgent_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockf_medium_tcp4(suite) -> - []; -ttest_sgent_csockf_medium_tcp4(doc) -> - []; ttest_sgent_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_medium_tcp4, @@ -44525,7 +43348,7 @@ ttest_sgent_csockf_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44538,10 +43361,6 @@ ttest_sgent_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockf_medium_tcp6(suite) -> - []; -ttest_sgent_csockf_medium_tcp6(doc) -> - []; ttest_sgent_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_medium_tcp6, @@ -44549,7 +43368,7 @@ ttest_sgent_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44562,10 +43381,6 @@ ttest_sgent_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockf_large_tcp4(suite) -> - []; -ttest_sgent_csockf_large_tcp4(doc) -> - []; ttest_sgent_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_large_tcp4, @@ -44573,7 +43388,7 @@ ttest_sgent_csockf_large_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44586,10 +43401,6 @@ ttest_sgent_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockf_large_tcp6(suite) -> - []; -ttest_sgent_csockf_large_tcp6(doc) -> - []; ttest_sgent_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockf_large_tcp6, @@ -44597,7 +43408,7 @@ ttest_sgent_csockf_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44610,10 +43421,6 @@ ttest_sgent_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csocko_small_tcp4(suite) -> - []; -ttest_sgent_csocko_small_tcp4(doc) -> - []; ttest_sgent_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_small_tcp4, @@ -44621,7 +43428,7 @@ ttest_sgent_csocko_small_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44634,10 +43441,6 @@ ttest_sgent_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csocko_small_tcp6(suite) -> - []; -ttest_sgent_csocko_small_tcp6(doc) -> - []; ttest_sgent_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_small_tcp6, @@ -44645,7 +43448,7 @@ ttest_sgent_csocko_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44658,10 +43461,6 @@ ttest_sgent_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csocko_medium_tcp4(suite) -> - []; -ttest_sgent_csocko_medium_tcp4(doc) -> - []; ttest_sgent_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_medium_tcp4, @@ -44669,7 +43468,7 @@ ttest_sgent_csocko_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44682,10 +43481,6 @@ ttest_sgent_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csocko_medium_tcp6(suite) -> - []; -ttest_sgent_csocko_medium_tcp6(doc) -> - []; ttest_sgent_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_medium_tcp6, @@ -44693,7 +43488,7 @@ ttest_sgent_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44706,10 +43501,6 @@ ttest_sgent_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csocko_large_tcp4(suite) -> - []; -ttest_sgent_csocko_large_tcp4(doc) -> - []; ttest_sgent_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_large_tcp4, @@ -44717,7 +43508,7 @@ ttest_sgent_csocko_large_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44730,10 +43521,6 @@ ttest_sgent_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csocko_large_tcp6(suite) -> - []; -ttest_sgent_csocko_large_tcp6(doc) -> - []; ttest_sgent_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_large_tcp6, @@ -44741,7 +43528,7 @@ ttest_sgent_csocko_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44754,10 +43541,6 @@ ttest_sgent_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockt_small_tcp4(suite) -> - []; -ttest_sgent_csockt_small_tcp4(doc) -> - []; ttest_sgent_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockt_small_tcp4, @@ -44765,7 +43548,7 @@ ttest_sgent_csockt_small_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44778,10 +43561,6 @@ ttest_sgent_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockt_small_tcp6(suite) -> - []; -ttest_sgent_csockt_small_tcp6(doc) -> - []; ttest_sgent_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csocko_small_tcp6, @@ -44789,7 +43568,7 @@ ttest_sgent_csockt_small_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44802,10 +43581,6 @@ ttest_sgent_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockt_medium_tcp4(suite) -> - []; -ttest_sgent_csockt_medium_tcp4(doc) -> - []; ttest_sgent_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockt_medium_tcp4, @@ -44813,7 +43588,7 @@ ttest_sgent_csockt_medium_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44826,10 +43601,6 @@ ttest_sgent_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockt_medium_tcp6(suite) -> - []; -ttest_sgent_csockt_medium_tcp6(doc) -> - []; ttest_sgent_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockt_medium_tcp6, @@ -44837,7 +43608,7 @@ ttest_sgent_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44850,10 +43621,6 @@ ttest_sgent_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_sgent_csockt_large_tcp4(suite) -> - []; -ttest_sgent_csockt_large_tcp4(doc) -> - []; ttest_sgent_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockt_large_tcp4, @@ -44861,7 +43628,7 @@ ttest_sgent_csockt_large_tcp4(Config) when is_list(Config) -> inet, gen, true, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44874,10 +43641,6 @@ ttest_sgent_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_sgent_csockt_large_tcp6(suite) -> - []; -ttest_sgent_csockt_large_tcp6(doc) -> - []; ttest_sgent_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_sgent_csockt_large_tcp6, @@ -44885,7 +43648,7 @@ ttest_sgent_csockt_large_tcp6(Config) when is_list(Config) -> inet6, gen, true, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -44898,10 +43661,6 @@ ttest_sgent_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgenf_small_tcp4(suite) -> - []; -ttest_ssockf_cgenf_small_tcp4(doc) -> - []; ttest_ssockf_cgenf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_small_tcp4, @@ -44909,7 +43668,7 @@ ttest_ssockf_cgenf_small_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44922,10 +43681,6 @@ ttest_ssockf_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgenf_small_tcp6(suite) -> - []; -ttest_ssockf_cgenf_small_tcp6(doc) -> - []; ttest_ssockf_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_small_tcp6, @@ -44933,7 +43688,7 @@ ttest_ssockf_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -44946,10 +43701,6 @@ ttest_ssockf_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgenf_medium_tcp4(suite) -> - []; -ttest_ssockf_cgenf_medium_tcp4(doc) -> - []; ttest_ssockf_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_medium_tcp4, @@ -44957,7 +43708,7 @@ ttest_ssockf_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44970,10 +43721,6 @@ ttest_ssockf_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgenf_medium_tcp6(suite) -> - []; -ttest_ssockf_cgenf_medium_tcp6(doc) -> - []; ttest_ssockf_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_medium_tcp6, @@ -44981,7 +43728,7 @@ ttest_ssockf_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -44994,10 +43741,6 @@ ttest_ssockf_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgenf_large_tcp4(suite) -> - []; -ttest_ssockf_cgenf_large_tcp4(doc) -> - []; ttest_ssockf_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_large_tcp4, @@ -45005,7 +43748,7 @@ ttest_ssockf_cgenf_large_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45018,10 +43761,6 @@ ttest_ssockf_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgenf_large_tcp6(suite) -> - []; -ttest_ssockf_cgenf_large_tcp6(doc) -> - []; ttest_ssockf_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgenf_large_tcp6, @@ -45029,7 +43768,7 @@ ttest_ssockf_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45042,10 +43781,6 @@ ttest_ssockf_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgeno_small_tcp4(suite) -> - []; -ttest_ssockf_cgeno_small_tcp4(doc) -> - []; ttest_ssockf_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_small_tcp4, @@ -45053,7 +43788,7 @@ ttest_ssockf_cgeno_small_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45066,10 +43801,6 @@ ttest_ssockf_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgeno_small_tcp6(suite) -> - []; -ttest_ssockf_cgeno_small_tcp6(doc) -> - []; ttest_ssockf_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_small_tcp6, @@ -45077,7 +43808,7 @@ ttest_ssockf_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45090,10 +43821,6 @@ ttest_ssockf_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgeno_medium_tcp4(suite) -> - []; -ttest_ssockf_cgeno_medium_tcp4(doc) -> - []; ttest_ssockf_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_medium_tcp4, @@ -45101,7 +43828,7 @@ ttest_ssockf_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45114,10 +43841,6 @@ ttest_ssockf_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgeno_medium_tcp6(suite) -> - []; -ttest_ssockf_cgeno_medium_tcp6(doc) -> - []; ttest_ssockf_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_medium_tcp6, @@ -45125,7 +43848,7 @@ ttest_ssockf_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45138,10 +43861,6 @@ ttest_ssockf_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgeno_large_tcp4(suite) -> - []; -ttest_ssockf_cgeno_large_tcp4(doc) -> - []; ttest_ssockf_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_large_tcp4, @@ -45149,7 +43868,7 @@ ttest_ssockf_cgeno_large_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45162,10 +43881,6 @@ ttest_ssockf_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgeno_large_tcp6(suite) -> - []; -ttest_ssockf_cgeno_large_tcp6(doc) -> - []; ttest_ssockf_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_large_tcp6, @@ -45173,7 +43888,7 @@ ttest_ssockf_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45186,10 +43901,6 @@ ttest_ssockf_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgent_small_tcp4(suite) -> - []; -ttest_ssockf_cgent_small_tcp4(doc) -> - []; ttest_ssockf_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgent_small_tcp4, @@ -45197,7 +43908,7 @@ ttest_ssockf_cgent_small_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45210,10 +43921,6 @@ ttest_ssockf_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgent_small_tcp6(suite) -> - []; -ttest_ssockf_cgent_small_tcp6(doc) -> - []; ttest_ssockf_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgeno_small_tcp6, @@ -45221,7 +43928,7 @@ ttest_ssockf_cgent_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45234,10 +43941,6 @@ ttest_ssockf_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgent_medium_tcp4(suite) -> - []; -ttest_ssockf_cgent_medium_tcp4(doc) -> - []; ttest_ssockf_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgent_medium_tcp4, @@ -45245,7 +43948,7 @@ ttest_ssockf_cgent_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45258,10 +43961,6 @@ ttest_ssockf_cgent_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgent_medium_tcp6(suite) -> - []; -ttest_ssockf_cgent_medium_tcp6(doc) -> - []; ttest_ssockf_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgent_medium_tcp6, @@ -45269,7 +43968,7 @@ ttest_ssockf_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45282,10 +43981,6 @@ ttest_ssockf_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_cgent_large_tcp4(suite) -> - []; -ttest_ssockf_cgent_large_tcp4(doc) -> - []; ttest_ssockf_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgent_large_tcp4, @@ -45293,7 +43988,7 @@ ttest_ssockf_cgent_large_tcp4(Config) when is_list(Config) -> inet, sock, false, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45306,10 +44001,6 @@ ttest_ssockf_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_cgent_large_tcp6(suite) -> - []; -ttest_ssockf_cgent_large_tcp6(doc) -> - []; ttest_ssockf_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_cgent_large_tcp6, @@ -45317,7 +44008,7 @@ ttest_ssockf_cgent_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45330,10 +44021,6 @@ ttest_ssockf_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockf_small_tcp4(suite) -> - []; -ttest_ssockf_csockf_small_tcp4(doc) -> - []; ttest_ssockf_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_small_tcp4, @@ -45341,7 +44028,7 @@ ttest_ssockf_csockf_small_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45354,10 +44041,6 @@ ttest_ssockf_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockf_small_tcp6(suite) -> - []; -ttest_ssockf_csockf_small_tcp6(doc) -> - []; ttest_ssockf_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_small_tcp6, @@ -45365,7 +44048,7 @@ ttest_ssockf_csockf_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45378,10 +44061,6 @@ ttest_ssockf_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockf_small_tcpL(suite) -> - []; -ttest_ssockf_csockf_small_tcpL(doc) -> - []; ttest_ssockf_csockf_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_small_tcpL, @@ -45389,7 +44068,7 @@ ttest_ssockf_csockf_small_tcpL(Config) when is_list(Config) -> local, sock, false, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45402,10 +44081,6 @@ ttest_ssockf_csockf_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockf_medium_tcp4(suite) -> - []; -ttest_ssockf_csockf_medium_tcp4(doc) -> - []; ttest_ssockf_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_medium_tcp4, @@ -45413,7 +44088,7 @@ ttest_ssockf_csockf_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45426,10 +44101,6 @@ ttest_ssockf_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockf_medium_tcp6(suite) -> - []; -ttest_ssockf_csockf_medium_tcp6(doc) -> - []; ttest_ssockf_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_medium_tcp6, @@ -45437,7 +44108,7 @@ ttest_ssockf_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45450,10 +44121,6 @@ ttest_ssockf_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockf_medium_tcpL(suite) -> - []; -ttest_ssockf_csockf_medium_tcpL(doc) -> - []; ttest_ssockf_csockf_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_medium_tcpL, @@ -45461,7 +44128,7 @@ ttest_ssockf_csockf_medium_tcpL(Config) when is_list(Config) -> local, sock, false, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45474,10 +44141,6 @@ ttest_ssockf_csockf_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockf_large_tcp4(suite) -> - []; -ttest_ssockf_csockf_large_tcp4(doc) -> - []; ttest_ssockf_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_large_tcp4, @@ -45485,7 +44148,7 @@ ttest_ssockf_csockf_large_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45498,10 +44161,6 @@ ttest_ssockf_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockf_large_tcp6(suite) -> - []; -ttest_ssockf_csockf_large_tcp6(doc) -> - []; ttest_ssockf_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_large_tcp6, @@ -45509,7 +44168,7 @@ ttest_ssockf_csockf_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45522,10 +44181,6 @@ ttest_ssockf_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockf_large_tcpL(suite) -> - []; -ttest_ssockf_csockf_large_tcpL(doc) -> - []; ttest_ssockf_csockf_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockf_large_tcpL, @@ -45533,7 +44188,7 @@ ttest_ssockf_csockf_large_tcpL(Config) when is_list(Config) -> local, sock, false, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45546,10 +44201,6 @@ ttest_ssockf_csockf_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csocko_small_tcp4(suite) -> - []; -ttest_ssockf_csocko_small_tcp4(doc) -> - []; ttest_ssockf_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_small_tcp4, @@ -45557,7 +44208,7 @@ ttest_ssockf_csocko_small_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45570,10 +44221,6 @@ ttest_ssockf_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csocko_small_tcp6(suite) -> - []; -ttest_ssockf_csocko_small_tcp6(doc) -> - []; ttest_ssockf_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_small_tcp6, @@ -45581,7 +44228,7 @@ ttest_ssockf_csocko_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45594,10 +44241,6 @@ ttest_ssockf_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csocko_small_tcpL(suite) -> - []; -ttest_ssockf_csocko_small_tcpL(doc) -> - []; ttest_ssockf_csocko_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_small_tcpL, @@ -45605,7 +44248,7 @@ ttest_ssockf_csocko_small_tcpL(Config) when is_list(Config) -> local, sock, false, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45618,10 +44261,6 @@ ttest_ssockf_csocko_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csocko_medium_tcp4(suite) -> - []; -ttest_ssockf_csocko_medium_tcp4(doc) -> - []; ttest_ssockf_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_medium_tcp4, @@ -45629,7 +44268,7 @@ ttest_ssockf_csocko_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45642,10 +44281,6 @@ ttest_ssockf_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csocko_medium_tcp6(suite) -> - []; -ttest_ssockf_csocko_medium_tcp6(doc) -> - []; ttest_ssockf_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_medium_tcp6, @@ -45653,7 +44288,7 @@ ttest_ssockf_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45666,10 +44301,6 @@ ttest_ssockf_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csocko_medium_tcpL(suite) -> - []; -ttest_ssockf_csocko_medium_tcpL(doc) -> - []; ttest_ssockf_csocko_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_medium_tcpL, @@ -45677,7 +44308,7 @@ ttest_ssockf_csocko_medium_tcpL(Config) when is_list(Config) -> local, sock, false, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45690,10 +44321,6 @@ ttest_ssockf_csocko_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csocko_large_tcp4(suite) -> - []; -ttest_ssockf_csocko_large_tcp4(doc) -> - []; ttest_ssockf_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_large_tcp4, @@ -45701,7 +44328,7 @@ ttest_ssockf_csocko_large_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45714,10 +44341,6 @@ ttest_ssockf_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csocko_large_tcp6(suite) -> - []; -ttest_ssockf_csocko_large_tcp6(doc) -> - []; ttest_ssockf_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_large_tcp6, @@ -45725,7 +44348,7 @@ ttest_ssockf_csocko_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45738,10 +44361,6 @@ ttest_ssockf_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csocko_large_tcpL(suite) -> - []; -ttest_ssockf_csocko_large_tcpL(doc) -> - []; ttest_ssockf_csocko_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_large_tcpL, @@ -45749,7 +44368,7 @@ ttest_ssockf_csocko_large_tcpL(Config) when is_list(Config) -> local, sock, false, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45762,10 +44381,6 @@ ttest_ssockf_csocko_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockt_small_tcp4(suite) -> - []; -ttest_ssockf_csockt_small_tcp4(doc) -> - []; ttest_ssockf_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_small_tcp4, @@ -45773,7 +44388,7 @@ ttest_ssockf_csockt_small_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45786,10 +44401,6 @@ ttest_ssockf_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockt_small_tcp6(suite) -> - []; -ttest_ssockf_csockt_small_tcp6(doc) -> - []; ttest_ssockf_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_small_tcp6, @@ -45797,7 +44408,7 @@ ttest_ssockf_csockt_small_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45810,10 +44421,6 @@ ttest_ssockf_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockt_small_tcpL(suite) -> - []; -ttest_ssockf_csockt_small_tcpL(doc) -> - []; ttest_ssockf_csockt_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csocko_small_tcpL, @@ -45821,7 +44428,7 @@ ttest_ssockf_csockt_small_tcpL(Config) when is_list(Config) -> local, sock, false, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -45834,10 +44441,6 @@ ttest_ssockf_csockt_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockt_medium_tcp4(suite) -> - []; -ttest_ssockf_csockt_medium_tcp4(doc) -> - []; ttest_ssockf_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_medium_tcp4, @@ -45845,7 +44448,7 @@ ttest_ssockf_csockt_medium_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45858,10 +44461,6 @@ ttest_ssockf_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockt_medium_tcp6(suite) -> - []; -ttest_ssockf_csockt_medium_tcp6(doc) -> - []; ttest_ssockf_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_medium_tcp6, @@ -45869,7 +44468,7 @@ ttest_ssockf_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45882,10 +44481,6 @@ ttest_ssockf_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockt_medium_tcpL(suite) -> - []; -ttest_ssockf_csockt_medium_tcpL(doc) -> - []; ttest_ssockf_csockt_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_medium_tcpL, @@ -45893,7 +44488,7 @@ ttest_ssockf_csockt_medium_tcpL(Config) when is_list(Config) -> local, sock, false, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -45906,10 +44501,6 @@ ttest_ssockf_csockt_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockf_csockt_large_tcp4(suite) -> - []; -ttest_ssockf_csockt_large_tcp4(doc) -> - []; ttest_ssockf_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_large_tcp4, @@ -45917,7 +44508,7 @@ ttest_ssockf_csockt_large_tcp4(Config) when is_list(Config) -> inet, sock, false, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45930,10 +44521,6 @@ ttest_ssockf_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockf_csockt_large_tcp6(suite) -> - []; -ttest_ssockf_csockt_large_tcp6(doc) -> - []; ttest_ssockf_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_large_tcp6, @@ -45941,7 +44528,7 @@ ttest_ssockf_csockt_large_tcp6(Config) when is_list(Config) -> inet6, sock, false, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45954,10 +44541,6 @@ ttest_ssockf_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockf_csockt_large_tcpL(suite) -> - []; -ttest_ssockf_csockt_large_tcpL(doc) -> - []; ttest_ssockf_csockt_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockf_csockt_large_tcpL, @@ -45965,7 +44548,7 @@ ttest_ssockf_csockt_large_tcpL(Config) when is_list(Config) -> local, sock, false, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -45978,10 +44561,6 @@ ttest_ssockf_csockt_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgenf_small_tcp4(suite) -> - []; -ttest_ssocko_cgenf_small_tcp4(doc) -> - []; ttest_ssocko_cgenf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_small_tcp4, @@ -45989,7 +44568,7 @@ ttest_ssocko_cgenf_small_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46002,10 +44581,6 @@ ttest_ssocko_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgenf_small_tcp6(suite) -> - []; -ttest_ssocko_cgenf_small_tcp6(doc) -> - []; ttest_ssocko_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_small_tcp6, @@ -46013,7 +44588,7 @@ ttest_ssocko_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46026,10 +44601,6 @@ ttest_ssocko_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgenf_medium_tcp4(suite) -> - []; -ttest_ssocko_cgenf_medium_tcp4(doc) -> - []; ttest_ssocko_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_medium_tcp4, @@ -46037,7 +44608,7 @@ ttest_ssocko_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46050,10 +44621,6 @@ ttest_ssocko_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgenf_medium_tcp6(suite) -> - []; -ttest_ssocko_cgenf_medium_tcp6(doc) -> - []; ttest_ssocko_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_medium_tcp6, @@ -46061,7 +44628,7 @@ ttest_ssocko_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46074,10 +44641,6 @@ ttest_ssocko_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgenf_large_tcp4(suite) -> - []; -ttest_ssocko_cgenf_large_tcp4(doc) -> - []; ttest_ssocko_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_large_tcp4, @@ -46085,7 +44648,7 @@ ttest_ssocko_cgenf_large_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46098,10 +44661,6 @@ ttest_ssocko_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgenf_large_tcp6(suite) -> - []; -ttest_ssocko_cgenf_large_tcp6(doc) -> - []; ttest_ssocko_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgenf_large_tcp6, @@ -46109,7 +44668,7 @@ ttest_ssocko_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46122,10 +44681,6 @@ ttest_ssocko_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgeno_small_tcp4(suite) -> - []; -ttest_ssocko_cgeno_small_tcp4(doc) -> - []; ttest_ssocko_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_small_tcp4, @@ -46133,7 +44688,7 @@ ttest_ssocko_cgeno_small_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46146,10 +44701,6 @@ ttest_ssocko_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgeno_small_tcp6(suite) -> - []; -ttest_ssocko_cgeno_small_tcp6(doc) -> - []; ttest_ssocko_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_small_tcp6, @@ -46157,7 +44708,7 @@ ttest_ssocko_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46170,10 +44721,6 @@ ttest_ssocko_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgeno_medium_tcp4(suite) -> - []; -ttest_ssocko_cgeno_medium_tcp4(doc) -> - []; ttest_ssocko_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_medium_tcp4, @@ -46181,7 +44728,7 @@ ttest_ssocko_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46194,10 +44741,6 @@ ttest_ssocko_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgeno_medium_tcp6(suite) -> - []; -ttest_ssocko_cgeno_medium_tcp6(doc) -> - []; ttest_ssocko_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_medium_tcp6, @@ -46205,7 +44748,7 @@ ttest_ssocko_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46218,10 +44761,6 @@ ttest_ssocko_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgeno_large_tcp4(suite) -> - []; -ttest_ssocko_cgeno_large_tcp4(doc) -> - []; ttest_ssocko_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_large_tcp4, @@ -46229,7 +44768,7 @@ ttest_ssocko_cgeno_large_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46242,10 +44781,6 @@ ttest_ssocko_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgeno_large_tcp6(suite) -> - []; -ttest_ssocko_cgeno_large_tcp6(doc) -> - []; ttest_ssocko_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgeno_large_tcp6, @@ -46253,7 +44788,7 @@ ttest_ssocko_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46266,10 +44801,6 @@ ttest_ssocko_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgent_small_tcp4(suite) -> - []; -ttest_ssocko_cgent_small_tcp4(doc) -> - []; ttest_ssocko_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_small_tcp4, @@ -46277,7 +44808,7 @@ ttest_ssocko_cgent_small_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46290,10 +44821,6 @@ ttest_ssocko_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgent_small_tcp6(suite) -> - []; -ttest_ssocko_cgent_small_tcp6(doc) -> - []; ttest_ssocko_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_small_tcp6, @@ -46301,7 +44828,7 @@ ttest_ssocko_cgent_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46314,10 +44841,6 @@ ttest_ssocko_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgent_medium_tcp4(suite) -> - []; -ttest_ssocko_cgent_medium_tcp4(doc) -> - []; ttest_ssocko_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_medium_tcp4, @@ -46325,7 +44848,7 @@ ttest_ssocko_cgent_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46338,10 +44861,6 @@ ttest_ssocko_cgent_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgent_medium_tcp6(suite) -> - []; -ttest_ssocko_cgent_medium_tcp6(doc) -> - []; ttest_ssocko_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_medium_tcp6, @@ -46349,7 +44868,7 @@ ttest_ssocko_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46362,10 +44881,6 @@ ttest_ssocko_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_cgent_large_tcp4(suite) -> - []; -ttest_ssocko_cgent_large_tcp4(doc) -> - []; ttest_ssocko_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_large_tcp4, @@ -46373,7 +44888,7 @@ ttest_ssocko_cgent_large_tcp4(Config) when is_list(Config) -> inet, sock, once, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46386,10 +44901,6 @@ ttest_ssocko_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_cgent_large_tcp6(suite) -> - []; -ttest_ssocko_cgent_large_tcp6(doc) -> - []; ttest_ssocko_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_cgent_large_tcp6, @@ -46397,7 +44908,7 @@ ttest_ssocko_cgent_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46410,10 +44921,6 @@ ttest_ssocko_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockf_small_tcp4(suite) -> - []; -ttest_ssocko_csockf_small_tcp4(doc) -> - []; ttest_ssocko_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_small_tcp4, @@ -46421,7 +44928,7 @@ ttest_ssocko_csockf_small_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46434,10 +44941,6 @@ ttest_ssocko_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockf_small_tcp6(suite) -> - []; -ttest_ssocko_csockf_small_tcp6(doc) -> - []; ttest_ssocko_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_small_tcp6, @@ -46445,7 +44948,7 @@ ttest_ssocko_csockf_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46458,10 +44961,6 @@ ttest_ssocko_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockf_small_tcpL(suite) -> - []; -ttest_ssocko_csockf_small_tcpL(doc) -> - []; ttest_ssocko_csockf_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_small_tcpL, @@ -46469,7 +44968,7 @@ ttest_ssocko_csockf_small_tcpL(Config) when is_list(Config) -> local, sock, once, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46482,10 +44981,6 @@ ttest_ssocko_csockf_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockf_medium_tcp4(suite) -> - []; -ttest_ssocko_csockf_medium_tcp4(doc) -> - []; ttest_ssocko_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_medium_tcp4, @@ -46493,7 +44988,7 @@ ttest_ssocko_csockf_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46506,10 +45001,6 @@ ttest_ssocko_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockf_medium_tcp6(suite) -> - []; -ttest_ssocko_csockf_medium_tcp6(doc) -> - []; ttest_ssocko_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_medium_tcp6, @@ -46517,7 +45008,7 @@ ttest_ssocko_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46530,10 +45021,6 @@ ttest_ssocko_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockf_medium_tcpL(suite) -> - []; -ttest_ssocko_csockf_medium_tcpL(doc) -> - []; ttest_ssocko_csockf_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_medium_tcpL, @@ -46541,7 +45028,7 @@ ttest_ssocko_csockf_medium_tcpL(Config) when is_list(Config) -> local, sock, once, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46554,10 +45041,6 @@ ttest_ssocko_csockf_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockf_large_tcp4(suite) -> - []; -ttest_ssocko_csockf_large_tcp4(doc) -> - []; ttest_ssocko_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_large_tcp4, @@ -46565,7 +45048,7 @@ ttest_ssocko_csockf_large_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46578,10 +45061,6 @@ ttest_ssocko_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockf_large_tcp6(suite) -> - []; -ttest_ssocko_csockf_large_tcp6(doc) -> - []; ttest_ssocko_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_large_tcp6, @@ -46589,7 +45068,7 @@ ttest_ssocko_csockf_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46602,10 +45081,6 @@ ttest_ssocko_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockf_large_tcpL(suite) -> - []; -ttest_ssocko_csockf_large_tcpL(doc) -> - []; ttest_ssocko_csockf_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockf_large_tcpL, @@ -46613,7 +45088,7 @@ ttest_ssocko_csockf_large_tcpL(Config) when is_list(Config) -> local, sock, once, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46626,10 +45101,6 @@ ttest_ssocko_csockf_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csocko_small_tcp4(suite) -> - []; -ttest_ssocko_csocko_small_tcp4(doc) -> - []; ttest_ssocko_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_small_tcp4, @@ -46637,7 +45108,7 @@ ttest_ssocko_csocko_small_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46650,10 +45121,6 @@ ttest_ssocko_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csocko_small_tcp6(suite) -> - []; -ttest_ssocko_csocko_small_tcp6(doc) -> - []; ttest_ssocko_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_small_tcp6, @@ -46661,7 +45128,7 @@ ttest_ssocko_csocko_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46674,10 +45141,6 @@ ttest_ssocko_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csocko_small_tcpL(suite) -> - []; -ttest_ssocko_csocko_small_tcpL(doc) -> - []; ttest_ssocko_csocko_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_small_tcpL, @@ -46685,7 +45148,7 @@ ttest_ssocko_csocko_small_tcpL(Config) when is_list(Config) -> local, sock, once, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46698,10 +45161,6 @@ ttest_ssocko_csocko_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csocko_medium_tcp4(suite) -> - []; -ttest_ssocko_csocko_medium_tcp4(doc) -> - []; ttest_ssocko_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_medium_tcp4, @@ -46709,7 +45168,7 @@ ttest_ssocko_csocko_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46722,10 +45181,6 @@ ttest_ssocko_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csocko_medium_tcp6(suite) -> - []; -ttest_ssocko_csocko_medium_tcp6(doc) -> - []; ttest_ssocko_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_medium_tcp6, @@ -46733,7 +45188,7 @@ ttest_ssocko_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46746,10 +45201,6 @@ ttest_ssocko_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csocko_medium_tcpL(suite) -> - []; -ttest_ssocko_csocko_medium_tcpL(doc) -> - []; ttest_ssocko_csocko_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_medium_tcpL, @@ -46757,7 +45208,7 @@ ttest_ssocko_csocko_medium_tcpL(Config) when is_list(Config) -> local, sock, once, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46770,10 +45221,6 @@ ttest_ssocko_csocko_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csocko_large_tcp4(suite) -> - []; -ttest_ssocko_csocko_large_tcp4(doc) -> - []; ttest_ssocko_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_large_tcp4, @@ -46781,7 +45228,7 @@ ttest_ssocko_csocko_large_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46794,10 +45241,6 @@ ttest_ssocko_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csocko_large_tcp6(suite) -> - []; -ttest_ssocko_csocko_large_tcp6(doc) -> - []; ttest_ssocko_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_large_tcp6, @@ -46805,7 +45248,7 @@ ttest_ssocko_csocko_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46818,10 +45261,6 @@ ttest_ssocko_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csocko_large_tcpL(suite) -> - []; -ttest_ssocko_csocko_large_tcpL(doc) -> - []; ttest_ssocko_csocko_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_large_tcpL, @@ -46829,7 +45268,7 @@ ttest_ssocko_csocko_large_tcpL(Config) when is_list(Config) -> local, sock, once, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -46842,10 +45281,6 @@ ttest_ssocko_csocko_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockt_small_tcp4(suite) -> - []; -ttest_ssocko_csockt_small_tcp4(doc) -> - []; ttest_ssocko_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_small_tcp4, @@ -46853,7 +45288,7 @@ ttest_ssocko_csockt_small_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46866,10 +45301,6 @@ ttest_ssocko_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockt_small_tcp6(suite) -> - []; -ttest_ssocko_csockt_small_tcp6(doc) -> - []; ttest_ssocko_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_small_tcp6, @@ -46877,7 +45308,7 @@ ttest_ssocko_csockt_small_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46890,10 +45321,6 @@ ttest_ssocko_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockt_small_tcpL(suite) -> - []; -ttest_ssocko_csockt_small_tcpL(doc) -> - []; ttest_ssocko_csockt_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csocko_small_tcpL, @@ -46901,7 +45328,7 @@ ttest_ssocko_csockt_small_tcpL(Config) when is_list(Config) -> local, sock, once, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -46914,10 +45341,6 @@ ttest_ssocko_csockt_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockt_medium_tcp4(suite) -> - []; -ttest_ssocko_csockt_medium_tcp4(doc) -> - []; ttest_ssocko_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_medium_tcp4, @@ -46925,7 +45348,7 @@ ttest_ssocko_csockt_medium_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46938,10 +45361,6 @@ ttest_ssocko_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockt_medium_tcp6(suite) -> - []; -ttest_ssocko_csockt_medium_tcp6(doc) -> - []; ttest_ssocko_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_medium_tcp6, @@ -46949,7 +45368,7 @@ ttest_ssocko_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46962,10 +45381,6 @@ ttest_ssocko_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockt_medium_tcpL(suite) -> - []; -ttest_ssocko_csockt_medium_tcpL(doc) -> - []; ttest_ssocko_csockt_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_medium_tcpL, @@ -46973,7 +45388,7 @@ ttest_ssocko_csockt_medium_tcpL(Config) when is_list(Config) -> local, sock, once, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -46986,10 +45401,6 @@ ttest_ssocko_csockt_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssocko_csockt_large_tcp4(suite) -> - []; -ttest_ssocko_csockt_large_tcp4(doc) -> - []; ttest_ssocko_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_large_tcp4, @@ -46997,7 +45408,7 @@ ttest_ssocko_csockt_large_tcp4(Config) when is_list(Config) -> inet, sock, once, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47010,10 +45421,6 @@ ttest_ssocko_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssocko_csockt_large_tcp6(suite) -> - []; -ttest_ssocko_csockt_large_tcp6(doc) -> - []; ttest_ssocko_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_large_tcp6, @@ -47021,7 +45428,7 @@ ttest_ssocko_csockt_large_tcp6(Config) when is_list(Config) -> inet6, sock, once, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47034,10 +45441,6 @@ ttest_ssocko_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssocko_csockt_large_tcpL(suite) -> - []; -ttest_ssocko_csockt_large_tcpL(doc) -> - []; ttest_ssocko_csockt_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssocko_csockt_large_tcpL, @@ -47045,7 +45448,7 @@ ttest_ssocko_csockt_large_tcpL(Config) when is_list(Config) -> local, sock, once, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47058,10 +45461,6 @@ ttest_ssocko_csockt_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgenf_small_tcp4(suite) -> - []; -ttest_ssockt_cgenf_small_tcp4(doc) -> - []; ttest_ssockt_cgenf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_small_tcp4, @@ -47069,7 +45468,7 @@ ttest_ssockt_cgenf_small_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47082,10 +45481,6 @@ ttest_ssockt_cgenf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgenf_small_tcp6(suite) -> - []; -ttest_ssockt_cgenf_small_tcp6(doc) -> - []; ttest_ssockt_cgenf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_small_tcp6, @@ -47093,7 +45488,7 @@ ttest_ssockt_cgenf_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47106,10 +45501,6 @@ ttest_ssockt_cgenf_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgenf_medium_tcp4(suite) -> - []; -ttest_ssockt_cgenf_medium_tcp4(doc) -> - []; ttest_ssockt_cgenf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_medium_tcp4, @@ -47117,7 +45508,7 @@ ttest_ssockt_cgenf_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47130,10 +45521,6 @@ ttest_ssockt_cgenf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgenf_medium_tcp6(suite) -> - []; -ttest_ssockt_cgenf_medium_tcp6(doc) -> - []; ttest_ssockt_cgenf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_medium_tcp6, @@ -47141,7 +45528,7 @@ ttest_ssockt_cgenf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47154,10 +45541,6 @@ ttest_ssockt_cgenf_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgenf_large_tcp4(suite) -> - []; -ttest_ssockt_cgenf_large_tcp4(doc) -> - []; ttest_ssockt_cgenf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_large_tcp4, @@ -47165,7 +45548,7 @@ ttest_ssockt_cgenf_large_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47178,10 +45561,6 @@ ttest_ssockt_cgenf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgenf_large_tcp6(suite) -> - []; -ttest_ssockt_cgenf_large_tcp6(doc) -> - []; ttest_ssockt_cgenf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgenf_large_tcp6, @@ -47189,7 +45568,7 @@ ttest_ssockt_cgenf_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47202,10 +45581,6 @@ ttest_ssockt_cgenf_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgeno_small_tcp4(suite) -> - []; -ttest_ssockt_cgeno_small_tcp4(doc) -> - []; ttest_ssockt_cgeno_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_small_tcp4, @@ -47213,7 +45588,7 @@ ttest_ssockt_cgeno_small_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47226,10 +45601,6 @@ ttest_ssockt_cgeno_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgeno_small_tcp6(suite) -> - []; -ttest_ssockt_cgeno_small_tcp6(doc) -> - []; ttest_ssockt_cgeno_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_small_tcp6, @@ -47237,7 +45608,7 @@ ttest_ssockt_cgeno_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47250,10 +45621,6 @@ ttest_ssockt_cgeno_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgeno_medium_tcp4(suite) -> - []; -ttest_ssockt_cgeno_medium_tcp4(doc) -> - []; ttest_ssockt_cgeno_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_medium_tcp4, @@ -47261,7 +45628,7 @@ ttest_ssockt_cgeno_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47274,10 +45641,6 @@ ttest_ssockt_cgeno_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgeno_medium_tcp6(suite) -> - []; -ttest_ssockt_cgeno_medium_tcp6(doc) -> - []; ttest_ssockt_cgeno_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_medium_tcp6, @@ -47285,7 +45648,7 @@ ttest_ssockt_cgeno_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47298,10 +45661,6 @@ ttest_ssockt_cgeno_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgeno_large_tcp4(suite) -> - []; -ttest_ssockt_cgeno_large_tcp4(doc) -> - []; ttest_ssockt_cgeno_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_large_tcp4, @@ -47309,7 +45668,7 @@ ttest_ssockt_cgeno_large_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47322,10 +45681,6 @@ ttest_ssockt_cgeno_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgeno_large_tcp6(suite) -> - []; -ttest_ssockt_cgeno_large_tcp6(doc) -> - []; ttest_ssockt_cgeno_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgeno_large_tcp6, @@ -47333,7 +45688,7 @@ ttest_ssockt_cgeno_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47346,10 +45701,6 @@ ttest_ssockt_cgeno_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgent_small_tcp4(suite) -> - []; -ttest_ssockt_cgent_small_tcp4(doc) -> - []; ttest_ssockt_cgent_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_small_tcp4, @@ -47357,7 +45708,7 @@ ttest_ssockt_cgent_small_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47370,10 +45721,6 @@ ttest_ssockt_cgent_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgent_small_tcp6(suite) -> - []; -ttest_ssockt_cgent_small_tcp6(doc) -> - []; ttest_ssockt_cgent_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_small_tcp6, @@ -47381,7 +45728,7 @@ ttest_ssockt_cgent_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47394,10 +45741,6 @@ ttest_ssockt_cgent_small_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgent_medium_tcp4(suite) -> - []; -ttest_ssockt_cgent_medium_tcp4(doc) -> - []; ttest_ssockt_cgent_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_medium_tcp4, @@ -47405,7 +45748,7 @@ ttest_ssockt_cgent_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47418,10 +45761,6 @@ ttest_ssockt_cgent_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgent_medium_tcp6(suite) -> - []; -ttest_ssockt_cgent_medium_tcp6(doc) -> - []; ttest_ssockt_cgent_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_medium_tcp6, @@ -47429,7 +45768,7 @@ ttest_ssockt_cgent_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47442,10 +45781,6 @@ ttest_ssockt_cgent_medium_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_cgent_large_tcp4(suite) -> - []; -ttest_ssockt_cgent_large_tcp4(doc) -> - []; ttest_ssockt_cgent_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_large_tcp4, @@ -47453,7 +45788,7 @@ ttest_ssockt_cgent_large_tcp4(Config) when is_list(Config) -> inet, sock, true, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47466,10 +45801,6 @@ ttest_ssockt_cgent_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_cgent_large_tcp6(suite) -> - []; -ttest_ssockt_cgent_large_tcp6(doc) -> - []; ttest_ssockt_cgent_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_cgent_large_tcp6, @@ -47477,7 +45808,7 @@ ttest_ssockt_cgent_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, gen, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47490,10 +45821,6 @@ ttest_ssockt_cgent_large_tcp6(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockf_small_tcp4(suite) -> - []; -ttest_ssockt_csockf_small_tcp4(doc) -> - []; ttest_ssockt_csockf_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_small_tcp4, @@ -47501,7 +45828,7 @@ ttest_ssockt_csockf_small_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47514,10 +45841,6 @@ ttest_ssockt_csockf_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockf_small_tcp6(suite) -> - []; -ttest_ssockt_csockf_small_tcp6(doc) -> - []; ttest_ssockt_csockf_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_small_tcp6, @@ -47525,7 +45848,7 @@ ttest_ssockt_csockf_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47538,10 +45861,6 @@ ttest_ssockt_csockf_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockf_small_tcpL(suite) -> - []; -ttest_ssockt_csockf_small_tcpL(doc) -> - []; ttest_ssockt_csockf_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_small_tcpL, @@ -47549,7 +45868,7 @@ ttest_ssockt_csockf_small_tcpL(Config) when is_list(Config) -> local, sock, true, sock, false, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47562,10 +45881,6 @@ ttest_ssockt_csockf_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockf_medium_tcp4(suite) -> - []; -ttest_ssockt_csockf_medium_tcp4(doc) -> - []; ttest_ssockt_csockf_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_medium_tcp4, @@ -47573,7 +45888,7 @@ ttest_ssockt_csockf_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47586,10 +45901,6 @@ ttest_ssockt_csockf_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockf_medium_tcp6(suite) -> - []; -ttest_ssockt_csockf_medium_tcp6(doc) -> - []; ttest_ssockt_csockf_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_medium_tcp6, @@ -47597,7 +45908,7 @@ ttest_ssockt_csockf_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47610,10 +45921,6 @@ ttest_ssockt_csockf_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockf_medium_tcpL(suite) -> - []; -ttest_ssockt_csockf_medium_tcpL(doc) -> - []; ttest_ssockt_csockf_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_medium_tcpL, @@ -47621,7 +45928,7 @@ ttest_ssockt_csockf_medium_tcpL(Config) when is_list(Config) -> local, sock, true, sock, false, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47634,10 +45941,6 @@ ttest_ssockt_csockf_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockf_large_tcp4(suite) -> - []; -ttest_ssockt_csockf_large_tcp4(doc) -> - []; ttest_ssockt_csockf_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_large_tcp4, @@ -47645,7 +45948,7 @@ ttest_ssockt_csockf_large_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47658,10 +45961,6 @@ ttest_ssockt_csockf_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockf_large_tcp6(suite) -> - []; -ttest_ssockt_csockf_large_tcp6(doc) -> - []; ttest_ssockt_csockf_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_large_tcp6, @@ -47669,7 +45968,7 @@ ttest_ssockt_csockf_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47682,10 +45981,6 @@ ttest_ssockt_csockf_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockf_large_tcpL(suite) -> - []; -ttest_ssockt_csockf_large_tcpL(doc) -> - []; ttest_ssockt_csockf_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockf_large_tcpL, @@ -47693,7 +45988,7 @@ ttest_ssockt_csockf_large_tcpL(Config) when is_list(Config) -> local, sock, true, sock, false, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47706,10 +46001,6 @@ ttest_ssockt_csockf_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csocko_small_tcp4(suite) -> - []; -ttest_ssockt_csocko_small_tcp4(doc) -> - []; ttest_ssockt_csocko_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_small_tcp4, @@ -47717,7 +46008,7 @@ ttest_ssockt_csocko_small_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47730,10 +46021,6 @@ ttest_ssockt_csocko_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csocko_small_tcp6(suite) -> - []; -ttest_ssockt_csocko_small_tcp6(doc) -> - []; ttest_ssockt_csocko_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_small_tcp6, @@ -47741,7 +46028,7 @@ ttest_ssockt_csocko_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47754,10 +46041,6 @@ ttest_ssockt_csocko_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csocko_small_tcpL(suite) -> - []; -ttest_ssockt_csocko_small_tcpL(doc) -> - []; ttest_ssockt_csocko_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_small_tcpL, @@ -47765,7 +46048,7 @@ ttest_ssockt_csocko_small_tcpL(Config) when is_list(Config) -> local, sock, true, sock, once, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47778,10 +46061,6 @@ ttest_ssockt_csocko_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csocko_medium_tcp4(suite) -> - []; -ttest_ssockt_csocko_medium_tcp4(doc) -> - []; ttest_ssockt_csocko_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_medium_tcp4, @@ -47789,7 +46068,7 @@ ttest_ssockt_csocko_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47802,10 +46081,6 @@ ttest_ssockt_csocko_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csocko_medium_tcp6(suite) -> - []; -ttest_ssockt_csocko_medium_tcp6(doc) -> - []; ttest_ssockt_csocko_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_medium_tcp6, @@ -47813,7 +46088,7 @@ ttest_ssockt_csocko_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47826,10 +46101,6 @@ ttest_ssockt_csocko_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csocko_medium_tcpL(suite) -> - []; -ttest_ssockt_csocko_medium_tcpL(doc) -> - []; ttest_ssockt_csocko_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_medium_tcpL, @@ -47837,7 +46108,7 @@ ttest_ssockt_csocko_medium_tcpL(Config) when is_list(Config) -> local, sock, true, sock, once, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -47850,10 +46121,6 @@ ttest_ssockt_csocko_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csocko_large_tcp4(suite) -> - []; -ttest_ssockt_csocko_large_tcp4(doc) -> - []; ttest_ssockt_csocko_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_large_tcp4, @@ -47861,7 +46128,7 @@ ttest_ssockt_csocko_large_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47874,10 +46141,6 @@ ttest_ssockt_csocko_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csocko_large_tcp6(suite) -> - []; -ttest_ssockt_csocko_large_tcp6(doc) -> - []; ttest_ssockt_csocko_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_large_tcp6, @@ -47885,7 +46148,7 @@ ttest_ssockt_csocko_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47898,10 +46161,6 @@ ttest_ssockt_csocko_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csocko_large_tcpL(suite) -> - []; -ttest_ssockt_csocko_large_tcpL(doc) -> - []; ttest_ssockt_csocko_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_large_tcpL, @@ -47909,7 +46168,7 @@ ttest_ssockt_csocko_large_tcpL(Config) when is_list(Config) -> local, sock, true, sock, once, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -47922,10 +46181,6 @@ ttest_ssockt_csocko_large_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockt_small_tcp4(suite) -> - []; -ttest_ssockt_csockt_small_tcp4(doc) -> - []; ttest_ssockt_csockt_small_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_small_tcp4, @@ -47933,7 +46188,7 @@ ttest_ssockt_csockt_small_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47946,10 +46201,6 @@ ttest_ssockt_csockt_small_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockt_small_tcp6(suite) -> - []; -ttest_ssockt_csockt_small_tcp6(doc) -> - []; ttest_ssockt_csockt_small_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_small_tcp6, @@ -47957,7 +46208,7 @@ ttest_ssockt_csockt_small_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47970,10 +46221,6 @@ ttest_ssockt_csockt_small_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockt_small_tcpL(suite) -> - []; -ttest_ssockt_csockt_small_tcpL(doc) -> - []; ttest_ssockt_csockt_small_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csocko_small_tcpL, @@ -47981,7 +46228,7 @@ ttest_ssockt_csockt_small_tcpL(Config) when is_list(Config) -> local, sock, true, sock, true, - 1, 200). + 1, ttest_small_max_outstanding(Config)). @@ -47994,10 +46241,6 @@ ttest_ssockt_csockt_small_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockt_medium_tcp4(suite) -> - []; -ttest_ssockt_csockt_medium_tcp4(doc) -> - []; ttest_ssockt_csockt_medium_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_medium_tcp4, @@ -48005,7 +46248,7 @@ ttest_ssockt_csockt_medium_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -48018,10 +46261,6 @@ ttest_ssockt_csockt_medium_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockt_medium_tcp6(suite) -> - []; -ttest_ssockt_csockt_medium_tcp6(doc) -> - []; ttest_ssockt_csockt_medium_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_medium_tcp6, @@ -48029,7 +46268,7 @@ ttest_ssockt_csockt_medium_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -48042,10 +46281,6 @@ ttest_ssockt_csockt_medium_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockt_medium_tcpL(suite) -> - []; -ttest_ssockt_csockt_medium_tcpL(doc) -> - []; ttest_ssockt_csockt_medium_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_medium_tcpL, @@ -48053,7 +46288,7 @@ ttest_ssockt_csockt_medium_tcpL(Config) when is_list(Config) -> local, sock, true, sock, true, - 2, 20). + 2, ttest_medium_max_outstanding(Config)). @@ -48066,10 +46301,6 @@ ttest_ssockt_csockt_medium_tcpL(Config) when is_list(Config) -> %% Domain: inet %% -ttest_ssockt_csockt_large_tcp4(suite) -> - []; -ttest_ssockt_csockt_large_tcp4(doc) -> - []; ttest_ssockt_csockt_large_tcp4(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_large_tcp4, @@ -48077,7 +46308,7 @@ ttest_ssockt_csockt_large_tcp4(Config) when is_list(Config) -> inet, sock, true, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -48090,10 +46321,6 @@ ttest_ssockt_csockt_large_tcp4(Config) when is_list(Config) -> %% Domain: inet6 %% -ttest_ssockt_csockt_large_tcp6(suite) -> - []; -ttest_ssockt_csockt_large_tcp6(doc) -> - []; ttest_ssockt_csockt_large_tcp6(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_large_tcp6, @@ -48101,7 +46328,7 @@ ttest_ssockt_csockt_large_tcp6(Config) when is_list(Config) -> inet6, sock, true, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -48114,10 +46341,6 @@ ttest_ssockt_csockt_large_tcp6(Config) when is_list(Config) -> %% Domain: local %% -ttest_ssockt_csockt_large_tcpL(suite) -> - []; -ttest_ssockt_csockt_large_tcpL(doc) -> - []; ttest_ssockt_csockt_large_tcpL(Config) when is_list(Config) -> Runtime = which_ttest_runtime(Config), ttest_tcp(ttest_ssockt_csockt_large_tcpL, @@ -48125,7 +46348,7 @@ ttest_ssockt_csockt_large_tcpL(Config) when is_list(Config) -> local, sock, true, sock, true, - 3, 2). + 3, ttest_large_max_outstanding(Config)). @@ -48195,10 +46418,12 @@ ttest_tcp(TC, %% On darwin we seem to hit the system limit(s) %% much earlier. %% The tests "mostly" work, but random cases fail - %% (even on reasonably powerfull machines), + %% (even on reasonably powerful machines), %% so its much simpler to just skip on darwin... has_support_unix_domain_socket(), - is_not_darwin(); + is_not_darwin(); + (Domain =:= inet) -> + has_support_ipv4(); (Domain =:= inet6) -> has_support_ipv6(); true -> ok @@ -48208,6 +46433,17 @@ ttest_tcp(TC, %% This may be overkill, depending on the runtime, %% but better safe then sorry... ?TT(Runtime + ?SECS(60)), + ?P("Parameters: " + "~n Domain: ~p" + "~n Message ID: ~p" + "~n Max Outstanding: ~p" + "~n Running Time: ~p" + "~n Server Module: ~p" + "~n Server Active: ~p" + "~n Client Module: ~p" + "~n Client Active: ~p", + [Domain, MsgID, MaxOutstanding, Runtime, + ServerMod, ServerActive, ClientMod, ClientActive]), InitState = #{domain => Domain, msg_id => MsgID, max_outstanding => MaxOutstanding, @@ -48240,13 +46476,9 @@ ttest_tcp(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, server) of - {ok, Node} -> - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(State) -> + {Peer, Node} = ?START_NODE("server"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor server node", cmd => fun(#{node := Node} = _State) -> @@ -48261,6 +46493,9 @@ ttest_tcp(InitState) -> case ttest_tcp_server_start(Node, Domain, Mod, Active) of {ok, {{Pid, _}, Path}} -> + ?SEV_IPRINT("server started: " + "~n Pid: ~p" + "~n Path: ~p", [Pid, Path]), {ok, State#{rserver => Pid, path => Path}}; {error, _} = ERROR -> @@ -48273,6 +46508,11 @@ ttest_tcp(InitState) -> case ttest_tcp_server_start(Node, Domain, Mod, Active) of {ok, {{Pid, _}, {Addr, Port}}} -> + ?SEV_IPRINT("server started: " + "~n Pid: ~p" + "~n Addr: ~p" + "~n Port: ~p", + [Pid, Addr, Port]), {ok, State#{rserver => Pid, addr => Addr, port => Port}}; @@ -48301,8 +46541,11 @@ ttest_tcp(InitState) -> case ?SEV_AWAIT_TERMINATE(Tester, tester, [{rserver, RServer}]) of ok -> + ?SEV_IPRINT("received termination request"), {ok, maps:remove(tester, State)}; - {error, _} = ERROR -> + {error, Reason} = ERROR -> + ?SEV_EPRINT("received unexpected error: " + "~n ~p", [Reason]), ERROR end end}, @@ -48321,9 +46564,9 @@ ttest_tcp(InitState) -> {ok, State1} end}, #{desc => "stop (server) node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -48366,11 +46609,17 @@ ttest_tcp(InitState) -> cmd => fun(#{domain := local} = State) -> {Tester, ServerPath} = ?SEV_AWAIT_START(), + ?SEV_IPRINT("started with server info: " + "~n Path: ~p", [ServerPath]), {ok, State#{tester => Tester, server_path => ServerPath}}; (State) -> {Tester, {ServerAddr, ServerPort}} = ?SEV_AWAIT_START(), + ?SEV_IPRINT("started with server info: " + "~n Addr: ~p" + "~n Port: ~p", + [ServerAddr, ServerPort]), {ok, State#{tester => Tester, server_addr => ServerAddr, server_port => ServerPort}} @@ -48384,13 +46633,13 @@ ttest_tcp(InitState) -> %% *** Init part *** #{desc => "create node", - cmd => fun(#{host := Host} = State) -> - case start_node(Host, client) of - {ok, Node} -> - {ok, State#{node => Node}}; - {error, Reason} -> - {skip, Reason} - end + cmd => fun(#{host := _Host} = State) -> + %% Because peer does not accept a host argument, + %% we can no longer start "remote" nodes... + %% Not that we actually did that. We always + %% used local-host. + {Peer, Node} = ?START_NODE("client"), + {ok, State#{peer => Peer, node => Node}} end}, #{desc => "monitor client node", cmd => fun(#{node := Node} = _State) -> @@ -48497,9 +46746,9 @@ ttest_tcp(InitState) -> end end}, #{desc => "stop (client) node", - cmd => fun(#{node := Node} = State) -> + cmd => fun(#{peer := Peer} = State) -> {ok, - try stop_node(Node) of + try peer:stop(Peer) of ok -> State#{node_stop => ok}; {error, Reason} -> @@ -48831,7 +47080,7 @@ ttest_report(Domain, bytes = NumBytes, msgs = NumMsgs}, %% If we run just one test case, the group init has never been run - %% and therefor the ttest manager is not running (we also don't actually + %% and therefore the ttest manager is not running (we also don't actually %% care about collecting reports in that case). (catch global:send(?TTEST_MANAGER, Report)), ok. @@ -48978,13 +47227,10 @@ which_ttest_reports(Domain, MsgID) -> %% Create several acceptor processes (processes that calls socket:accept/1) %% and then a couple of clients connects to them without any problems. %% TCP, IPv4. -otp16359_maccept_tcp4(suite) -> - []; -otp16359_maccept_tcp4(doc) -> - []; otp16359_maccept_tcp4(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(otp16359_maccept_tcp4, + fun() -> has_support_ipv4() end, fun() -> InitState = #{domain => inet, protocol => tcp}, @@ -48997,10 +47243,6 @@ otp16359_maccept_tcp4(_Config) when is_list(_Config) -> %% Create several acceptor processes (processes that calls socket:accept/1) %% and then a couple of clients connects to them without any problems. %% TCP, IPv6. -otp16359_maccept_tcp6(suite) -> - []; -otp16359_maccept_tcp6(doc) -> - []; otp16359_maccept_tcp6(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(otp16359_maccept_tcp6, @@ -49017,10 +47259,6 @@ otp16359_maccept_tcp6(_Config) when is_list(_Config) -> %% Create several acceptor processes (processes that calls socket:accept/1) %% and then a couple of clients connects to them without any problems. %% TCP, UNix Domain Sockets. -otp16359_maccept_tcpL(suite) -> - []; -otp16359_maccept_tcpL(doc) -> - []; otp16359_maccept_tcpL(_Config) when is_list(_Config) -> ?TT(?SECS(10)), tc_try(otp16359_maccept_tcpL, @@ -49635,66 +47873,165 @@ otp16359_maccept_tcp(InitState) -> Tester]). +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%% This test case is to verify that we do not leak monitors. +otp18240_accept_mon_leak_tcp4(Config) when is_list(Config) -> + ?TT(?SECS(10)), + tc_try(?FUNCTION_NAME, + fun() -> has_support_ipv4() end, + fun() -> + InitState = #{domain => inet, + protocol => tcp, + num_socks => 10}, + ok = otp18240_accept_tcp(InitState) + end). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% This mechanism has only one purpose: So that we are able to kill -%% the node-starter process if it takes to long. The node-starter -%% runs on the local node. -%% This crapola is hopefully temporary, but we have seen that on -%% some platforms the ct_slave:start simply hangs. --define(NODE_START_TIMEOUT, 10000). -start_node(Host, NodeName) -> - start_node(Host, NodeName, ?NODE_START_TIMEOUT). +%% This test case is to verify that we do not leak monitors. +otp18240_accept_mon_leak_tcp6(Config) when is_list(Config) -> + ?TT(?SECS(10)), + tc_try(?FUNCTION_NAME, + fun() -> has_support_ipv6() end, + fun() -> + InitState = #{domain => inet6, + protocol => tcp, + num_socks => 10}, + ok = otp18240_accept_tcp(InitState) + end). + -start_node(Host, NodeName, Timeout) -> - {NodeStarter, _} = - spawn_monitor(fun() -> exit(start_unique_node(Host, NodeName)) end), +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +otp18240_accept_tcp(#{domain := Domain, + protocol := Proto, + num_socks := NumSocks}) -> + Self = self(), + {Pid, Mon} = spawn_monitor(fun() -> + otp18240_acceptor(Self, + Domain, Proto, + NumSocks) + end), + otp18240_await_acceptor(Pid, Mon). + +otp18240_await_acceptor(Pid, Mon) -> receive - {'DOWN', _, process, NodeStarter, Result} -> - %% i("Node Starter (~p) reported: ~p", [NodeStarter, Result]), - Result - after Timeout -> - exit(NodeStarter, kill), - {error, {failed_starting_node, NodeName, timeout}} + {'DOWN', Mon, process, Pid, Info} -> + i("acceptor terminated: " + "~n ~p", [Info]) + after 5000 -> + i("acceptor info" + "~n Refs: ~p" + "~n Info: ~p", + [monitored_by(Pid), erlang:process_info(Pid)]), + otp18240_await_acceptor(Pid, Mon) end. -start_unique_node(Host, NodeName) -> - UniqueNodeName = f("~w_~w", [NodeName, erlang:system_time(millisecond)]), - case do_start_node(Host, UniqueNodeName) of - {ok, _} = OK -> - global:sync(), - %% i("Node ~p started: " - %% "~n Nodes: ~p" - %% "~n Logger: ~p" - %% "~n Global Names: ~p", - %% [NodeName, nodes(), - %% global:whereis_name(socket_test_logger), - %% global:registered_names()]), - OK; - {error, Reason, _} -> - {error, Reason} +otp18240_acceptor(Parent, Domain, Proto, NumSocks) -> + i("[acceptor] begin with: " + "~n Domain: ~p" + "~n Protocol: ~p", [Domain, Proto]), + MonitoredBy0 = monitored_by(), + {ok, LSock} = socket:open(Domain, stream, Proto, + #{use_registry => false}), + ok = socket:bind(LSock, #{family => Domain, port => 0, addr => any}), + ok = socket:listen(LSock, NumSocks), + MonitoredBy1 = monitored_by(), + [LSockMon] = MonitoredBy1 -- MonitoredBy0, + i("[acceptor]: listen socket created" + "~n Montored By before listen socket: ~p" + "~n Montored By after listen socket: ~p" + "~n Listen Socket Monitor: ~p" + "~n Listen Socket info: ~p", + [MonitoredBy0, MonitoredBy1, LSockMon, socket:info(LSock)]), + + {ok, #{port := Port}} = socket:sockname(LSock), + + i("[acceptor] create ~w clients (connectors)", [NumSocks]), + _Clients = [spawn_link(fun() -> + otp18240_client(CID, + Domain, Proto, + Port) + end) || CID <- lists:seq(1, NumSocks)], + + i("[acceptor] accept ~w connections", [NumSocks]), + ServSocks = [otp18240_do_accept(AID, LSock) || + AID <- lists:seq(1, NumSocks)], + + i("[acceptor] close accepted connections when: " + "~n Listen Socket info: ~p", [socket:info(LSock)]), + _ = [otp18240_do_close(S) || S <- ServSocks], + + %% at this point in time there should be no monitors from NIFs, + %% because we're not accepting anything + i("[acceptor] check monitor status"), + MonitoredBy2 = monitored_by(), + MonitoredBy3 = MonitoredBy2 -- [Parent, LSockMon], + i("[acceptor] monitor status: " + "~n UnRefs: ~p" + "~n MonitoredBy2: ~p" + "~n MonitoredBy3: ~p", + [[Parent, LSockMon], MonitoredBy2, MonitoredBy3]), + if + ([] =:= MonitoredBy3) -> + i("[acceptor] done"), + socket:close(LSock), + exit(ok); + true -> + socket:close(LSock), + i("[acceptor] Unexpected monitors: " + "~n ~p", [MonitoredBy2]), + exit({unexpected_monitors, MonitoredBy2}) end. -do_start_node(Host, NodeName) when is_list(NodeName) -> - do_start_node(Host, list_to_atom(NodeName)); -do_start_node(Host, NodeName) when is_atom(NodeName) -> - Dir = filename:dirname(code:which(?MODULE)), - Flags = "-pa " ++ Dir, - Opts = [{monitor_master, true}, {erl_flags, Flags}], - ct_slave:start(Host, NodeName, Opts). + +otp18240_client(ID, Domain, Proto, PortNo) -> + i("[connector ~w] try create connector socket", [ID]), + {ok, Sock} = socket:open(Domain, stream, Proto, #{use_registry => false}), + ok = socket:bind(Sock, #{family => Domain, port => 0, addr => any}), + %% ok = socket:setopt(Sock, otp, debug, true), + i("[connector ~w] try connect", [ID]), + ok = socket:connect(Sock, #{family => Domain, addr => any, port => PortNo}), + i("[connector ~w] connected - now try recv", [ID]), + case socket:recv(Sock) of + {ok, Data} -> + i("[connector ~w] received unexpected data: " + "~n ~p", [ID, Data]), + (catch socket:close(Sock)), + exit('unexpected data'); + {error, closed} -> + i("[connector ~w] expected socket close", [ID]); + {error, Reason} -> + i("[connector ~w] unexpected error when reading: " + "~n ~p", [ID, Reason]), + (catch socket:close(Sock)) + end, + i("[connector ~w] done", [ID]), + ok. -stop_node(Node) -> - case ct_slave:stop(Node) of - {ok, _} -> - ok; - {error, _} = ERROR -> - ERROR +otp18240_do_accept(ID, LSock) -> + i("[acceptor ~w] try accept", [ID]), + {ok, Sock} = socket:accept(LSock), + i("[acceptor ~w] accepted: ~p", [ID, Sock]), + {ID, Sock}. + + +otp18240_do_close({ID, Sock}) -> + i("[acceptor ~w] try close ~p", [ID, Sock]), + case socket:close(Sock) of + ok -> + i("[acceptor ~w] socket closed", [ID]), + ok; + {error, Reason} -> + i("[acceptor ~w] failed close socket: " + "~n ~p", [ID, Reason]), + error end. - + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -49789,7 +48126,7 @@ ensure_unique_path(Path) -> ensure_unique_path(Path, 1); {error, _} -> %% We assume this means it does not exist yet... - %% If we have several process in paralell trying to create + %% If we have several process in parallel trying to create %% (unique) path's, then we are in trouble. To *really* be %% on the safe side we should have a (central) path registry... encode_path(Path) @@ -49837,6 +48174,14 @@ which_local_addr(Domain) -> ?LIB:which_local_addr(Domain). +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +monitored_by() -> + monitored_by(self()). +monitored_by(Pid) -> + {monitored_by, Refs} = erlang:process_info(Pid, monitored_by), + Refs. + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -49878,6 +48223,7 @@ has_support_sock_bindtodevice() -> has_support_socket_option_sock(bindtodevice). has_support_sock_broadcast() -> + has_support_ipv4(), has_support_socket_option_sock(broadcast), case ?LIB:which_local_host_info(inet) of {ok, #{flags := Flags}} -> @@ -50180,11 +48526,24 @@ has_support_sctp() -> %% The idea is that this function shall test if the test host has -%% support for IPv6. If not, there is no point in running IPv6 tests. +%% support for IPv4 or IPv6. If not, there is no point in running corresponding tests. %% Currently we just skip. +has_support_ipv4() -> + ?LIB:has_support_ipv4(). + has_support_ipv6() -> ?LIB:has_support_ipv6(). +inet_or_inet6() -> + try + has_support_ipv4(), + inet + catch + throw:{skip, _Reason} -> + has_support_ipv6(), + inet6 + end. + has_support_sendfile() -> try socket:is_supported(sendfile) of true -> @@ -50409,19 +48768,19 @@ tc_try(Case, TCCondFun, TCFun) end catch C:{skip, _} = SKIP when ((C =:= throw) orelse (C =:= exit)) -> - %% i("catched[tc] (skip): " + %% i("caught[tc] (skip): " %% "~n C: ~p" %% "~n SKIP: ~p" %% "~n", [C, SKIP]), - tc_end( f("skipping(catched,~w,tc)", [C]) ), + tc_end( f("skipping(caught,~w,tc)", [C]) ), SKIP; C:E:S -> - %% i("catched[tc]: " + %% i("caught[tc]: " %% "~n C: ~p" %% "~n E: ~p" %% "~n S: ~p" %% "~n", [C, E, S]), - tc_end( f("failed(catched,~w,tc)", [C]) ), + tc_end( f("failed(caught,~w,tc)", [C]) ), erlang:raise(C, E, S) end; {skip, _} = SKIP -> @@ -50432,19 +48791,19 @@ tc_try(Case, TCCondFun, TCFun) exit({tc_cond_failed, Reason}) catch C:{skip, _} = SKIP when ((C =:= throw) orelse (C =:= exit)) -> - %% i("catched[cond] (skip): " + %% i("caught[cond] (skip): " %% "~n C: ~p" %% "~n SKIP: ~p" %% "~n", [C, SKIP]), - tc_end( f("skipping(catched,~w,cond)", [C]) ), + tc_end( f("skipping(caught,~w,cond)", [C]) ), SKIP; C:E:S -> - %% i("catched[cond]: " + %% i("caught[cond]: " %% "~n C: ~p" %% "~n E: ~p" %% "~n S: ~p" %% "~n", [C, E, S]), - tc_end( f("failed(catched,~w,cond)", [C]) ), + tc_end( f("failed(caught,~w,cond)", [C]) ), erlang:raise(C, E, S) end. @@ -50472,1020 +48831,32 @@ tc_which_name() -> end. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -%% This function prints various host info, which might be usefull -%% when analyzing the test suite (results). -%% It also returns a "factor" that can be used when deciding -%% the load for some test cases (traffic). Such as run time or -%% number of iterations. This only works for some OSes (linux). -%% Also, mostly it just returns the factor 1. -%% At this time we just look at BogoMIPS! -analyze_and_print_host_info() -> - {OsFam, OsName} = os:type(), - Version = - case os:version() of - {Maj, Min, Rel} -> - f("~w.~w.~w", [Maj, Min, Rel]); - VStr -> - VStr - end, - case {OsFam, OsName} of - {unix, linux} -> - analyze_and_print_linux_host_info(Version); - {unix, openbsd} -> - analyze_and_print_openbsd_host_info(Version); - {unix, freebsd} -> - analyze_and_print_freebsd_host_info(Version); - {unix, netbsd} -> - analyze_and_print_netbsd_host_info(Version); - {unix, sunos} -> - analyze_and_print_solaris_host_info(Version); - {win32, nt} -> - analyze_and_print_win_host_info(Version); - _ -> - io:format("OS Family: ~p" - "~n OS Type: ~p" - "~n Version: ~p" - "~n Num Schedulers: ~s" - "~n", [OsFam, OsName, Version, str_num_schedulers()]), - num_schedulers_to_factor() - end. - -str_num_schedulers() -> - try erlang:system_info(schedulers) of - N -> f("~w", [N]) - catch - _:_:_ -> "-" - end. - -num_schedulers_to_factor() -> - try erlang:system_info(schedulers) of - 1 -> - 10; - 2 -> - 5; - N when (N =< 6) -> - 2; - _ -> - 1 - catch - _:_:_ -> - 10 - end. - - - -%% --- Linux --- - -linux_which_distro(Version) -> - case file:read_file_info("/etc/issue") of - {ok, _} -> - case [string:trim(S) || - S <- string:tokens(os:cmd("cat /etc/issue"), [$\n])] of - [DistroStr|_] -> - io:format("Linux: ~s" - "~n ~s" - "~n", - [Version, DistroStr]), - case DistroStr of - "Wind River Linux" ++ _ -> - wind_river; - "MontaVista" ++ _ -> - montavista; - "Yellow Dog" ++ _ -> - yellow_dog; - _ -> - other - end; - X -> - io:format("Linux: ~s" - "~n ~p" - "~n", - [Version, X]), - other - end; - _ -> - io:format("Linux: ~s" - "~n", [Version]), - other - end. - - -analyze_and_print_linux_host_info(Version) -> - Distro = linux_which_distro(Version), - Factor = - case (catch linux_which_cpuinfo(Distro)) of - {ok, {CPU, BogoMIPS}} -> - io:format("CPU: " - "~n Model: ~s" - "~n BogoMIPS: ~w" - "~n Num Schedulers: ~s" - "~n", [CPU, BogoMIPS, str_num_schedulers()]), - if - (BogoMIPS > 20000) -> - 1; - (BogoMIPS > 10000) -> - 2; - (BogoMIPS > 5000) -> - 3; - (BogoMIPS > 2000) -> - 5; - (BogoMIPS > 1000) -> - 8; - true -> - 10 - end; - {ok, CPU} -> - io:format("CPU: " - "~n Model: ~s" - "~n Num Schedulers: ~s" - "~n", [CPU, str_num_schedulers()]), - num_schedulers_to_factor(); - _ -> - 5 - end, - %% Check if we need to adjust the factor because of the memory - try linux_which_meminfo() of - AddFactor -> - Factor + AddFactor - catch - _:_:_ -> - Factor - end. - - -linux_cpuinfo_lookup(Key) when is_list(Key) -> - linux_info_lookup(Key, "/proc/cpuinfo"). - -linux_cpuinfo_cpu() -> - case linux_cpuinfo_lookup("cpu") of - [Model] -> - Model; - _ -> - "-" - end. - -linux_cpuinfo_motherboard() -> - case linux_cpuinfo_lookup("motherboard") of - [MB] -> - MB; - _ -> - "-" - end. - -linux_cpuinfo_bogomips() -> - case linux_cpuinfo_lookup("bogomips") of - BMips when is_list(BMips) -> - try lists:sum([bogomips_to_int(BM) || BM <- BMips]) - catch - _:_:_ -> - "-" - end; - _ -> - "-" - end. - -linux_cpuinfo_total_bogomips() -> - case linux_cpuinfo_lookup("total bogomips") of - [TBM] -> - try bogomips_to_int(TBM) - catch - _:_:_ -> - "-" - end; - _ -> - "-" - end. - -bogomips_to_int(BM) -> - try list_to_float(BM) of - F -> - floor(F) - catch - _:_:_ -> - try list_to_integer(BM) of - I -> - I - catch - _:_:_ -> - throw(noinfo) - end - end. - -linux_cpuinfo_model() -> - case linux_cpuinfo_lookup("model") of - [M] -> - M; - _ -> - "-" - end. - -linux_cpuinfo_platform() -> - case linux_cpuinfo_lookup("platform") of - [P] -> - P; - _ -> - "-" - end. - -linux_cpuinfo_model_name() -> - case linux_cpuinfo_lookup("model name") of - [P|_] -> - P; - _X -> - "-" - end. - -linux_cpuinfo_processor() -> - case linux_cpuinfo_lookup("Processor") of - [P] -> - P; - _ -> - "-" - end. - -linux_which_cpuinfo(montavista) -> - CPU = - case linux_cpuinfo_cpu() of - "-" -> - throw(noinfo); - Model -> - case linux_cpuinfo_motherboard() of - "-" -> - Model; - MB -> - Model ++ " (" ++ MB ++ ")" - end - end, - case linux_cpuinfo_bogomips() of - "-" -> - {ok, CPU}; - BMips -> - {ok, {CPU, BMips}} - end; - -linux_which_cpuinfo(yellow_dog) -> - CPU = - case linux_cpuinfo_cpu() of - "-" -> - throw(noinfo); - Model -> - case linux_cpuinfo_motherboard() of - "-" -> - Model; - MB -> - Model ++ " (" ++ MB ++ ")" - end - end, - {ok, CPU}; - -linux_which_cpuinfo(wind_river) -> - CPU = - case linux_cpuinfo_model() of - "-" -> - throw(noinfo); - Model -> - case linux_cpuinfo_platform() of - "-" -> - Model; - Platform -> - Model ++ " (" ++ Platform ++ ")" - end - end, - case linux_cpuinfo_total_bogomips() of - "-" -> - {ok, CPU}; - BMips -> - {ok, {CPU, BMips}} - end; - -linux_which_cpuinfo(other) -> - %% Check for x86 (Intel or AMD) - CPU = - case linux_cpuinfo_model_name() of - "-" -> - %% ARM (at least some distros...) - case linux_cpuinfo_processor() of - "-" -> - %% Ok, we give up - throw(noinfo); - Proc -> - Proc - end; - ModelName -> - ModelName - end, - case linux_cpuinfo_bogomips() of - "-" -> - {ok, CPU}; - BMips -> - {ok, {CPU, BMips}} - end. - -linux_meminfo_lookup(Key) when is_list(Key) -> - linux_info_lookup(Key, "/proc/meminfo"). - -linux_meminfo_memtotal() -> - case linux_meminfo_lookup("MemTotal") of - [X] -> - X; - _ -> - "-" - end. - -%% We *add* the value this return to the Factor. -linux_which_meminfo() -> - case linux_meminfo_memtotal() of - "-" -> - 0; - MemTotal -> - io:format("Memory:" - "~n ~s" - "~n", [MemTotal]), - case string:tokens(MemTotal, [$ ]) of - [MemSzStr, MemUnit] -> - MemSz2 = list_to_integer(MemSzStr), - MemSz3 = - case string:to_lower(MemUnit) of - "kb" -> - MemSz2; - "mb" -> - MemSz2*1024; - "gb" -> - MemSz2*1024*1024; - _ -> - throw(noinfo) - end, - if - (MemSz3 >= 8388608) -> - 0; - (MemSz3 >= 4194304) -> - 1; - (MemSz3 >= 2097152) -> - 3; - true -> - 5 - end; - _X -> - 0 - end - end. - - -linux_info_lookup(Key, File) -> - try [string:trim(S) || S <- string:tokens(os:cmd("grep " ++ "\"" ++ Key ++ "\"" ++ " " ++ File), [$:,$\n])] of - Info -> - linux_info_lookup_collect(Key, Info, []) - catch - _:_:_ -> - "-" - end. - -linux_info_lookup_collect(_Key, [], Values) -> - lists:reverse(Values); -linux_info_lookup_collect(Key, [Key, Value|Rest], Values) -> - linux_info_lookup_collect(Key, Rest, [Value|Values]); -linux_info_lookup_collect(_, _, Values) -> - lists:reverse(Values). - - -%% --- OpenBSD --- - -%% Just to be clear: This is ***not*** scientific... -analyze_and_print_openbsd_host_info(Version) -> - io:format("OpenBSD:" - "~n Version: ~p" - "~n", [Version]), - Extract = - fun(Key) -> - string:tokens(string:trim(os:cmd("sysctl " ++ Key)), [$=]) - end, - try - begin - CPU = - case Extract("hw.model") of - ["hw.model", Model] -> - string:trim(Model); - _ -> - "-" - end, - CPUSpeed = - case Extract("hw.cpuspeed") of - ["hw.cpuspeed", Speed] -> - list_to_integer(Speed); - _ -> - -1 - end, - NCPU = - case Extract("hw.ncpufound") of - ["hw.ncpufound", N] -> - list_to_integer(N); - _ -> - -1 - end, - Memory = - case Extract("hw.physmem") of - ["hw.physmem", PhysMem] -> - list_to_integer(PhysMem) div 1024; - _ -> - -1 - end, - io:format("CPU:" - "~n Model: ~s" - "~n Speed: ~w" - "~n N: ~w" - "~nMemory:" - "~n ~w KB" - "~n", [CPU, CPUSpeed, NCPU, Memory]), - CPUFactor = - if - (CPUSpeed =:= -1) -> - 1; - (CPUSpeed >= 2000) -> - if - (NCPU >= 4) -> - 1; - (NCPU >= 2) -> - 2; - true -> - 3 - end; - true -> - if - (NCPU >= 4) -> - 2; - (NCPU >= 2) -> - 3; - true -> - 4 - end - end, - MemAddFactor = - if - (Memory =:= -1) -> - 0; - (Memory >= 8388608) -> - 0; - (Memory >= 4194304) -> - 1; - (Memory >= 2097152) -> - 2; - true -> - 3 - end, - CPUFactor + MemAddFactor - end - catch - _:_:_ -> - 1 - end. - - -%% --- FreeBSD --- - -analyze_and_print_freebsd_host_info(Version) -> - io:format("FreeBSD:" - "~n Version: ~p" - "~n", [Version]), - %% This test require that the program 'sysctl' is in the path. - %% First test with 'which sysctl', if that does not work - %% try with 'which /sbin/sysctl'. If that does not work either, - %% we skip the test... - try - begin - SysCtl = - case string:trim(os:cmd("which sysctl")) of - [] -> - case string:trim(os:cmd("which /sbin/sysctl")) of - [] -> - throw(sysctl); - SC2 -> - SC2 - end; - SC1 -> - SC1 - end, - Extract = - fun(Key) -> - string:tokens(string:trim(os:cmd(SysCtl ++ " " ++ Key)), - [$:]) - end, - CPU = analyze_freebsd_cpu(Extract), - CPUSpeed = analyze_freebsd_cpu_speed(Extract), - NCPU = analyze_freebsd_ncpu(Extract), - Memory = analyze_freebsd_memory(Extract), - io:format("CPU:" - "~n Model: ~s" - "~n Speed: ~w" - "~n N: ~w" - "~n Num Schedulers: ~w" - "~nMemory:" - "~n ~w KB" - "~n", - [CPU, CPUSpeed, NCPU, - erlang:system_info(schedulers), Memory]), - CPUFactor = - if - (CPUSpeed =:= -1) -> - 1; - (CPUSpeed >= 2000) -> - if - (NCPU >= 4) -> - 1; - (NCPU >= 2) -> - 2; - true -> - 3 - end; - true -> - if - (NCPU =:= -1) -> - 1; - (NCPU >= 4) -> - 2; - (NCPU >= 2) -> - 3; - true -> - 4 - end - end, - MemAddFactor = - if - (Memory =:= -1) -> - 0; - (Memory >= 8388608) -> - 0; - (Memory >= 4194304) -> - 1; - (Memory >= 2097152) -> - 2; - true -> - 3 - end, - CPUFactor + MemAddFactor - end - catch - _:_:_ -> - io:format("CPU:" - "~n Num Schedulers: ~w" - "~n", [erlang:system_info(schedulers)]), - case erlang:system_info(schedulers) of - 1 -> - 10; - 2 -> - 5; - _ -> - 2 - end - end. - -analyze_freebsd_cpu(Extract) -> - analyze_freebsd_item(Extract, "hw.model", fun(X) -> X end, "-"). - -analyze_freebsd_cpu_speed(Extract) -> - analyze_freebsd_item(Extract, - "hw.clockrate", - fun(X) -> list_to_integer(X) end, - -1). - -analyze_freebsd_ncpu(Extract) -> - analyze_freebsd_item(Extract, - "hw.ncpu", - fun(X) -> list_to_integer(X) end, - -1). - -analyze_freebsd_memory(Extract) -> - analyze_freebsd_item(Extract, - "hw.physmem", - fun(X) -> list_to_integer(X) div 1024 end, - -1). - -analyze_freebsd_item(Extract, Key, Process, Default) -> - try - begin - case Extract(Key) of - [Key, Model] -> - Process(string:trim(Model)); - _ -> - Default - end - end - catch - _:_:_ -> - Default - end. - - -%% --- NetBSD --- - -analyze_and_print_netbsd_host_info(Version) -> - io:format("NetBSD:" - "~n Version: ~p" - "~n", [Version]), - %% This test require that the program 'sysctl' is in the path. - %% First test with 'which sysctl', if that does not work - %% try with 'which /sbin/sysctl'. If that does not work either, - %% we skip the test... - try - begin - SysCtl = - case string:trim(os:cmd("which sysctl")) of - [] -> - case string:trim(os:cmd("which /sbin/sysctl")) of - [] -> - throw(sysctl); - SC2 -> - SC2 - end; - SC1 -> - SC1 - end, - Extract = - fun(Key) -> - [string:trim(S) || - S <- - string:tokens(string:trim(os:cmd(SysCtl ++ " " ++ Key)), - [$=])] - end, - CPU = analyze_netbsd_cpu(Extract), - Machine = analyze_netbsd_machine(Extract), - Arch = analyze_netbsd_machine_arch(Extract), - CPUSpeed = analyze_netbsd_cpu_speed(Extract), - NCPU = analyze_netbsd_ncpu(Extract), - Memory = analyze_netbsd_memory(Extract), - io:format("CPU:" - "~n Model: ~s (~s, ~s)" - "~n Speed: ~w MHz" - "~n N: ~w" - "~n Num Schedulers: ~w" - "~nMemory:" - "~n ~w KB" - "~n", - [CPU, Machine, Arch, CPUSpeed, NCPU, - erlang:system_info(schedulers), Memory]), - CPUFactor = - if - (CPUSpeed =:= -1) -> - 1; - (CPUSpeed >= 2000) -> - if - (NCPU >= 4) -> - 1; - (NCPU >= 2) -> - 2; - true -> - 3 - end; - true -> - if - (NCPU =:= -1) -> - 1; - (NCPU >= 4) -> - 2; - (NCPU >= 2) -> - 3; - true -> - 4 - end - end, - MemAddFactor = - if - (Memory =:= -1) -> - 0; - (Memory >= 8388608) -> - 0; - (Memory >= 4194304) -> - 1; - (Memory >= 2097152) -> - 2; - true -> - 3 - end, - CPUFactor + MemAddFactor - end - catch - _:_:_ -> - io:format("CPU:" - "~n Num Schedulers: ~w" - "~n", [erlang:system_info(schedulers)]), - case erlang:system_info(schedulers) of - 1 -> - 10; - 2 -> - 5; - _ -> - 2 - end - end. - -analyze_netbsd_cpu(Extract) -> - analyze_netbsd_item(Extract, "hw.model", fun(X) -> X end, "-"). - -analyze_netbsd_machine(Extract) -> - analyze_netbsd_item(Extract, "hw.machine", fun(X) -> X end, "-"). - -analyze_netbsd_machine_arch(Extract) -> - analyze_netbsd_item(Extract, "hw.machine_arch", fun(X) -> X end, "-"). - -analyze_netbsd_cpu_speed(Extract) -> - analyze_netbsd_item(Extract, "machdep.dmi.processor-frequency", - fun(X) -> case string:tokens(X, [$\ ]) of - [MHz, "MHz"] -> - list_to_integer(MHz); - _ -> - -1 - end - end, "-"). - -analyze_netbsd_ncpu(Extract) -> - analyze_netbsd_item(Extract, - "hw.ncpu", - fun(X) -> list_to_integer(X) end, - -1). - -analyze_netbsd_memory(Extract) -> - analyze_netbsd_item(Extract, - "hw.physmem64", - fun(X) -> list_to_integer(X) div 1024 end, - -1). - -analyze_netbsd_item(Extract, Key, Process, Default) -> - analyze_freebsd_item(Extract, Key, Process, Default). - +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% --- Solaris --- +%% start_node(Name) -> +%% start_node(Name, 5000). -analyze_and_print_solaris_host_info(Version) -> - Release = - case file:read_file_info("/etc/release") of - {ok, _} -> - case [string:trim(S) || S <- string:tokens(os:cmd("cat /etc/release"), [$\n])] of - [Rel | _] -> - Rel; - _ -> - "-" - end; - _ -> - "-" - end, - %% Display the firmware device tree root properties (prtconf -b) - Props = [list_to_tuple([string:trim(PS) || PS <- Prop]) || - Prop <- [string:tokens(S, [$:]) || - S <- string:tokens(os:cmd("prtconf -b"), [$\n])]], - BannerName = case lists:keysearch("banner-name", 1, Props) of - {value, {_, BN}} -> - string:trim(BN); - _ -> - "-" - end, - InstructionSet = - case string:trim(os:cmd("isainfo -k")) of - "Pseudo-terminal will not" ++ _ -> - "-"; - IS -> - IS - end, - PtrConf = [list_to_tuple([string:trim(S) || S <- Items]) || Items <- [string:tokens(S, [$:]) || S <- string:tokens(os:cmd("prtconf"), [$\n])], length(Items) > 1], - SysConf = - case lists:keysearch("System Configuration", 1, PtrConf) of - {value, {_, SC}} -> - SC; - _ -> - "-" - end, - NumPhysProc = - begin - NPPStr = string:trim(os:cmd("psrinfo -p")), - try list_to_integer(NPPStr) of - _ -> - NPPStr - catch - _:_:_ -> - "-" - end - end, - NumProc = try integer_to_list(length(string:tokens(os:cmd("psrinfo"), [$\n]))) of - NPStr -> - NPStr - catch - _:_:_ -> - "-" - end, - MemSz = - case lists:keysearch("Memory size", 1, PtrConf) of - {value, {_, MS}} -> - MS; - _ -> - "-" - end, - io:format("Solaris: ~s" - "~n Release: ~s" - "~n Banner Name: ~s" - "~n Instruction Set: ~s" - "~n CPUs: ~s (~s)" - "~n System Config: ~s" - "~n Memory Size: ~s" - "~n Num Schedulers: ~s" - "~n~n", [Version, Release, BannerName, InstructionSet, - NumPhysProc, NumProc, - SysConf, MemSz, - str_num_schedulers()]), - MemFactor = - try string:tokens(MemSz, [$ ]) of - [SzStr, "Mega" ++ _] -> - try list_to_integer(SzStr) of - Sz when Sz > 8192 -> - 0; - Sz when Sz > 4096 -> - 1; - Sz when Sz > 2048 -> - 2; - _ -> - 5 - catch - _:_:_ -> - 10 - end; - [SzStr, "Giga" ++ _] -> - try list_to_integer(SzStr) of - Sz when Sz > 8 -> - 0; - Sz when Sz > 4 -> - 1; - Sz when Sz > 2 -> - 2; - _ -> - 5 - catch - _:_:_ -> - 10 - end; - _ -> - 10 - catch - _:_:_ -> - 10 - end, - try erlang:system_info(schedulers) of - 1 -> - 10; - 2 -> - 5; - N when (N =< 6) -> - 2; - _ -> - 1 +start_node(Name, Timeout) when is_integer(Timeout) andalso (Timeout > 0) -> + try ?CT_PEER(#{name => Name, wait_boot => Timeout}) of + {ok, Peer, Node} -> + ?SEV_IPRINT("Started node ~p", [Name]), + {Peer, Node}; + {error, Reason} -> + ?SEV_EPRINT("failed starting node ~p (=> SKIP):" + "~n ~p", [Name, Reason]), + skip(Reason) catch - _:_:_ -> - 10 - end + MemFactor. - - -%% --- Windows --- - -analyze_and_print_win_host_info(Version) -> - SysInfo = which_win_system_info(), - OsName = win_sys_info_lookup(os_name, SysInfo), - OsVersion = win_sys_info_lookup(os_version, SysInfo), - SysMan = win_sys_info_lookup(system_manufacturer, SysInfo), - SysMod = win_sys_info_lookup(system_model, SysInfo), - NumProcs = win_sys_info_lookup(num_processors, SysInfo), - TotPhysMem = win_sys_info_lookup(total_phys_memory, SysInfo), - io:format("Windows: ~s" - "~n OS Version: ~s (~p)" - "~n System Manufacturer: ~s" - "~n System Model: ~s" - "~n Number of Processor(s): ~s" - "~n Total Physical Memory: ~s" - "~n Num Schedulers: ~s" - "~n", [OsName, OsVersion, Version, - SysMan, SysMod, NumProcs, TotPhysMem, - str_num_schedulers()]), - MemFactor = - try - begin - [MStr, MUnit|_] = - string:tokens(lists:delete($,, TotPhysMem), [$\ ]), - case string:to_lower(MUnit) of - "gb" -> - try list_to_integer(MStr) of - M when M > 8 -> - 0; - M when M > 4 -> - 1; - M when M > 2 -> - 2; - _ -> - 5 - catch - _:_:_ -> - 10 - end; - "mb" -> - try list_to_integer(MStr) of - M when M > 8192 -> - 0; - M when M > 4096 -> - 1; - M when M > 2048 -> - 2; - _ -> - 5 - catch - _:_:_ -> - 10 - end; - _ -> - 10 - end - end - catch - _:_:_ -> - 10 - end, - CPUFactor = - case erlang:system_info(schedulers) of - 1 -> - 10; - 2 -> - 5; - _ -> - 2 - end, - CPUFactor + MemFactor. - -win_sys_info_lookup(Key, SysInfo) -> - win_sys_info_lookup(Key, SysInfo, "-"). - -win_sys_info_lookup(Key, SysInfo, Def) -> - case lists:keysearch(Key, 1, SysInfo) of - {value, {Key, Value}} -> - Value; - false -> - Def + Class:Reason:Stack -> + ?SEV_EPRINT("Failed starting node: " + "~n Class: ~p" + "~n Reason: ~p" + "~n Stack: ~p", + [Class, Reason, Stack]), + skip({node_start, Class, Reason}) end. -%% This function only extracts the prop(s) we actually care about! -%% On some hosts this (systeminfo) takes a *long time* (several minutes). -%% And since there is no way to provide a timeout to the os command call, -%% we have to wrap it in a process. -which_win_system_info() -> - F = fun() -> - try - begin - SysInfo = os:cmd("systeminfo"), - process_win_system_info( - string:tokens(SysInfo, [$\r, $\n]), []) - end - catch - C:E:S -> - io:format("Failed get or process System info: " - " Error Class: ~p" - " Error: ~p" - " Stack: ~p" - "~n", [C, E, S]), - [] - end - end, - ?LIB:pcall(F, ?MINS(1), []). - -process_win_system_info([], Acc) -> - Acc; -process_win_system_info([H|T], Acc) -> - case string:tokens(H, [$:]) of - [Key, Value] -> - case string:to_lower(Key) of - "os name" -> - process_win_system_info(T, - [{os_name, string:trim(Value)}|Acc]); - "os version" -> - process_win_system_info(T, - [{os_version, string:trim(Value)}|Acc]); - "system manufacturer" -> - process_win_system_info(T, - [{system_manufacturer, string:trim(Value)}|Acc]); - "system model" -> - process_win_system_info(T, - [{system_model, string:trim(Value)}|Acc]); - "processor(s)" -> - [NumProcStr|_] = string:tokens(Value, [$\ ]), - T2 = lists:nthtail(list_to_integer(NumProcStr), T), - process_win_system_info(T2, - [{num_processors, NumProcStr}|Acc]); - "total physical memory" -> - process_win_system_info(T, - [{total_phys_memory, string:trim(Value)}|Acc]); - _ -> - process_win_system_info(T, Acc) - end; - _ -> - process_win_system_info(T, Acc) - end. - - - + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% nowait(Config) -> @@ -51502,9 +48873,6 @@ sock_port(S) -> {ok, #{}} -> undefined end. -l2a(S) when is_list(S) -> - list_to_atom(S). - l2b(L) when is_list(L) -> list_to_binary(L). |