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