File 0172-Fix-dist-testcase-options.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0172-Fix-dist-testcase-options.patch of Package erlang

From b63a6508973cfcdbf33a18f5801dc6e7be94c6a4 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Wed, 24 Mar 2021 10:22:34 +0100
Subject: [PATCH] Fix dist testcase options

Don't single-quote tuples on windows, causes the tuple to be an atom
and badarg.
---
 lib/ssl/test/ssl_dist_SUITE.erl | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/lib/ssl/test/ssl_dist_SUITE.erl b/lib/ssl/test/ssl_dist_SUITE.erl
index 2123ac5def..67be91196f 100644
--- a/lib/ssl/test/ssl_dist_SUITE.erl
+++ b/lib/ssl/test/ssl_dist_SUITE.erl
@@ -828,14 +828,17 @@ localhost_ip(InetVer) ->
 
 localhost_ipstr(InetVer) ->
     {ok, Addr} = inet:getaddr(net_adm:localhost(), InetVer),
-    case InetVer of
-        inet ->
-            lists:flatten(io_lib:format("'{~p,~p,~p,~p}'",
-                                        erlang:tuple_to_list(Addr)));
-        inet6 ->
-            lists:flatten(io_lib:format("'{~p,~p,~p,~p,~p,~p,~p,~p}'",
-                                        erlang:tuple_to_list(Addr)))
-    end.
+    Str = case InetVer of
+              inet ->
+                  io_lib:format("{~p,~p,~p,~p}", erlang:tuple_to_list(Addr));
+              inet6 ->
+                  io_lib:format("{~p,~p,~p,~p,~p,~p,~p,~p}", erlang:tuple_to_list(Addr))
+          end,
+    Qouted = case os:type() of
+                 {win32, _} -> Str;
+                 _ -> [$',Str,$']
+             end,
+    lists:flatten(Qouted).
 
 inet_ver() ->
     inet.
-- 
2.26.2

Places

File 0172-Fix-dist-testcase-options.patch of Package erlang

Places