File 7561-Add-elapsed-time-to-index.html.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 7561-Add-elapsed-time-to-index.html.patch of Package erlang (Revision 0c95bdcb413813ad538c04f6e313b575)

Currently displaying revision 0c95bdcb413813ad538c04f6e313b575 , Show latest

From 279f93896c2298510aaf092d7549472f554ec8a2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C5=82=20W=C4=85sowski?= <michal@erlang.org>
Date: Fri, 2 Feb 2024 14:20:24 +0100
Subject: [PATCH] Add elapsed time to index.html

---
 lib/common_test/internal_doc/ct_notes.md |  76 ++++++++-
 lib/common_test/src/ct_logs.erl          | 192 ++++++++++++++---------
 lib/common_test/src/test_server_ctrl.erl |   7 +-
 3 files changed, 194 insertions(+), 81 deletions(-)

diff --git a/lib/common_test/internal_doc/ct_notes.md b/lib/common_test/internal_doc/ct_notes.md
index 061e4d2cdb..771ccc38a8 100644
--- a/lib/common_test/internal_doc/ct_notes.md
+++ b/lib/common_test/internal_doc/ct_notes.md
@@ -1,5 +1,77 @@
-# CT test_server
+# CT notes
+## Time categories and totals
+1. TestTime - spent on executing configuration or test case functions
+2. FrameworkTime - e.g. spent on executing hooks
+3. ElapsedTime - start/stop timestamp difference for test execution
 
+> [!NOTE]
+> timetrap option operates on TestTime
+
+```mermaid
+---
+title: Time measurments in CT
+---
+flowchart TD
+    subgraph FrameworkTime
+    pre_ips["F1: pre_init_per_suite"]
+    end
+    subgraph TestTime
+    pre_ips --> ipt["T1: init_per_suite"]
+    end
+    ipt --> post_ips
+    subgraph FrameworkTime
+    post_ips
+    end
+    subgraph TestTime
+    post_ips["F2: post_init_per_suite"] --> testcase1
+    testcase1["T2: Testcase"] --> testcase2
+    testcase2["T3: Testcase"]
+    end
+    subgraph FrameworkTime
+    testcase2 --> pre_ept
+    pre_ept["F3: pre_end_per_suite"]
+    end
+    subgraph TestTime
+    pre_ept --> end_per_test_case
+    end
+    subgraph FrameworkTime
+    end_per_test_case["T4: end_per_suite"] --> post_ept
+    post_ept["F4: post_end_per_suite"]
+    end
+```
+### sequential execution
+Without parallel execution ElapsedTime would be close to sum of test and framework execution times.
+
+> [!NOTE]
+> ElapsedTime ~= FrameworkTime + TestTime = (F1 + F2 + F3 + F4) + (T1 + _T2 + T3_ +T4)
+
+### parallel execution
+With parallel execution ElapsedTime is expected to be smaller than sum of test and framework execution times.
+
+> [!NOTE]
+> ElapsedTime ~= FrameworkTime + TestTime = (F1 + F2 + F3 + F4) + (T1 + _max(T2, T3)_ +T4)
+
+## HTML pages - CT_LOGS folder content
+1. index.html
+   - **Test Run Started - timestamp**
+2. suite.log.latest.html
+3. all_runs.html
+4. ct_run.../index.html
+   - time fetched from suite.log.html files - **ElapsedTime** per row (test suite or test spec) (PR-8112)
+5. ct_run.../ctlog.html
+6. ct_run.../last_test.html
+7. ct_run.../misc_io.log.html
+8. ct_run.../...logs/run.../cover.html
+9. ct_run.../...logs/run.../ct_framework.end_per_group.html - present only in global "make test" run
+10. ct_run.../...logs/run.../ct_framework.init_per_group.html - same as above
+11. ct_run.../...logs/run.../$SUITE.end_per_suite.html
+12. ct_run.../...logs/run.../$SUITE.init_per_suite.html
+13. ct_run.../...logs/run.../$SUITE.$TESTCASE.html
+14. ct_run.../...logs/run.../$SUITE.src.html
+15. ct_run.../...logs/run.../suite.log.html
+    - **Time per row**(test or conf function) - does not include FrameworkTime (e.g. spent in hooks)
+    - **TOTAL Time - being ElapsedTime** not a sum of rows above
+16. ct_run.../...logs/run.../unexpected_io.log.html
 ## Problem (GH-7119, OTP-11894, OTP-14480)
 I think the most confusing thing is that today OTP behavior and design seems to be a mix of Configuration and Testcase centric attributes:
 1. (Configuration centric) CT hook callback looks as designed to wrap around CT Configuration functions (i.e. you have *pre* and *post* to wrapp around init_per_testcase or end_per_testcase)
@@ -57,7 +129,7 @@ flowchart TD
     end
     subgraph hooks
     end_per_test_case[/"end_per_testcase"/] --Config,Return--> post_ept_B
-    post_ept_B[/"(B) post_end_per_testcase"/] --Return--> post_ept_A[/"(A) post_end_per_testcase"/]
+    post_ept_B["(B) post_end_per_testcase"] --Return--> post_ept_A["(A) post_end_per_testcase"]
     end_per_test_case --Config--> post_ept_A
     end
 ```
diff --git a/lib/common_test/src/ct_logs.erl b/lib/common_test/src/ct_logs.erl
index de5d7e33cb..71d821681b 100644
--- a/lib/common_test/src/ct_logs.erl
+++ b/lib/common_test/src/ct_logs.erl
@@ -1322,9 +1322,12 @@ make_last_run_index1(StartTime,IndexName,CustomStylesheet) ->
 		{ok,Lbl} -> Lbl;
 		_ -> undefined
 	    end,
-    {ok,Index0,Totals} = make_last_run_index(Logs1,
-					     index_header(Label,StartTime,CustomStylesheet),
-					     0, 0, 0, 0, 0, Missing),
+    {ok,Index0,Totals0} = make_last_run_index(Logs1,
+					      index_header(Label,StartTime,CustomStylesheet),
+					      0, 0, 0, 0, 0, 0, Missing),
+    {TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt,_TotElapsedTime} = Totals0,
+    %% TotElapsedTime is not used in all_runs, remove it
+    Totals = {TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt},
     %% write current Totals to file, later to be used in all_runs log
     write_totals_file(?totals_name,Label,Logs1,Totals),
     Index = [Index0|last_run_index_footer()],
@@ -1349,35 +1352,36 @@ insert_dir(D,[]) ->
     [D].
 
 make_last_run_index([Name|Rest], Result, TotSucc, TotFail,
-		    UserSkip, AutoSkip, TotNotBuilt, Missing) ->
+                    UserSkip, AutoSkip, TotNotBuilt, TotElapsedTime, Missing) ->
     case get_run_dirs(Name) of
-	false ->
-	    %% Silently skip.
-	    make_last_run_index(Rest, Result, TotSucc, TotFail,
-				UserSkip, AutoSkip, TotNotBuilt, Missing);
-	LogDirs ->
-	    SuiteName = filename:rootname(filename:basename(Name)),
-	    {Result1,TotSucc1,TotFail1,UserSkip1,AutoSkip1,TotNotBuilt1} = 
-		make_last_run_index1(SuiteName, LogDirs, Result,
-				     TotSucc, TotFail,
-				     UserSkip, AutoSkip,
-				     TotNotBuilt, Missing),
-	    make_last_run_index(Rest, Result1, TotSucc1, TotFail1,
-				UserSkip1, AutoSkip1,
-				TotNotBuilt1, Missing)
+        false ->
+            %% Silently skip.
+            make_last_run_index(Rest, Result, TotSucc, TotFail,
+                                UserSkip, AutoSkip, TotNotBuilt, TotElapsedTime, Missing);
+        LogDirs ->
+            SuiteName = filename:rootname(filename:basename(Name)),
+            {Result1,TotSucc1,TotFail1,UserSkip1,AutoSkip1,TotNotBuilt1,TotElapsedTime1} =
+                make_last_run_index1(SuiteName, LogDirs, Result,
+                                     TotSucc, TotFail,
+                                     UserSkip, AutoSkip,
+                                     TotNotBuilt, TotElapsedTime,
+                                     Missing),
+            make_last_run_index(Rest, Result1, TotSucc1, TotFail1,
+                                UserSkip1, AutoSkip1,
+                                TotNotBuilt1, TotElapsedTime1, Missing)
     end;
 
 make_last_run_index([], Result, TotSucc, TotFail, UserSkip, AutoSkip,
-		    TotNotBuilt, _) ->
+		    TotNotBuilt, TotElapsedTime, _) ->
     {ok, [Result|total_row(TotSucc, TotFail, UserSkip, AutoSkip,
-			   TotNotBuilt, false)],
-     {TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt}}.
+			   TotNotBuilt, TotElapsedTime, false)],
+     {TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt,TotElapsedTime}}.
 	    
 make_last_run_index1(SuiteName, [LogDir | LogDirs], Result, TotSucc, TotFail,
-		     UserSkip, AutoSkip, TotNotBuilt, Missing) ->
+		     UserSkip, AutoSkip, TotNotBuilt, TotElapsedTime, Missing) ->
     case make_one_index_entry(SuiteName, LogDir, "-", false,
 			      Missing, undefined) of
-	{Result1,Succ,Fail,USkip,ASkip,NotBuilt,_URIs1} ->
+	{Result1,Succ,Fail,USkip,ASkip,NotBuilt,_URIs1,ElapsedTime} ->
 	    %% for backwards compatibility
 	    AutoSkip1 = case catch AutoSkip+ASkip of
 			    {'EXIT',_} -> undefined;
@@ -1386,31 +1390,37 @@ make_last_run_index1(SuiteName, [LogDir | LogDirs], Result, TotSucc, TotFail,
 	    make_last_run_index1(SuiteName, LogDirs, [Result|Result1],
 				 TotSucc+Succ, 
 				 TotFail+Fail, UserSkip+USkip, AutoSkip1,
-				 TotNotBuilt+NotBuilt, Missing);
+				 TotNotBuilt+NotBuilt, TotElapsedTime+ElapsedTime,
+				 Missing);
 	error ->
 	    make_last_run_index1(SuiteName, LogDirs, Result, TotSucc, TotFail,
-				 UserSkip, AutoSkip, TotNotBuilt, Missing)
+				 UserSkip, AutoSkip, TotNotBuilt, TotElapsedTime, Missing)
     end;
 make_last_run_index1(_, [], Result, TotSucc, TotFail,
-		     UserSkip, AutoSkip, TotNotBuilt, _) ->
-    {Result,TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt}.
+		     UserSkip, AutoSkip, TotNotBuilt, TotElapsedTime, _) ->
+    {Result,TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt,TotElapsedTime}.
 
 make_one_index_entry(SuiteName, LogDir, Label, All, Missing, URIs) ->
+    MaybeAddElapsedTime =
+        fun(_All = false, ElapsedTime) -> ElapsedTime;
+           (_, _) -> undefined
+        end,
     case count_cases(LogDir) of
-	{Succ,Fail,UserSkip,AutoSkip} ->
-	    NotBuilt = not_built(SuiteName, LogDir, All, Missing),
-	    {NewResult,URIs1} = make_one_index_entry1(SuiteName, LogDir, Label,
-						      Succ, Fail,
-						      UserSkip, AutoSkip,
-						      NotBuilt, All,
-						      normal, URIs),
-	    {NewResult,Succ,Fail,UserSkip,AutoSkip,NotBuilt,URIs1};
-	error ->
-	    error
+        {Succ,Fail,UserSkip,AutoSkip,ElapsedTime} ->
+            NotBuilt = not_built(SuiteName, LogDir, All, Missing),
+            {NewResult,URIs1} = make_one_index_entry1(SuiteName, LogDir, Label,
+                                                      Succ, Fail,
+                                                      UserSkip, AutoSkip,
+                                                      NotBuilt, All,
+                                                      normal, URIs,
+                                                      MaybeAddElapsedTime(All, ElapsedTime)),
+            {NewResult,Succ,Fail,UserSkip,AutoSkip,NotBuilt,URIs1,ElapsedTime};
+        error ->
+            error
     end.
 
 make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip,
-		      NotBuilt, All, Mode, URIs) ->
+		      NotBuilt, All, Mode, URIs, ElapsedTime) ->
     LogFile = filename:join(Link, ?suitelog_name ++ ".html"),
     CtRunDir = filename:dirname(filename:dirname(Link)),
     CrashDumpName = SuiteName ++ "_erl_crash.dump",
@@ -1501,6 +1511,16 @@ make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip,
 			end,
 		{UserSkip+AutoSkip,integer_to_list(UserSkip),ASStr}
 	end,
+
+    ElapsedTimeStr =
+        if ElapsedTime == undefined ->
+                "";
+           true ->
+                ["<td align=right>",
+                 float_to_list(ElapsedTime / 1000000, [{decimals, 3}]),
+                 "s</td>\n"]
+        end,
+
     {[xhtml("<tr valign=top>\n",
 	    ["<tr class=\"",odd_or_even(),"\">\n"]),
       xhtml("<td><font size=\"-1\"><a href=\"", "<td><a href=\""),
@@ -1511,34 +1531,48 @@ make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip,
       "<td align=right>",FailStr,"</td>\n",
       "<td align=right>",integer_to_list(AllSkip),
       " (",UserSkipStr,"/",AutoSkipStr,")</td>\n",  
-      NotBuiltStr, Node, AllInfo, "</tr>\n"], URIs1}.
+      NotBuiltStr, ElapsedTimeStr, Node, AllInfo, "</tr>\n"], URIs1}.
 
-total_row(Success, Fail, UserSkip, AutoSkip, NotBuilt, All) ->
+total_row(Success, Fail, UserSkip, AutoSkip, NotBuilt, ElapsedTime, All) ->
     {Label,TimestampCell,AllInfo} =
-	case All of
-	    true ->
-		{"<td>&nbsp;</td>\n",
-		 "<td>&nbsp;</td>\n",
-		 "<td>&nbsp;</td>\n"
-		 "<td>&nbsp;</td>\n"
-		 "<td>&nbsp;</td>\n"};
-	    false ->
-		{"","",""}
-	end,
+        case All of
+            true ->
+                {"<td>&nbsp;</td>\n",
+                 "<td>&nbsp;</td>\n",
+                 "<td>&nbsp;</td>\n"
+                 "<td>&nbsp;</td>\n"
+                 "<td>&nbsp;</td>\n"};
+            false ->
+                {"","",""}
+        end,
 
     {AllSkip,UserSkipStr,AutoSkipStr} =
-	if AutoSkip == undefined -> {UserSkip,"?","?"};
-	   true -> {UserSkip+AutoSkip,
-		    integer_to_list(UserSkip),integer_to_list(AutoSkip)}
-	end,
-    [xhtml("<tr valign=top>\n", 
-	   ["</tbody>\n<tfoot>\n<tr class=\"",odd_or_even(),"\">\n"]),
+        if AutoSkip == undefined -> {UserSkip,"?","?"};
+           true -> {UserSkip+AutoSkip,
+                    integer_to_list(UserSkip),integer_to_list(AutoSkip)}
+        end,
+    ElapsedTimeStr =
+        if ElapsedTime == undefined ->
+                %% Empty string is used when generating following pages:
+                %% - ct_logs/all_runs.html
+                %% - ct_logs/index.html
+                "";
+           true ->
+                %% ElapsedTime is used when generating following pages:
+                %% - ct_logs/ct_run.*/index.html
+                ["<td align=right><b>",
+                 float_to_list(ElapsedTime / 1000000, [{decimals, 3}]),
+                 "s</b></td>\n"]
+        end,
+    [xhtml("<tr valign=top>\n",
+           ["</tbody>\n<tfoot>\n<tr class=\"",odd_or_even(),"\">\n"]),
      "<td><b>Total</b></td>\n", Label, TimestampCell,
      "<td align=right><b>",integer_to_list(Success),"</b></td>\n",
      "<td align=right><b>",integer_to_list(Fail),"</b></td>\n",
      "<td align=right>",integer_to_list(AllSkip),
-     " (",UserSkipStr,"/",AutoSkipStr,")</td>\n",  
+     " (",UserSkipStr,"/",AutoSkipStr,")</td>\n",
      "<td align=right><b>",integer_to_list(NotBuilt),"</b></td>\n",
+     ElapsedTimeStr,
      AllInfo, "</tr>\n",
      xhtml("","</tfoot>\n")].
 
@@ -1637,6 +1671,7 @@ index_header(Label, StartTime, CustomStylesheet) ->
       "<th>Failed</th>\n",
       "<th>Skipped", xhtml("<br>", "<br />"), "(User/Auto)</th>\n"
       "<th>Missing", xhtml("<br>", "<br />"), "Suites</th>\n",
+      "<th>Elapsed", xhtml("<br>", "<br />"), "Time</th>\n",
       xhtml("", "</tr>\n</thead>\n<tbody>\n")]].
 
 all_suites_index_header(CustomStylesheet) ->
@@ -1855,7 +1890,9 @@ count_cases(Dir) ->
     SumFile = filename:join(Dir, ?run_summary),
     case read_summary(SumFile, [summary]) of
 	{ok, [{Succ,Fail,Skip}]} ->
-	    {Succ,Fail,Skip,undefined};
+	    {Succ,Fail,Skip,undefined,undefined};
+	{ok, [{Succ,Fail,UserSkip,AutoSkip}]} ->
+		{Succ,Fail,UserSkip,AutoSkip,undefined};
 	{ok, [Summary]} ->
 	    Summary;
 	{error, _} ->
@@ -1863,11 +1900,11 @@ count_cases(Dir) ->
 	    case file:read_file(LogFile) of
 		{ok, Bin} ->
 		    case count_cases1(b2s(Bin),
-				      {undefined,undefined,undefined,undefined}) of
+				      {undefined,undefined,undefined,undefined,undefined}) of
 			{error,not_complete} ->
 			    %% The test is not complete - dont write summary
 			    %% file yet.
-			    {0,0,0,0};
+			    {0,0,0,0,0};
 			Summary ->
 			    _ = write_summary(SumFile, Summary),
 			    Summary
@@ -1896,22 +1933,25 @@ read_summary(Name, Keys) ->
 	    {error, Reason}
     end.
 
-count_cases1("=failed" ++ Rest, {Success, _Fail, UserSkip,AutoSkip}) ->
+count_cases1("=failed" ++ Rest, {Success, _Fail, UserSkip, AutoSkip, ElapsedTime}) ->
     {NextLine, Count} = get_number(Rest),
-    count_cases1(NextLine, {Success, Count, UserSkip,AutoSkip});
-count_cases1("=successful" ++ Rest, {_Success, Fail, UserSkip,AutoSkip}) ->
+    count_cases1(NextLine, {Success, Count, UserSkip, AutoSkip, ElapsedTime});
+count_cases1("=successful" ++ Rest, {_Success, Fail, UserSkip, AutoSkip, ElapsedTime}) ->
     {NextLine, Count} = get_number(Rest),
-    count_cases1(NextLine, {Count, Fail, UserSkip,AutoSkip});
-count_cases1("=skipped" ++ Rest, {Success, Fail, _UserSkip,_AutoSkip}) ->
+    count_cases1(NextLine, {Count, Fail, UserSkip, AutoSkip, ElapsedTime});
+count_cases1("=skipped" ++ Rest, {Success, Fail, _UserSkip, _AutoSkip, ElapsedTime}) ->
     {NextLine, Count} = get_number(Rest),
-    count_cases1(NextLine, {Success, Fail, Count,undefined});
-count_cases1("=user_skipped" ++ Rest, {Success, Fail, _UserSkip,AutoSkip}) ->
+    count_cases1(NextLine, {Success, Fail, Count, undefined, ElapsedTime});
+count_cases1("=user_skipped" ++ Rest, {Success, Fail, _UserSkip, AutoSkip, ElapsedTime}) ->
     {NextLine, Count} = get_number(Rest),
-    count_cases1(NextLine, {Success, Fail, Count,AutoSkip});
-count_cases1("=auto_skipped" ++ Rest, {Success, Fail, UserSkip,_AutoSkip}) ->
+    count_cases1(NextLine, {Success, Fail, Count, AutoSkip, ElapsedTime});
+count_cases1("=auto_skipped" ++ Rest, {Success, Fail, UserSkip, _AutoSkip, ElapsedTime}) ->
     {NextLine, Count} = get_number(Rest),
-    count_cases1(NextLine, {Success, Fail, UserSkip,Count});
-count_cases1([], {Su,F,USk,_ASk}) when Su==undefined;F==undefined;
+    count_cases1(NextLine, {Success, Fail, UserSkip, Count, ElapsedTime});
+count_cases1("=elapsed_time" ++ Rest, {Success, Fail, UserSkip, AutoSkip, _ElapsedTime}) ->
+	{NextLine, Count} = get_number(Rest),
+	count_cases1(NextLine, {Success, Fail, UserSkip, AutoSkip, Count});
+count_cases1([], {Su,F,USk,_ASk,_ElapsedTime}) when Su==undefined;F==undefined;
 				       USk==undefined ->
     {error,not_complete};
 count_cases1([], Counters) ->
@@ -2791,7 +2831,7 @@ make_all_suites_index3([IxEntry = {TestName,Label,Missing,
 
 	    {Result1,_} = make_one_index_entry1(TestName, LastLogDir, Label,
 						Succ, Fail, USkip, ASkip,
-						NotBuilt, All, temp, URIs),
+						NotBuilt, All, temp, URIs, undefined),
 
 	    AutoSkip1 = case catch AutoSkip+ASkip of
 			    {'EXIT',_} -> undefined;
@@ -2829,7 +2869,7 @@ make_all_suites_index3([{TestName,[LastLogDir|OldDirs]}|Rest],
 	end,
     case make_one_index_entry(TestName, LastLogDir, Label,
 			      {true,OldDirs}, Missing, undefined) of
-	{Result1,Succ,Fail,USkip,ASkip,NotBuilt,URIs} ->
+	{Result1,Succ,Fail,USkip,ASkip,NotBuilt,URIs,_ElapsedTime} ->
 	    %% for backwards compatibility
 	    AutoSkip1 = case catch AutoSkip+ASkip of
 			    {'EXIT',_} -> undefined;
@@ -2860,7 +2900,7 @@ make_all_suites_index3([_|Rest], Result, TotSucc, TotFail, UserSkip, AutoSkip,
 make_all_suites_index3([], Result, TotSucc, TotFail, UserSkip, AutoSkip, 
 		       TotNotBuilt, _, TempData) ->
     {ok, [Result|total_row(TotSucc, TotFail, UserSkip, AutoSkip,
-			   TotNotBuilt,true)], 
+			   TotNotBuilt,undefined,true)], 
      {TotSucc,TotFail,UserSkip,AutoSkip,TotNotBuilt}, lists:reverse(TempData)}.
 
 
@@ -2911,7 +2951,7 @@ make_all_suites_ix_temp1([{TestName,Label,Missing,LastLogDirData,OldDirs}|Rest],
     end;
 make_all_suites_ix_temp1([], Result, TotSucc, TotFail, UserSkip, AutoSkip,
 			 TotNotBuilt) ->
-    [Result|total_row(TotSucc, TotFail, UserSkip, AutoSkip, TotNotBuilt, true)].
+    [Result|total_row(TotSucc, TotFail, UserSkip, AutoSkip, TotNotBuilt, undefined, true)].
 
 make_one_ix_entry_temp(TestName, {LogDir,Summary,URIs}, Label, All, Missing) ->
     case Summary of
@@ -2920,7 +2960,7 @@ make_one_ix_entry_temp(TestName, {LogDir,Summary,URIs}, Label, All, Missing) ->
 	    {NewResult,URIs1} = make_one_index_entry1(TestName, LogDir, Label,
 						      Succ, Fail,
 						      UserSkip, AutoSkip,
-						      NotBuilt, All, temp, URIs),
+						      NotBuilt, All, temp, URIs, undefined),
 	    {NewResult,Succ,Fail,UserSkip,AutoSkip,NotBuilt,URIs1};
 	error ->
 	    error
diff --git a/lib/common_test/src/test_server_ctrl.erl b/lib/common_test/src/test_server_ctrl.erl
index 276213d5b8..3ddcb2d2ca 100644
--- a/lib/common_test/src/test_server_ctrl.erl
+++ b/lib/common_test/src/test_server_ctrl.erl
@@ -1123,7 +1123,8 @@ init_tester(Mod, Func, Args, Dir, Name, {_,_,MinLev}=Levels,
 				 {auto_nl,not lists:member(no_nl, LogOpts)},
 				 {reject_io_reqs,RejectIoReqs}]),
     group_leader(test_server_io:get_gl(true), self()),
-    {TimeMy,Result} = ts_tc(Mod, Func, Args),
+    {ElapsedTime,Result} = ts_tc(Mod, Func, Args),
+    print(major, "=elapsed_time  ~w", [ElapsedTime]),
     set_io_buffering(undefined),
     test_server_io:set_job_name(undefined),
     catch stop_extra_tools(StartedExtraTools),
@@ -1128,7 +1129,7 @@ init_tester(Mod, Func, Args, Dir, Name, {_,_,MinLev}=Levels,
 	    report_severe_error(Reason),
 	    print(1, "EXIT, reason ~tp", [Reason])
     end,
-    ElapsedTimeSeconds = TimeMy/1000000,
+    ElapsedTimeSeconds = ElapsedTime/1000000,
     SuccessStr =
 	case get(test_server_failed) of
 	    0 -> "Ok";
-- 
2.35.3

Places

File 7561-Add-elapsed-time-to-index.html.patch of Package erlang (Revision 0c95bdcb413813ad538c04f6e313b575)

Places