File 4319-kernel-tcp-misc-test-Adjust-busy-disconnect-active-t.patch of Package erlang

From 21dd91933dd42d29076098549a15bfd40e93697a Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 25 May 2020 00:28:12 +0200
Subject: [PATCH 19/35] [kernel|tcp|misc-test] Adjust busy-disconnect-active
 test case

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

diff --git a/lib/kernel/test/gen_tcp_misc_SUITE.erl b/lib/kernel/test/gen_tcp_misc_SUITE.erl
index 28b06756fa..54d1dec467 100644
--- a/lib/kernel/test/gen_tcp_misc_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_misc_SUITE.erl
@@ -1867,20 +1867,6 @@ busy_send_srv_loop(Socket, Master, Msg) ->
 	    busy_send_srv_loop(Socket, Master, Msg)
     end.
 
-%% busy_send_client(Port, Master, Msg) ->
-%%     %% Client
-%%     %%
-%%     spawn_link(
-%%       fun () ->
-%% 	      {ok,Socket} = gen_tcp:connect(
-%% 			 "localhost", Port,
-%% 			 [{active,false},binary,{packet,0}]),
-%% 	      receive
-%% 		  {Master,recv, N} ->
-%% 		      busy_send_client_loop(Socket, Master, Msg, N)
-%% 	      end
-%%       end).
-
 busy_send_client_loop(Socket, Master, Msg, N) ->
     %% Client
     %%
@@ -1919,11 +1905,18 @@ busy_disconnect_passive_send(S, Data) ->
 %%% a {tcp_closed,Socket} message. (Active mode.)
 %%%
 busy_disconnect_active(Config) when is_list(Config) ->
+    try do_busy_disconnect_active(Config)
+    catch
+        throw:{skip, _} = SKIP ->
+            SKIP
+end.
+
+do_busy_disconnect_active(_Config) ->
     MuchoData = list_to_binary(ones(64*1024)),
-    [do_busy_disconnect_active(MuchoData) || _ <- lists:seq(1, 10)],
+    [do_busy_disconnect_active2(MuchoData) || _ <- lists:seq(1, 10)],
     ok.
 
-do_busy_disconnect_active(MuchoData) ->
+do_busy_disconnect_active2(MuchoData) ->
     S = busy_disconnect_prepare_server([{active,true}]),
     busy_disconnect_active_send(S, MuchoData).
 
@@ -1941,10 +1934,14 @@ busy_disconnect_active_send(S, Data) ->
 busy_disconnect_prepare_server(ConnectOpts) ->
     Sender = self(),
     Server = spawn_link(fun() -> busy_disconnect_server(Sender) end),
-    receive {port,Server,Port} -> ok end,
-    {ok,S} = gen_tcp:connect(localhost, Port, ConnectOpts),
-    Server ! {Sender,sending},
-    S.
+    receive {port, Server, Port} -> ok end,
+    case gen_tcp:connect(localhost, Port, ConnectOpts) of
+        {ok, S} ->
+            Server ! {Sender, sending},
+            S;
+        {error, eaddrnotavail = Reason} ->
+            skip(connect_failed_str(Reason))
+    end.
 
 busy_disconnect_server(Sender) ->
     {ok,L} = gen_tcp:listen(0, [{active,false},binary,{reuseaddr,true},{packet,0}]),
-- 
2.26.2