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