File 0665-Fix-test-case-gen_tcp_api_SUITE-t_connect_... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0665-Fix-test-case-gen_tcp_api_SUITE-t_connect_timeout.patch of Package erlang (Revision 3aaa84d7d540d57752db68644dc4a4df)

Currently displaying revision 3aaa84d7d540d57752db68644dc4a4df , Show latest

From cc763c935f17d5799d30fac53725965b93c5ab45 Mon Sep 17 00:00:00 2001
From: Kjell Winblad <kjellwinblad@gmail.com>
Date: Wed, 8 May 2019 11:50:56 +0200
Subject: [PATCH 2/2] Fix test case `gen_tcp_api_SUITE:t_connect_timeout`

This commit makes the test case `t_connect_timeout` in the test suite
gen_tcp_api_SUITE more reliable by searching for unused IP addresses
in a larger range of IP addresses.
---
 lib/kernel/test/gen_tcp_api_SUITE.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/kernel/test/gen_tcp_api_SUITE.erl b/lib/kernel/test/gen_tcp_api_SUITE.erl
index 1be016444f..00c9dc5ed5 100644
--- a/lib/kernel/test/gen_tcp_api_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_api_SUITE.erl
@@ -594,10 +594,13 @@ unused_ip() ->
     io:format("we = ~p, unused_ip = ~p~n", [Hent, IP]),
     IP.
 
-unused_ip(_, _, _, 255) -> error;
+unused_ip(255, 255, 255, 255) -> error;
+unused_ip(255, B, C, D) -> unused_ip(1, B + 1, C, D);
+unused_ip(A, 255, C, D) -> unused_ip(A, 1, C + 1, D);
+unused_ip(A, B, 255, D) -> unused_ip(A, B, 1, D + 1);
 unused_ip(A, B, C, D) ->
     case inet:gethostbyaddr({A, B, C, D}) of
-	{ok, _} -> unused_ip(A, B, C, D+1);
+	{ok, _} -> unused_ip(A + 1, B, C, D);
 	{error, _} -> {ok, {A, B, C, D}}
     end.
 
-- 
2.16.4

Places

File 0665-Fix-test-case-gen_tcp_api_SUITE-t_connect_timeout.patch of Package erlang (Revision 3aaa84d7d540d57752db68644dc4a4df)

Places