File 0109-ssl-use-log-instead-of-pal-in-tests.patch of Package erlang

From b55815f380c1a337a2ac0ec2687f38485b132dbd Mon Sep 17 00:00:00 2001
From: Jakub Witczak <kuba@erlang.org>
Date: Wed, 20 Sep 2023 17:36:45 +0200
Subject: [PATCH] ssl: use log instead of pal in tests

---
 lib/ssl/test/ssl_alert_SUITE.erl    | 2 +-
 lib/ssl/test/ssl_bench_test_lib.erl | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/ssl/test/ssl_alert_SUITE.erl b/lib/ssl/test/ssl_alert_SUITE.erl
index 759d8f87fb..9c45b70982 100644
--- a/lib/ssl/test/ssl_alert_SUITE.erl
+++ b/lib/ssl/test/ssl_alert_SUITE.erl
@@ -134,7 +134,7 @@ alert_details_not_too_big(Config) when is_list(Config) ->
                                                                                      line => 1710}}, server, "TLS", cipher),
     case byte_size(term_to_binary(Txt)) < (byte_size(term_to_binary(ReasonText)) - PrefixLen) of
         true ->
-            ?CT_PAL("~s", [Txt]);
+            ?CT_LOG("~s", [Txt]);
         false ->
             ct:fail(ssl_alert_text_too_big)
     end.
diff --git a/lib/ssl/test/ssl_bench_test_lib.erl b/lib/ssl/test/ssl_bench_test_lib.erl
index c654ee7ba9..95f7e0ee48 100644
--- a/lib/ssl/test/ssl_bench_test_lib.erl
+++ b/lib/ssl/test/ssl_bench_test_lib.erl
@@ -47,7 +47,7 @@ setup(Name) ->
             PeerOptions =
                 #{name => NameStr,
                   host => Host},
-            ?CT_PAL("PeerOptions: ~p~n", [PeerOptions]),
+            ?CT_LOG("PeerOptions: ~p~n", [PeerOptions]),
             {ok, _Pid, Node} =
                 peer:start(
                   case Remote of
@@ -61,7 +61,7 @@ setup(Name) ->
             Path = code:get_path(),
             true = erpc:call(Node, code, set_path, [Path]),
             ok = erpc:call(Node, ?MODULE, setup_server, [node()]),
-            ?CT_PAL("Client (~p) using ~ts~n",[node(), code:which(ssl)]),
+            ?CT_LOG("Client (~p) using ~ts~n",[node(), code:which(ssl)]),
             (Node =:= node()) andalso restrict_schedulers(client),
             Node
     end.
-- 
2.35.3

openSUSE Build Service is sponsored by