Merge branch 'peppe/common_test/change_pre_post_io_test_timing' into maint

* peppe/common_test/change_pre_post_io_test_timing:
  Modify test timing by enabling time multiplier and scaling

OTP-12574

2 files changed, 18 insertions, 8 deletions

diff --git a/lib/common_test/test/ct_pre_post_test_io_SUITE.erl b/lib/common_test/test/ct_pre_post_test_io_SUITE.erl
index 5de1ecc2bd..1e6018f442 100644
--- a/lib/common_test/test/ct_pre_post_test_io_SUITE.erl
+++ b/lib/common_test/test/ct_pre_post_test_io_SUITE.erl
@@ -91,27 +91,27 @@ pre_post_io(Config) ->
     spawn(fun() ->
 		  ct:pal("CONTROLLER: Started!", []),
 		  %% --- test run 1 ---
-		  timer:sleep(3000),
+		  ct:sleep(3000),
 		  ct:pal("CONTROLLER: Handle remote events = true", []),
 		  ok = ct_test_support:ct_rpc({cth_log_redirect,
 					       handle_remote_events,
 					       [true]}, Config),
-		  timer:sleep(2000),
+		  ct:sleep(2000),
 		  ct:pal("CONTROLLER: Proceeding with test run #1!", []),
 		  ok = ct_test_support:ct_rpc({cth_ctrl,proceed,[]}, Config),
-		  timer:sleep(6000),
+		  ct:sleep(6000),
 		  ct:pal("CONTROLLER: Proceeding with shutdown #1!", []),
 		  ok = ct_test_support:ct_rpc({cth_ctrl,proceed,[]}, Config),
 		  %% --- test run 2 ---
-		  timer:sleep(3000),
+		  ct:sleep(3000),
 		  ct:pal("CONTROLLER: Handle remote events = true", []),
 		  ok = ct_test_support:ct_rpc({cth_log_redirect,
 					       handle_remote_events,
 					       [true]}, Config),
-		  timer:sleep(2000),
+		  ct:sleep(2000),
 		  ct:pal("CONTROLLER: Proceeding with test run #2!", []),
 		  ok = ct_test_support:ct_rpc({cth_ctrl,proceed,[]}, Config),
-		  timer:sleep(6000),
+		  ct:sleep(6000),
 		  ct:pal("CONTROLLER: Proceeding with shutdown #2!", []),
 		  ok = ct_test_support:ct_rpc({cth_ctrl,proceed,[]}, Config)
 	  end),
diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl
index 746469584d..6abca08452 100644
--- a/lib/common_test/test/ct_test_support.erl
+++ b/lib/common_test/test/ct_test_support.erl
@@ -51,12 +51,12 @@ init_per_suite(Config) ->
     init_per_suite(Config, 50).
 
 init_per_suite(Config, Level) ->
+    ScaleFactor = test_server:timetrap_scale_factor(),
     case os:type() of
 	{win32, _} ->
 	    %% Extend timeout to 1 hour for windows as starting node
 	    %% can take a long time there
-	    test_server:timetrap( 60*60*1000 * 
-				      test_server:timetrap_scale_factor());
+	    test_server:timetrap( 60*60*1000 * ScaleFactor );
 	_ ->
 	    ok
     end,
@@ -67,6 +67,16 @@ init_per_suite(Config, Level) ->
 	_ ->
 	    ok
     end,
+
+    {Mult,Scale} = test_server_ctrl:get_timetrap_parameters(),
+    test_server:format(Level, "Timetrap multiplier: ~w~n", [Mult]),
+    if Scale == true ->
+	    test_server:format(Level, "Timetrap scale factor: ~w~n",
+			       [ScaleFactor]);
+       true ->
+	    ok
+    end,
+
     start_slave(Config, Level).
 
 start_slave(Config, Level) ->