File 3173-kernel-test-Add-suite-skip-on-NetBSD.patch of Package erlang
From dc64eed1429480bb8e976c3e9abad17b733014e9 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 17 Dec 2025 09:56:53 +0100
Subject: [PATCH 3/3] [kernel|test] Add (suite) skip on NetBSD
---
lib/kernel/test/gen_sctp_SUITE.erl | 32 ++++++++++++++++++++++--------
1 file changed, 24 insertions(+), 8 deletions(-)
diff --git a/lib/kernel/test/gen_sctp_SUITE.erl b/lib/kernel/test/gen_sctp_SUITE.erl
index e6e3c00563..5cb37c051e 100644
--- a/lib/kernel/test/gen_sctp_SUITE.erl
+++ b/lib/kernel/test/gen_sctp_SUITE.erl
@@ -142,10 +142,8 @@ init_per_suite(Config0) ->
"~n Config: ~p"
"~n Nodes: ~p", [Config0, erlang:nodes()]),
- case gen_sctp:open() of
- {ok, Socket} ->
- gen_sctp:close(Socket),
-
+ case is_sctp_supported() of
+ ok ->
case ?LIB:init_per_suite(Config0) of
{skip, _} = SKIP ->
SKIP;
@@ -161,10 +159,8 @@ init_per_suite(Config0) ->
Config1
end;
- {error, Error}
- when Error =:= eprotonosupport;
- Error =:= esocktnosupport ->
- {skip,"SCTP not supported on this machine"}
+ {skip, _} = SKIP ->
+ SKIP
end.
end_per_suite(Config0) ->
@@ -3541,3 +3537,23 @@ err([_|Reasons], Result) ->
open_failed_str(Reason) ->
?F("Open failed: ~w", [Reason]).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+is_sctp_supported() ->
+ case os:type() of
+ {unix, netbsd} ->
+ %% SCTP is "fishy" on (our) NetBSD, so skip just to
+ %% avoid fatal crashes...
+ {skip, "SCTP \"fishy\" on NetBSD"};
+ _ ->
+ case gen_sctp:open() of
+ {ok, Socket} ->
+ gen_sctp:close(Socket),
+ ok;
+ {error, Reason}
+ when (Reason =:= eprotonosupport) orelse
+ (Reason =:= esocktnosupport) ->
+ {skip, "SCTP not supported on this machine"}
+ end
+ end.
--
2.51.0