File 5798-kernel-enet-test-Tweaked-getservbyport-test-case.patch of Package erlang

From 807731d473a20119a3a8df133d4fb308885b79be Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 31 May 2024 08:27:07 +0200
Subject: [PATCH 18/18] [kernel|enet|test] Tweaked getservbyport test case

---
 lib/kernel/test/net_SUITE.erl | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/lib/kernel/test/net_SUITE.erl b/lib/kernel/test/net_SUITE.erl
index acbdce682c..62bdbef7f4 100644
--- a/lib/kernel/test/net_SUITE.erl
+++ b/lib/kernel/test/net_SUITE.erl
@@ -648,16 +648,21 @@ api_b_getservbyport() ->
                                {ok, WrongService} ->
                                    wrong_service(5672, sctp,
                                                  WrongService, "amqp");
-                               {error, Reason} ->
+                               {error, Reason} when (Reason =:= einval) ->
                                    case os:type() of
-                                       {unix, darwin}
-                                         when (Reason =:= einval) ->
+                                       {unix, UNIX}
+                                         when (UNIX =:= darwin) orelse
+                                              (UNIX =:= openbsd) ->
                                            ok;
                                        _ ->
                                            ?P("Unexpected failure: ~p",
                                               [Reason]),
                                            ?FAIL({"amqp", sctp, Reason})
-                                   end
+                                   end;
+                               {error, Reason} ->
+                                   ?P("Unexpected failure: ~p",
+                                      [Reason]),
+                                   ?FAIL({"amqp", sctp, Reason})
                            end
                    end),
 
@@ -669,17 +674,6 @@ api_b_getservbyport() ->
     ok.
 
 
-%% not_freebsd(F) ->
-%%    Cond = fun() -> case os:type() of
-%%                                  {unix, freebsd} ->
-%% 				     skip;
-%% 				 _ ->
-%% 				    run
-%% 			     end
-%% 		end,
-%%    maybe_run(Cond, F).
-%% 
-
 not_on_windows(F) ->
     Cond = fun() -> case os:type() of
 			{win32, nt} ->
-- 
2.35.3

openSUSE Build Service is sponsored by