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