File 5041-kernel-test-Tweaked-recvtos-test-case-for-more-info.patch of Package erlang

From 38e03c341fab86d22676812dd023475524a46b31 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 2 Mar 2026 11:41:47 +0100
Subject: [PATCH 1/2] [kernel|test] Tweaked recvtos test case for more info

---
 lib/kernel/test/gen_udp_SUITE.erl | 39 +++++++++++++++++++++++++++----
 1 file changed, 35 insertions(+), 4 deletions(-)

diff --git a/lib/kernel/test/gen_udp_SUITE.erl b/lib/kernel/test/gen_udp_SUITE.erl
index db9ea8b6c1..ca703b2a46 100644
--- a/lib/kernel/test/gen_udp_SUITE.erl
+++ b/lib/kernel/test/gen_udp_SUITE.erl
@@ -1705,6 +1705,7 @@ test_recv_opts(Config, Family, Spec, TestSend, OSFilter) ->
             {skip,{not_supported_for_os_version,{OSType,OSVer}}}
     end.
 %%
+
 test_recv_opts(Config, Family, Spec, TestSend, _OSType, _OSVer) ->
     Timeout = 5000,
     RecvOpts = [RecvOpt || {RecvOpt,_,_} <- Spec],
@@ -1728,10 +1729,18 @@ test_recv_opts(Config, Family, Spec, TestSend, _OSType, _OSVer) ->
     {ok, TrueRecvOpts} = inet:getopts(S1, RecvOpts),
     ?P("try set (false) socket (1) opts"),
     ok = inet:setopts(S1, FalseRecvOpts),
-    ?P("verify (false) socket (1) opts"),
-    {ok, FalseRecvOpts} = inet:getopts(S1, RecvOpts),
+    %% ?P("verify (false) socket (1) opts"),
+    %% {ok, FalseRecvOpts} = inet:getopts(S1, RecvOpts),
+    expect("(false) socket (1) opts",
+	   {ok, FalseRecvOpts},
+	   inet:getopts(S1, RecvOpts)),
+    ?P("try set (true) socket (1) opts"),
     ok = inet:setopts(S1, TrueRecvOpts_OptsVals),
-    {ok,TrueRecvOpts_OptsVals} = inet:getopts(S1, RecvOpts ++ Opts),
+    %% ?P("verify (true) socket (1) opts"),
+    %% {ok, TrueRecvOpts_OptsVals} = inet:getopts(S1, RecvOpts ++ Opts),
+    expect("(true) socket (1) opts",
+	   {ok, TrueRecvOpts_OptsVals},
+	   inet:getopts(S1, RecvOpts ++ Opts)),
     %%
     %% S1 now has true receive options and set option values
     %%
@@ -1740,7 +1749,15 @@ test_recv_opts(Config, Family, Spec, TestSend, _OSType, _OSVer) ->
         ?OPEN(Config, 0, [Family, binary, {active,true} | FalseRecvOpts]),
     {ok, P2} = inet:port(S2),
     ?P("try get (false) socket (2) opts"),
-    {ok, FalseRecvOpts_OptsVals2} = inet:getopts(S2, RecvOpts ++ Opts),
+    FalseRecvOpts_OptsVals2 =
+	case inet:getopts(S2, RecvOpts ++ Opts) of
+	    {ok, RecvOpts_03} ->
+		RecvOpts_03;
+	    {error, Reason} ->
+		?P("Failed get options: "
+		   "~n   Reason: ~p", [Reason]),
+		exit({failed_get_opts, Reason})
+	end,
     OptsVals2 = FalseRecvOpts_OptsVals2 -- FalseRecvOpts,
     ?P("info: "
        "~n   Socket 1:    ~p"
@@ -3661,6 +3678,19 @@ do_otp_19357_open_with_ipv6_option(#{local_addr := Addr}) ->
     ?P("done"),
     ok.
 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+expect(Slogan,
+       Expect, Expect) ->
+    ?P("Verified: ~s", [Slogan]),
+    ok;
+expect(Slogan,
+       Expect, Unexpected) ->
+    ?P("Verification failed: ~s"
+       "~n   Expected: ~p"
+       "~n   Actual:   ~p", [Slogan, Expect, Unexpected]),
+    exit({unexpected, Slogan}).
+
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-- 
2.51.0