diff options
Diffstat (limited to 'lib/kernel/test/socket_test_lib.erl')
| -rw-r--r-- | lib/kernel/test/socket_test_lib.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/kernel/test/socket_test_lib.erl b/lib/kernel/test/socket_test_lib.erl index 56da2997e7..e7028dab3b 100644 --- a/lib/kernel/test/socket_test_lib.erl +++ b/lib/kernel/test/socket_test_lib.erl @@ -41,6 +41,7 @@ print/1, print/2, %% Generic 'has support' test function(s) + has_support_ipv4/0, has_support_ipv6/0, which_local_host_info/1, @@ -123,6 +124,14 @@ print(F, A) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +has_support_ipv4() -> + case which_local_addr(inet) of + {ok, _Addr} -> + ok; + {error, R1} -> + skip(f("Local Address eval failed: ~p", [R1])) + end. + has_support_ipv6() -> case socket:is_supported(ipv6) of true -> |