ssh: add CT_LOG, CT_PAL to ssh_test_lib.hrl

Author: u3s

lib/ssh/test/ssh_test_lib.hrl

@@ -80,12 +80,26 @@
 -define(wait_match(Pattern, FunctionCall),
         ?wait_match(Pattern, FunctionCall, ok)).
 
-%%-------------------------------------------------------------------------
-%% Write file into log
-%%-------------------------------------------------------------------------
 -define(ct_log_show_file(File),
         (fun(File__) ->
                 {ok,Contents__} = file:read_file(File__),
                 ct:log("~p:~p Show file~n~s =~n~s~n",
                        [?MODULE,?LINE,File__, Contents__])
         end)(File)).
+
+-define(SSH_TEST_LIB_FORMAT, "(~s ~p:~p in ~p) ").
+-define(SSH_TEST_LIB_ARGS,
+        [erlang:pid_to_list(self()), ?MODULE, ?LINE, ?FUNCTION_NAME]).
+-define(CT_LOG(F),
+        (ct:log(?SSH_TEST_LIB_FORMAT ++ F, ?SSH_TEST_LIB_ARGS, [esc_chars]))).
+-define(CT_LOG(F, Args),
+        (ct:log(
+           ?SSH_TEST_LIB_FORMAT ++ F,
+           ?SSH_TEST_LIB_ARGS ++ Args,
+           [esc_chars]))).
+-define(CT_PAL(F),
+        (ct:pal(?SSH_TEST_LIB_FORMAT ++ F, ?SSH_TEST_LIB_ARGS))).
+-define(CT_PAL(F, Args),
+        (ct:pal(?SSH_TEST_LIB_FORMAT ++ F, ?SSH_TEST_LIB_ARGS ++ Args))).
+-define(CT_FAIL(F, Args),
+        (ct:fail(?SSH_TEST_LIB_FORMAT ++ F, ?SSH_TEST_LIB_ARGS ++ Args))).