diff options
author | Micael Karlberg <bmk@erlang.org> | 2019-09-04 10:22:58 +0200 |
---|---|---|
committer | Micael Karlberg <bmk@erlang.org> | 2019-09-04 10:22:58 +0200 |
commit | 2359fcb18e3a7488e6edd674bcf31bc9fe2bdbd3 (patch) | |
tree | 6cc5e0d5007c3d9beef2462bd5a209c8237fff8b | |
parent | 4552ac5bd3b4258e9a9596253d05638a68959b9e (diff) | |
parent | e43639a6411979e48b5357e537fd0bed7883d645 (diff) | |
download | erlang-2359fcb18e3a7488e6edd674bcf31bc9fe2bdbd3.tar.gz |
Merge branch 'maint'
-rw-r--r-- | erts/emulator/test/socket_SUITE.erl | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl index 4980ea2a82..7e769a5686 100644 --- a/erts/emulator/test/socket_SUITE.erl +++ b/erts/emulator/test/socket_SUITE.erl @@ -1776,7 +1776,7 @@ quiet_mode(Config) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% A simple test case that tests that the global debug can be channged. +%% A simple test case that tests that the global debug can be changed. %% At the same time, it will test the info function (since it uses it %% for verification). @@ -1794,7 +1794,8 @@ api_m_debug(_Config) when is_list(_Config) -> %% For some reason this test case triggers a gcc bug, which causes %% a segfault, on an ancient Fedora 16 VM. So, check the version of gcc... -%% Not pretty, but the simplest way to skip (without actually testing for the host). +%% Not pretty, but the simplest way to skip (without actually testing +%% for the host). has_bugfree_gcc() -> has_bugfree_gcc(os:type()). @@ -19470,6 +19471,7 @@ traffic_ping_pong_large_send_and_recv_tcp4(_Config) when is_list(_Config) -> Msg = l2b(?TPP_LARGE), Num = ?TPP_LARGE_NUM, tc_try(traffic_ping_pong_large_send_and_recv_tcp4, + fun() -> is_old_fedora16() end, fun() -> InitState = #{domain => inet, proto => tcp, @@ -19496,7 +19498,8 @@ traffic_ping_pong_large_send_and_recv_tcp6(_Config) when is_list(_Config) -> Msg = l2b(?TPP_LARGE), Num = ?TPP_LARGE_NUM, tc_try(traffic_ping_pong_large_send_and_recv_tcp6, - fun() -> has_support_ipv6() end, + fun() -> is_old_fedora16(), + has_support_ipv6() end, fun() -> ?TT(?SECS(45)), InitState = #{domain => inet6, @@ -19545,9 +19548,20 @@ traffic_ping_pong_large_host_cond() -> traffic_ping_pong_large_host_cond({unix, sunos}, _) -> skip("TC does not work on platform"); +traffic_ping_pong_large_host_cond({unix, linux}, _) -> + is_old_fedora16(string:trim(os:cmd("cat /etc/issue"))); traffic_ping_pong_large_host_cond(_, _) -> ok. +is_old_fedora16() -> + is_old_fedora16(string:trim(os:cmd("cat /etc/issue"))). + +%% We actually only have one host running this, a slow VM. +is_old_fedora16("Fedora release 16 " ++ _) -> + skip("Very slow VM"); +is_old_fedora16(_) -> + ok. + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% This test case is intended to test that the sendto and recvfrom |