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

openSUSE Build Service is sponsored by