File otp_src_18.3.4-lib-common_test-ct_logs.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File otp_src_18.3.4-lib-common_test-ct_logs.patch of Package erlang (Revision a2c746346df91f7eba485155dba10e85)

Currently displaying revision a2c746346df91f7eba485155dba10e85 , Show latest

diff -Ndurp otp_src_18.3.4/lib/common_test/src/ct_logs.erl otp_src_18.3.4-lib-common_test-ct_logs/lib/common_test/src/ct_logs.erl
--- otp_src_18.3.4/lib/common_test/src/ct_logs.erl	2016-06-13 14:21:38.000000000 +0300
+++ otp_src_18.3.4-lib-common_test-ct_logs/lib/common_test/src/ct_logs.erl	2016-06-17 03:29:57.157684688 +0300
@@ -214,16 +214,24 @@ clear_stylesheet(TC) ->
 %%%-----------------------------------------------------------------
 %%% @spec get_log_dir() -> {ok,Dir} | {error,Reason}
 get_log_dir() ->
-    get_log_dir(false).
+    case call({get_log_dir,false}) of
+	{error,does_not_exist} ->
+	    {ok,"."};
+	Result ->
+	    Result
+    end.
 
 %%%-----------------------------------------------------------------
 %%% @spec get_log_dir(ReturnAbsName) -> {ok,Dir} | {error,Reason}
-get_log_dir(ReturnAbsName) ->
-    case call({get_log_dir,ReturnAbsName}) of
-	{error,does_not_exist} when ReturnAbsName == true ->
-	    {ok,filename:absname(".")};
+get_log_dir(true) ->
+    get_log_dir_abs();
+get_log_dir(false) ->
+    get_log_dir().
+
+get_log_dir_abs() ->
+    case call({get_log_dir,true}) of
 	{error,does_not_exist} ->
-	    {ok,"."};
+	    {ok,filename:absname(".")};
 	Result ->
 	    Result
     end.
@@ -3040,7 +3048,7 @@ locate_priv_file(FileName) ->
 			filename:join(get(ct_run_dir), FileName);
 		    _ ->			
 			%% executed on other process than ct_logs
-			{ok,RunDir} = get_log_dir(true),
+			{ok,RunDir} = get_log_dir_abs(),
 			filename:join(RunDir, FileName)
 		end,
 	    case filelib:is_file(PrivResultFile) of
@@ -3115,7 +3123,7 @@ get_ts_html_wrapper(TestName, Logdir, Pr
     CTPath = code:lib_dir(common_test),
 
     {ok,CtLogdir} =
-	if Logdir == undefined -> get_log_dir(true);
+	if Logdir == undefined -> get_log_dir_abs();
 	   true -> {ok,Logdir}
 	end,

Places

File otp_src_18.3.4-lib-common_test-ct_logs.patch of Package erlang (Revision a2c746346df91f7eba485155dba10e85)

Places