diff options
author | Micael Karlberg <bmk@erlang.org> | 2019-07-10 12:09:00 +0200 |
---|---|---|
committer | Micael Karlberg <bmk@erlang.org> | 2019-07-10 12:09:00 +0200 |
commit | 75347adb4c6f20fffc8881af6861ba7e466fc62a (patch) | |
tree | 646c42c0cfb5d1cff14982ebeb98950d94c1d5c2 /erts/emulator/test/socket_test_ttest_tcp_socket.erl | |
parent | ca359d31a0128286edadac3ca384d51035d7b12f (diff) | |
download | erlang-75347adb4c6f20fffc8881af6861ba7e466fc62a.tar.gz |
[esock|test] Make the ttest groups of test cases work with IPv6
OTP-15897
Diffstat (limited to 'erts/emulator/test/socket_test_ttest_tcp_socket.erl')
-rw-r--r-- | erts/emulator/test/socket_test_ttest_tcp_socket.erl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/erts/emulator/test/socket_test_ttest_tcp_socket.erl b/erts/emulator/test/socket_test_ttest_tcp_socket.erl index 3aa3b2c504..9112748b4c 100644 --- a/erts/emulator/test/socket_test_ttest_tcp_socket.erl +++ b/erts/emulator/test/socket_test_ttest_tcp_socket.erl @@ -247,10 +247,16 @@ listen(Path, #{domain := local = Domain} = Opts) listen(Port, #{domain := Domain} = Opts) when is_integer(Port) andalso (Port >= 0) -> %% Bind fills in the rest - SA = #{family => Domain, - port => Port}, - Cleanup = fun() -> ok end, - do_listen(SA, Cleanup, Opts#{proto => tcp}). + case ?LIB:which_local_host_info(Domain) of + {ok, {_, _, Addr}} -> + SA = #{family => Domain, + addr => Addr, + port => Port}, + Cleanup = fun() -> ok end, + do_listen(SA, Cleanup, Opts#{proto => tcp}); + {error, _} = ERROR -> + ERROR + end. do_listen(SA, Cleanup, |