File 2047-esock-test-Add-simple-test-case-for-ioctl-... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2047-esock-test-Add-simple-test-case-for-ioctl-request-gi.patch of Package erlang (Revision 5b89568f64d9961d3b4b7c988ecff390)

Currently displaying revision 5b89568f64d9961d3b4b7c988ecff390 , Show latest

From 3947ad6023bbd2121c2276c979388f50debde18e Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Thu, 11 Nov 2021 18:27:11 +0100
Subject: [PATCH 47/58] [esock|test] Add (simple) test case for ioctl request
 'gifhwaddr'

OTP-17528
---
 lib/kernel/test/socket_SUITE.erl | 79 +++++++++++++++++++++++++++++++-
 1 file changed, 78 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/test/socket_SUITE.erl b/lib/kernel/test/socket_SUITE.erl
index 54b66a618f..f345ccaa90 100644
--- a/lib/kernel/test/socket_SUITE.erl
+++ b/lib/kernel/test/socket_SUITE.erl
@@ -307,6 +307,7 @@
          ioctl_get_gifbrdaddr/1,
          ioctl_get_gifnetmask/1,
          ioctl_get_gifmtu/1,
+         ioctl_get_gifhwaddr/1,
          %% ioctl_set_requests/1,
 
          %% *** Traffic ***
@@ -1246,7 +1247,8 @@ ioctl_get_cases() ->
      ioctl_get_gifdstaddr,
      ioctl_get_gifbrdaddr,
      ioctl_get_gifnetmask,
-     ioctl_get_gifmtu
+     ioctl_get_gifmtu,
+     ioctl_get_gifhwaddr
     ].
 
 
@@ -35362,6 +35364,78 @@ do_ioctl_get_gifmtu(_State) ->
 
 
 
+%% --- gifhwaddr ---
+
+ioctl_get_gifhwaddr(suite) ->
+    [];
+ioctl_get_gifhwaddr(doc) ->
+    [];
+ioctl_get_gifhwaddr(_Config) when is_list(_Config) ->
+    ?TT(?SECS(5)),
+    tc_try(?FUNCTION_NAME,
+           fun() ->
+                   has_support_net_if_names(),
+                   has_support_ioctl_gifhwaddr()
+           end,
+           fun() ->
+                   InitState = #{},
+                   ok = do_ioctl_get_gifhwaddr(InitState)
+           end).
+
+
+do_ioctl_get_gifhwaddr(_State) ->
+    i("create dummy dgram:UDP socket"),
+    {ok, Sock} = socket:open(inet, dgram, udp),
+
+    i("get if names"),
+    {ok, IfNames} = net:if_names(),
+
+    i("try ioctl all if indexes: "
+      "~n      ~p", [IfNames]),
+    %% This a *very* simple test...
+    %% ...just to check that we actually get an socket address
+    _ = [case socket:ioctl(Sock, gifhwaddr, IfName) of
+             {ok, #{family := ArphdrFam,
+                    addr   := Addr}} when is_atom(ArphdrFam) ->
+                 case erlang:atom_to_list(ArphdrFam) of
+                     "arphrd_" ++ _ ->
+                         i("got (expected) (HW) socket address for "
+                           "interface ~p (~w): "
+                           "~n      (~w) ~p", [IfName, IfIdx, ArphdrFam, Addr]),
+                         ok;
+                     _ ->
+                         i("<ERROR> got unexpected family for interface ~p (~w)"
+                           "~n      ~p", [IfName, IfIdx, ArphdrFam]),
+                         socket:close(Sock),
+                         ?FAIL({unexpected_family, IfName, IfIdx, ArphdrFam})
+                 end;
+             {ok, #{family := Fam,
+                    addr   := Addr}} when is_integer(Fam) ->
+                 i("got (expected) socket address for interface ~p (~w): "
+                   "~n      (~w) ~p", [IfName, IfIdx, Fam, Addr]),
+                 ok;
+             {ok, Crap} ->
+                 %% Oups?!
+                         i("<ERROR> got unexpected result for interface ~p (~w)"
+                           "~n      ~p", [IfName, IfIdx, Crap]),
+                         socket:close(Sock),
+                         ?FAIL({unexpected_addr, IfName, IfIdx, Crap});
+             {error, Reason} ->
+                 i("<ERROR> got unexpected error for interface ~p (~w)"
+                   "~n      Reason: ~p", [IfName, IfIdx, Reason]),
+                 socket:close(Sock),
+                 ?FAIL({unexpected_failure, IfName, IfIdx, Reason})
+         end || {IfIdx, IfName} <- IfNames],
+
+    i("close dummy dgram:UDP socket"),
+    ok = socket:close(Sock),
+
+    i("done"),
+    ok.
+
+
+
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case is intended to (simply) test that the counters
 %% for both read and write.
@@ -49330,6 +49404,9 @@ has_support_ioctl_gifnetmask() ->
 has_support_ioctl_gifmtu() ->
     has_support_ioctl_request(gifmtu).
 
+has_support_ioctl_gifhwaddr() ->
+    has_support_ioctl_request(gifhwaddr).
+
 has_support_ioctl_request(Req) when is_atom(Req) ->
     try socket:is_supported(ioctl_requests, Req) of
         true ->
-- 
2.31.1

Places

File 2047-esock-test-Add-simple-test-case-for-ioctl-request-gi.patch of Package erlang (Revision 5b89568f64d9961d3b4b7c988ecff390)

Places