File 0153-kernel-test-Add-simple-socknames-test-case... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0153-kernel-test-Add-simple-socknames-test-case-for-UDP.patch of Package erlang (Revision 740810ae07adffc1a50bb3a32135aa98)

Currently displaying revision 740810ae07adffc1a50bb3a32135aa98 , Show latest

From fd48bbbec144631055c59a5f6c4bf2170099e607 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 18 Oct 2021 12:55:04 +0200
Subject: [PATCH 3/3] [kernel|test] Add simple socknames test case for UDP

Add (very) simple udp socknames test case.

OTP-17531
---
 lib/kernel/test/inet_SUITE.erl | 42 ++++++++++++++++++++++++++++++++--
 1 file changed, 40 insertions(+), 2 deletions(-)

diff --git a/lib/kernel/test/inet_SUITE.erl b/lib/kernel/test/inet_SUITE.erl
index d763b923d3..cf3ff47325 100644
--- a/lib/kernel/test/inet_SUITE.erl
+++ b/lib/kernel/test/inet_SUITE.erl
@@ -1980,8 +1980,46 @@ do_socknames_tcp1(Conf) ->
 
 
 socknames_udp(Config) when is_list(Config) ->
-    %%% ?TC_TRY(?FUNCTION_NAME, fun() -> do_socknames_udp(Config) end).
-    {skip, not_implemented_yet}.
+    ?TC_TRY(?FUNCTION_NAME, fun() -> do_socknames_udp0(Config) end).
+
+do_socknames_udp0(_Config) ->
+    %% Begin with a the plain old boring (= port) socket(s)
+    ?P("Test socknames for 'old' socket (=port)"),
+    do_socknames_udp1([]),
+
+    %% And *maybe* also check the 'new' shiny socket sockets
+    try socket:info() of
+        #{} ->
+            ?P("Test socknames for 'new' socket (=socket nif)"),
+            do_socknames_udp1([{inet_backend, socket}])
+    catch
+        error : notsup ->
+            ?P("Skip test of socknames for 'new' socket (=socket nif)"),
+            ok
+    end.
+
+
+do_socknames_udp1(Conf) ->
+    ?P("try create socket"),
+    {ok, S1} = gen_udp:open(0, Conf),
+    ?P("try get socknames for socket: "
+       "~n      ~p", [S1]),
+    case inet:socknames(S1) of
+        {ok, [_Addr1]} ->
+            ok;
+        {ok, Addrs1} ->
+            ?P("failed socknames: unexpected number of addresses"
+               "~n      ~p", [Addrs1]),
+            exit({unexpected_addrs_length, length(Addrs1)});
+        {error, Reason1} ->
+            ?P("failed socknames: error"
+               "~n      ~p", [Reason1]),
+            exit({skip, {listen_socket, Reason1}})
+    end,
+    ?P("close socket"),
+    (catch gen_udp:close(S1)),
+    ?P("done"),
+    ok.
 
 
 
-- 
2.31.1

Places

File 0153-kernel-test-Add-simple-socknames-test-case-for-UDP.patch of Package erlang (Revision 740810ae07adffc1a50bb3a32135aa98)

Places