File 4326-kernel-tcp-misc-test-Adjust-primitive-accept-test-ca.patch of Package erlang

From 1c0fb00433ea6be6ad83bd01d1ed1f624e2f6bb2 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 25 May 2020 17:23:35 +0200
Subject: [PATCH 26/35] [kernel|tcp|misc-test] Adjust primitive-accept test
 case

Add a skip clause (eaddrnotavail on connect).
---
 lib/kernel/test/gen_tcp_misc_SUITE.erl | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/lib/kernel/test/gen_tcp_misc_SUITE.erl b/lib/kernel/test/gen_tcp_misc_SUITE.erl
index 7c6999d096..bedf686348 100644
--- a/lib/kernel/test/gen_tcp_misc_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_misc_SUITE.erl
@@ -2762,12 +2762,30 @@ mktmofun(Tmo,Parent,LS) ->
 %% Accept tests
 %% Test singular accept.
 primitive_accept(Config) when is_list(Config) ->
-    {ok,LS}=gen_tcp:listen(0,[]),
-    {ok,PortNo}=inet:port(LS),
+    try do_primitive_accept(Config)
+    catch
+        throw:{skip, _} = SKIP ->
+            SKIP
+    end.
+
+do_primitive_accept(_Config) ->
+    LSock =
+        case gen_tcp:listen(0,[]) of
+            {ok, LS} ->
+                LS;
+            {error, LReason} ->
+                skip(listen_failed_str(LReason))
+        end,
+    {ok, PortNo} = inet:port(LSock),
     Parent = self(),
-    F = fun() -> Parent ! {accepted,self(),gen_tcp:accept(LS)} end,
+    F = fun() -> Parent ! {accepted,self(),gen_tcp:accept(LSock)} end,
     P = spawn(F),
-    gen_tcp:connect("localhost",PortNo,[]),
+    case gen_tcp:connect("localhost", PortNo, []) of
+        {ok, _} ->
+            ok;
+        {error, eaddrnotavail = CReason} ->
+            skip(connect_failed_str(CReason))
+    end,        
     receive
         {accepted,P,{ok,P0}} when is_port(P0) ->
             ok;
-- 
2.26.2