File 1052-erlexec-Fix-testcase-on-windows.patch of Package erlang

From 9560d6264b18faa53146ed79989345c1357b5a6b Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Mon, 1 Jun 2020 11:13:41 +0200
Subject: [PATCH 06/18] erlexec: Fix testcase on windows

---
 erts/test/erlexec_SUITE.erl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/erts/test/erlexec_SUITE.erl b/erts/test/erlexec_SUITE.erl
index b2370ea885..c210c5479b 100644
--- a/erts/test/erlexec_SUITE.erl
+++ b/erts/test/erlexec_SUITE.erl
@@ -406,10 +406,13 @@ verify_args([], _Ys) ->
     ok;
 verify_args(Xs, []) ->
     exit({args_not_found_in_order, Xs});
-verify_args([X|Xs], [X|Ys]) ->
-    verify_args(Xs, Ys);
-verify_args(Xs, [_Y|Ys]) ->
-    verify_args(Xs, Ys).
+verify_args([X|Xs], [Y|Ys]) ->
+    case string:equal(string:replace(X,"\r\n","\n"),string:replace(Y,"\r\n","\n")) of
+        true ->
+            verify_args(Xs,Ys);
+        false ->
+            verify_args(Xs,[Y|Ys])
+    end.
 
 verify_not_args(Xs, Ys) ->
     lists:foreach(fun (X) ->
-- 
2.26.2

openSUSE Build Service is sponsored by