[socket-nif|test] Updated test case api_b_open_and_close

The test case tried to validate the (socket option) protocol,
which is not actually available on OpenBSD. So, add a check
if the option is supported.

OTP-14831

1 files changed, 12 insertions, 3 deletions

diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl
index 9ad15f06dc..f77eb5502c 100644
--- a/erts/emulator/test/socket_SUITE.erl
+++ b/erts/emulator/test/socket_SUITE.erl
@@ -1444,11 +1444,20 @@ api_b_open_and_close(InitState) ->
                    end},
          #{desc => "get protocol",
            cmd  => fun(#{socket := Sock} = State) ->
-                           Res = socket:getopt(Sock, socket, protocol),
-                           {ok, {State, Res}}
+			   case socket:supports(options, socket, protocol) of
+			       true ->
+				   Res = socket:getopt(Sock, socket, protocol),
+				   {ok, {State, Res}};
+			       false ->
+				   {ok, {State, not_supported}}
+			   end
                    end},
          #{desc => "validate protocol",
-           cmd  => fun({#{protocol := Protocol} = State, {ok, Protocol}}) ->
+           cmd  => fun({State, not_supported}) ->
+			   ?SEV_IPRINT("socket option 'protocol' "
+				       "not supported"),
+                           {ok, State};
+                      ({#{protocol := Protocol} = State, {ok, Protocol}}) ->
                            {ok, State};
                       ({#{protocol := ExpProtocol}, {ok, Protocol}}) ->
                            {error, {unexpected_type, ExpProtocol, Protocol}};