addressing code review comments

Author: DenysGonchar

big_tests/tests/mam_SUITE.erl

@@ -639,7 +639,7 @@ init_per_group(Group, ConfigIn) ->
     C = configuration(Group),
     B = basic_group(Group),
     {ModulesToStart, Config0} = required_modules_for_group(C, B, ConfigIn),
-    ct:pal("Init per group ~p; configuration ~p; basic group ~p", [Group, C, B]),
+    ct:log("Init per group ~p; configuration ~p; basic group ~p", [Group, C, B]),
     Config01 = dynamic_modules:save_modules(host_type(), Config0),
     dynamic_modules:ensure_modules(host_type(), ModulesToStart),
     Config1 = do_init_per_group(C, Config01),
@@ -1290,8 +1290,8 @@ easy_archive_request_old_xmlel_format(Config) ->
              [{xmlel,<<"body">>,[],[{xmlcdata,<<"OH, HAI!">>}]}]},
 
         Msg1 = erlang:setelement(5, Msg, OldFormatPacket),
-        ct:pal("Packet: ~p~n", [Packet]),
-        ct:pal("OldFormatPacket: ~p~n", [OldFormatPacket]),
+        ct:log("Packet: ~p~n", [Packet]),
+        ct:log("OldFormatPacket: ~p~n", [OldFormatPacket]),
         mam_helper:put_msg(Msg1),
         mam_helper:wait_for_archive_size(Alice, 1),
         escalus:send(Alice, stanza_archive_request(P, <<"q1">>)),
@@ -1300,12 +1300,12 @@ easy_archive_request_old_xmlel_format(Config) ->
         assert_respond_size(1, Res),
         assert_respond_query_id(P, <<"q1">>, parse_result_iq(Res)),
         [RespMessage] = respond_messages(Res),
-        ct:pal("ResPacket: ~p~n", [RespMessage]),
+        ct:log("ResPacket: ~p~n", [RespMessage]),
 
         ArchivedMsg = exml_query:path(RespMessage, [{element, <<"result">>},
                                                     {element, <<"forwarded">>},
                                                     {element, <<"message">>}]),
-        ct:pal("ArchivedMsg: ~p~n", [ArchivedMsg]),
+        ct:log("ArchivedMsg: ~p~n", [ArchivedMsg]),
         assert_msg_match(Packet, ArchivedMsg),
         ok
         end,

test/auth_tokens_SUITE.erl

@@ -111,11 +111,11 @@ validation_test(Config) ->
 validation_test(_, ExampleToken) ->
     %% given
     Serialized = mod_auth_token:serialize(ExampleToken),
-    ct:pal("ExampleToken:~n  ~p", [ExampleToken]),
+    ct:log("ExampleToken:~n  ~p", [ExampleToken]),
 
     %% when
     Result = mod_auth_token:authenticate(host_type(), Serialized),
-    ct:pal("Result: ~p", [Result]),
+    ct:log("Result: ~p", [Result]),
 
     %% then
     ?ae(true, is_validation_success(Result)).