diff options
| author | Micael Karlberg <[email protected]> | 2019-05-23 14:19:30 +0200 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2019-05-29 13:47:40 +0200 |
| commit | 56cad32ecdfa36ea7a4cddac1579eb1e414ec0fe (patch) | |
| tree | ec3090f4ed2609086363b0797c069a50d0010d57 /erts/emulator/test/socket_test_ttest_tcp_gen.erl | |
| parent | 9ccec09217aa3d721501a0634b205d9d87cab914 (diff) | |
| download | otp-56cad32ecdfa36ea7a4cddac1579eb1e414ec0fe.tar.gz otp-56cad32ecdfa36ea7a4cddac1579eb1e414ec0fe.tar.bz2 otp-56cad32ecdfa36ea7a4cddac1579eb1e414ec0fe.zip | |
[esock|ttest] Updated the ttest command line tool
Updated the ttest command line tool to the new API.
OTP-15822
Diffstat (limited to 'erts/emulator/test/socket_test_ttest_tcp_gen.erl')
| -rw-r--r-- | erts/emulator/test/socket_test_ttest_tcp_gen.erl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/erts/emulator/test/socket_test_ttest_tcp_gen.erl b/erts/emulator/test/socket_test_ttest_tcp_gen.erl index 16e7ccf66b..05b250e3d9 100644 --- a/erts/emulator/test/socket_test_ttest_tcp_gen.erl +++ b/erts/emulator/test/socket_test_ttest_tcp_gen.erl @@ -26,7 +26,7 @@ close/1, connect/2, connect/3, controlling_process/2, - listen/0, listen/1, + listen/0, listen/1, listen/2, peername/1, port/1, recv/2, recv/3, @@ -102,8 +102,12 @@ controlling_process(Sock, NewPid) -> listen() -> listen(0). -listen(Port) when is_integer(Port) andalso (Port >= 0) -> - Opts = [binary, {ip, {0,0,0,0}}, {packet, raw}, {active, false}, +listen(Port) -> + listen(Port, #{domain => inet}). + +listen(Port, #{domain := Domain}) when is_integer(Port) andalso (Port >= 0) -> + Opts = [Domain, + binary, {ip, {0,0,0,0}}, {packet, raw}, {active, false}, {buffer, 32*1024}], case gen_tcp:listen(Port, Opts) of {ok, Sock} -> |