Merge remote-tracking branch 'origin/peppe/common_test/enable_time_scaling' into maint

* origin/peppe/common_test/enable_time_scaling:
  Enable timetrap scaling for all tests

26 files changed, 79 insertions, 79 deletions

diff --git a/lib/common_test/test/ct_config_SUITE_data/config/test/config_dynamic_SUITE.erl b/lib/common_test/test/ct_config_SUITE_data/config/test/config_dynamic_SUITE.erl
index 8ee12a2e4d..c2e06d866f 100644
--- a/lib/common_test/test/ct_config_SUITE_data/config/test/config_dynamic_SUITE.erl
+++ b/lib/common_test/test/ct_config_SUITE_data/config/test/config_dynamic_SUITE.erl
@@ -73,7 +73,7 @@ test_get_known_variable(_)->
 test_localtime_update(_)->
     Seconds = 5,
     LT1 = ct:get_config(localtime),
-    timer:sleep(Seconds*1000),
+    ct:sleep(Seconds*1000),
     LT2 = ct:reload_config(localtime),
     case is_diff_ok(LT1, LT2, Seconds) of
 	{false, Actual, Exp}->
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_12_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_12_SUITE.erl
index 806d3caf72..0ff8659269 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_12_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_12_SUITE.erl
@@ -26,10 +26,10 @@ init_per_testcase(_, Config) ->
     Config.
 
 end_per_testcase(tc2, _Config) ->
-    timer:sleep(2000),
+    ct:sleep(2000),
     exit(this_should_not_be_printed);
 end_per_testcase(tc4, _Config) ->
-    timer:sleep(2000),
+    ct:sleep(2000),
     exit(this_should_not_be_printed);
 end_per_testcase(_, _) ->
     ok.
@@ -42,7 +42,7 @@ tc1() ->
     put('$test_server_framework_test',
 	fun(init_tc, _Default) ->
 		ct:pal("init_tc(~p): Night time...",[self()]),
-		timer:sleep(2000),
+		ct:sleep(2000),
 		ct:pal("init_tc(~p): Day time!",[self()]),
 		exit(this_should_not_be_printed);
 	   (_, Default) -> Default
@@ -67,7 +67,7 @@ tc3(_) ->
     put('$test_server_framework_test',
 	fun(end_tc, _Default) ->
 		ct:pal("end_tc(~p): Night time...",[self()]),
-		timer:sleep(1000),
+		ct:sleep(1000),
 		ct:pal("end_tc(~p): Day time!",[self()]);
 	   (_, Default) -> Default
 	end),
@@ -78,7 +78,7 @@ tc4() ->
     put('$test_server_framework_test',
 	fun(end_tc, _Default) ->
 		ct:pal("end_tc(~p): Night time...",[self()]),
-		timer:sleep(1000),
+		ct:sleep(1000),
 		ct:pal("end_tc(~p): Day time!",[self()]);
 	   (_, Default) -> Default
 	end),
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_13_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_13_SUITE.erl
index c8a3c1d15e..cfc0babb68 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_13_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_13_SUITE.erl
@@ -26,7 +26,7 @@ init_per_suite() ->
     put('$test_server_framework_test',
 	fun(end_tc, _Default) ->
 		ct:pal("end_tc(~p): Night time...",[self()]),
-		timer:sleep(1000),
+		ct:sleep(1000),
 		ct:pal("end_tc(~p): Day time!",[self()]);
 	   (_, Default) -> Default
 	end),
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_14_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_14_SUITE.erl
index 960d0f61b0..54b09e78c6 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_14_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_14_SUITE.erl
@@ -29,7 +29,7 @@ end_per_suite() ->
     put('$test_server_framework_test',
 	fun(end_tc, _Default) ->
 		ct:pal("end_tc(~p): Night time...",[self()]),
-		timer:sleep(1000),
+		ct:sleep(1000),
 		ct:pal("end_tc(~p): Day time!",[self()]);
 	   (_, Default) -> Default
 	end),
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_3_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_3_SUITE.erl
index 08c57887ef..0d93e46501 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_3_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_3_SUITE.erl
@@ -36,7 +36,7 @@ suite() ->
 %% Reason = term()
 %%--------------------------------------------------------------------
 init_per_suite(Config) ->
-    timer:sleep(5000),
+    ct:sleep(5000),
     exit(shouldnt_happen).
 %    Config.
 
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_7_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_7_SUITE.erl
index 9cd5b6ad29..d95f3b235b 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_7_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_7_SUITE.erl
@@ -43,7 +43,7 @@ init_per_suite(Config) ->
 %% Config0 = Config1 = [tuple()]
 %%--------------------------------------------------------------------
 end_per_suite(Config) ->
-    timer:sleep(5000),
+    ct:sleep(5000),
     ok.
 
 %%--------------------------------------------------------------------
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_8_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_8_SUITE.erl
index 25993833d7..d8f0c48034 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_8_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_8_SUITE.erl
@@ -57,7 +57,7 @@ init_per_group(g1, Config) ->
     Config;
 init_per_group(g2, Config) ->
     ct:comment("init_per_group(g2) timeout"),
-    timer:sleep(5000),
+    ct:sleep(5000),
     Config;
 init_per_group(g3, _Config) ->
     badmatch = 42;
@@ -80,7 +80,7 @@ end_per_group(g11, _Config) ->
     ok;
 end_per_group(g12, _Config) ->
     ct:comment("end_per_group(g6) timeout"),
-    timer:sleep(5000),
+    ct:sleep(5000),
     ok;
 end_per_group(_GroupName, _Config) ->
     ok.
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_1_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_1_SUITE.erl
index a98382965f..1451a4119e 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_1_SUITE.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_1_SUITE.erl
@@ -111,7 +111,7 @@ end_per_testcase1(tc2, Config) ->
     ct:pal("end_per_testcase(tc2): ~p", [Config]),
     tc2 = ?config(tc, Config),
     {failed,timetrap_timeout} = ?config(tc_status, Config),
-    timer:sleep(2000);
+    ct:sleep(2000);
 
 end_per_testcase1(tc3, Config) ->
     ct:pal("end_per_testcase(tc3): ~p", [Config]),
@@ -123,7 +123,7 @@ end_per_testcase1(tc4, Config) ->
     ct:pal("end_per_testcase(tc4): ~p", [Config]),
     tc4 = ?config(tc, Config),
     {failed,{testcase_aborted,testing_end_conf}} = ?config(tc_status, Config),
-    timer:sleep(2000);
+    ct:sleep(2000);
 
 end_per_testcase1(tc5, Config) ->
     ct:pal("end_per_testcase(tc5): ~p", [Config]),
@@ -182,29 +182,29 @@ all() ->
     [tc1, tc2, tc3, tc4, tc5, tc6, tc7, tc8, tc9].
 
 tc1(_) ->
-    timer:sleep(2000),
+    ct:sleep(2000),
     ok.
 
 tc2(_) ->
-    timer:sleep(2000).
+    ct:sleep(2000).
 
 tc3(_) ->
     spawn(ct, abort_current_testcase, [testing_end_conf]),
-    timer:sleep(2000),
+    ct:sleep(2000),
     ok.
 
 tc4(_) ->
     spawn(ct, abort_current_testcase, [testing_end_conf]),
-    timer:sleep(2000),
+    ct:sleep(2000),
     ok.
 
 tc5(_) ->
-    timer:sleep(2000),
+    ct:sleep(2000),
     ok.
 
 tc6(_) ->
     spawn(ct, abort_current_testcase, [testing_end_conf]),
-    timer:sleep(2000).
+    ct:sleep(2000).
 
 tc7(_) ->
     sleep(2000),
@@ -220,5 +220,5 @@ tc9(_) ->
 
 %%%-----------------------------------------------------------------
 sleep(T) ->
-    timer:sleep(T),
+    ct:sleep(T),
     ok.
diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_helper.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_helper.erl
index 1389acca11..a9ea0be847 100644
--- a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_helper.erl
+++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_helper.erl
@@ -3,5 +3,5 @@
 -export([sleep/1]).
 
 sleep(T) ->
-    timer:sleep(T),
+    ct:sleep(T),
     ok.
diff --git a/lib/common_test/test/ct_gen_conn_SUITE_data/conn_SUITE.erl b/lib/common_test/test/ct_gen_conn_SUITE_data/conn_SUITE.erl
index 1344878675..96dd80e4e8 100644
--- a/lib/common_test/test/ct_gen_conn_SUITE_data/conn_SUITE.erl
+++ b/lib/common_test/test/ct_gen_conn_SUITE_data/conn_SUITE.erl
@@ -73,23 +73,23 @@ handles_to_multi_conn_pids(_Config) ->
     {true,true} = {is_process_alive(Handle3),is_process_alive(ConnPid3)},
     
     ok = proto:close(Handle1),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle1),is_process_alive(ConnPid1)},
     {true,true} = {is_process_alive(Handle2),is_process_alive(ConnPid2)},
 
     ok = proto:kill_conn_proc(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     {true,false} = {is_process_alive(Handle2),is_process_alive(ConnPid2)},
     ConnPid2x = ct_gen_conn:get_conn_pid(Handle2),
     true = is_process_alive(ConnPid2x),
 
     ok = proto:close(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle2),is_process_alive(ConnPid2x)},
 
     application:set_env(ct_test, reconnect, false),
     ok = proto:kill_conn_proc(Handle3),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle3),is_process_alive(ConnPid3)},
 
     ok.
@@ -116,23 +116,23 @@ handles_to_single_conn_pids(_Config) ->
     ct:pal("CONNS = ~n~p", [Conns]),
 
     ok = proto:close(Handle1),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,true} = {is_process_alive(Handle1),is_process_alive(ConnPid)},
 
     ok = proto:kill_conn_proc(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     NewConnPid = ct_gen_conn:get_conn_pid(Handle2),
     NewConnPid = ct_gen_conn:get_conn_pid(Handle3),
     true = is_process_alive(Handle2),
     true = is_process_alive(Handle3),
 
     ok = proto:close(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,true} = {is_process_alive(Handle2),is_process_alive(NewConnPid)},
 
     application:set_env(ct_test, reconnect, false),
     ok = proto:kill_conn_proc(Handle3),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle3),is_process_alive(NewConnPid)},    
 
     ok.
@@ -158,29 +158,29 @@ names_to_multi_conn_pids(_Config) ->
     Handle1 = proto:open(mconn1),
 
     ok = proto:close(mconn1),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle1),is_process_alive(ConnPid1)},
 
     ok = proto:kill_conn_proc(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     Handle2 = proto:open(mconn2),  % should've been reconnected already
     {true,false} = {is_process_alive(Handle2),is_process_alive(ConnPid2)},
     ConnPid2x = ct_gen_conn:get_conn_pid(Handle2),
     true = is_process_alive(ConnPid2x),
 
     ok = proto:close(mconn2),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle2),is_process_alive(ConnPid2x)},
     Handle2y = proto:open(mconn2),
     ConnPid2y = ct_gen_conn:get_conn_pid(Handle2y),
     {true,true} = {is_process_alive(Handle2y),is_process_alive(ConnPid2y)},
     ok = proto:close(mconn2),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle2y),is_process_alive(ConnPid2y)},
 
     application:set_env(ct_test, reconnect, false),
     ok = proto:kill_conn_proc(Handle3),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle3),is_process_alive(ConnPid3)},
 
     ok.
@@ -211,11 +211,11 @@ names_to_single_conn_pids(_Config) ->
     ct:pal("CONNS on ~p = ~n~p", [ConnPid,Conns]),
 
     ok = proto:close(sconn1),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,true} = {is_process_alive(Handle1),is_process_alive(ConnPid)},
 
     ok = proto:kill_conn_proc(Handle2),
-    timer:sleep(100),
+    ct:sleep(100),
     {true,false} = {is_process_alive(Handle2),is_process_alive(ConnPid)},
     Handle2 = proto:open(sconn2),  % should've been reconnected already
     NewConnPid = ct_gen_conn:get_conn_pid(Handle2),
@@ -227,12 +227,12 @@ names_to_single_conn_pids(_Config) ->
     ct:pal("CONNS on ~p = ~n~p", [NewConnPid,Conns1]),
 
     ok = proto:close(sconn2),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,true} = {is_process_alive(Handle2),is_process_alive(NewConnPid)},
 
     application:set_env(ct_test, reconnect, false),
     ok = proto:kill_conn_proc(Handle3),
-    timer:sleep(100),
+    ct:sleep(100),
     {false,false} = {is_process_alive(Handle3),is_process_alive(NewConnPid)},
 
     ok.
diff --git a/lib/common_test/test/ct_group_leader_SUITE_data/group_leader_SUITE.erl b/lib/common_test/test/ct_group_leader_SUITE_data/group_leader_SUITE.erl
index 804f722081..bfdc78639e 100644
--- a/lib/common_test/test/ct_group_leader_SUITE_data/group_leader_SUITE.erl
+++ b/lib/common_test/test/ct_group_leader_SUITE_data/group_leader_SUITE.erl
@@ -258,14 +258,14 @@ gen_io(Label, N, Acc) ->
 %% (via ct logging functions) from an external process which has a
 %% different group leader than the test cases.
 unexp1(Config) ->
-    timer:sleep(1000),
+    ct:sleep(1000),
     gen_unexp_io(),
-    timer:sleep(1000),
+    ct:sleep(1000),
     check_unexp_io(Config),
     ok.
 
 unexp2(_) ->
-    timer:sleep(2000),
+    ct:sleep(2000),
     ok.
 
 gen_unexp_io() ->
diff --git a/lib/common_test/test/ct_groups_test_1_SUITE_data/groups_1/test/groups_12_SUITE.erl b/lib/common_test/test/ct_groups_test_1_SUITE_data/groups_1/test/groups_12_SUITE.erl
index ec90ef95d1..6f49f9a957 100644
--- a/lib/common_test/test/ct_groups_test_1_SUITE_data/groups_1/test/groups_12_SUITE.erl
+++ b/lib/common_test/test/ct_groups_test_1_SUITE_data/groups_1/test/groups_12_SUITE.erl
@@ -278,7 +278,7 @@ testcase_5a(Config) ->
     %% increase chance the done event will come
     %% during execution of subgroup (could be
     %% tricky to handle)
-    timer:sleep(3),
+    ct:sleep(3),
     ok.
 testcase_5b() -> 
     [].
diff --git a/lib/common_test/test/ct_groups_test_2_SUITE_data/groups_2/groups_22_SUITE.erl b/lib/common_test/test/ct_groups_test_2_SUITE_data/groups_2/groups_22_SUITE.erl
index 154c676d7e..80bb5ba69b 100644
--- a/lib/common_test/test/ct_groups_test_2_SUITE_data/groups_2/groups_22_SUITE.erl
+++ b/lib/common_test/test/ct_groups_test_2_SUITE_data/groups_2/groups_22_SUITE.erl
@@ -293,7 +293,7 @@ testcase_5a(Config) ->
     %% increase chance the done event will come
     %% during execution of subgroup (could be
     %% tricky to handle)
-    timer:sleep(3),
+    ct:sleep(3),
     ok.
 testcase_5b() ->
     [].
diff --git a/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/cth_log_SUITE.erl b/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/cth_log_SUITE.erl
index 18dd07e87e..80ce248418 100644
--- a/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/cth_log_SUITE.erl
+++ b/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/cth_log_SUITE.erl
@@ -50,7 +50,7 @@ init_per_suite(Config) ->
 end_per_suite(Config) ->
     Gen = proplists:get_value(gen, Config),
     exit(Gen, kill),
-    timer:sleep(100),
+    ct:sleep(100),
     ok.
 
 %%--------------------------------------------------------------------
diff --git a/lib/common_test/test/ct_netconfc_SUITE_data/netconfc1_SUITE.erl b/lib/common_test/test/ct_netconfc_SUITE_data/netconfc1_SUITE.erl
index 6f5db21f57..a145d85b1d 100644
--- a/lib/common_test/test/ct_netconfc_SUITE_data/netconfc1_SUITE.erl
+++ b/lib/common_test/test/ct_netconfc_SUITE_data/netconfc1_SUITE.erl
@@ -218,7 +218,7 @@ hello_required_exists(Config) ->
 
     ?NS:expect_do_reply('close-session',close,ok),
     ?ok = ct_netconfc:close_session(my_named_connection),
-    timer:sleep(500),
+    ct:sleep(500),
 
     %% Then check that it can be used again after the first is closed
     {ok,_Client2} = open_configured_success(my_named_connection,DataDir),
@@ -663,10 +663,10 @@ receive_chunked_data(Config) ->
     %% Spawn a process which will wait a bit for the client to send
     %% the request (below), then order the server to the chunks of the
     %% rpc-reply one by one.
-    spawn(fun() -> timer:sleep(500),?NS:hupp(send,Part1),
-		   timer:sleep(100),?NS:hupp(send,Part2),
-		   timer:sleep(100),?NS:hupp(send,Part3),
-		   timer:sleep(100),?NS:hupp(send,Part4)
+    spawn(fun() -> ct:sleep(500),?NS:hupp(send,Part1),
+		   ct:sleep(100),?NS:hupp(send,Part2),
+		   ct:sleep(100),?NS:hupp(send,Part3),
+		   ct:sleep(100),?NS:hupp(send,Part4)
 	  end),
 
     %% Order server to expect a get - then the process above will make
@@ -711,8 +711,8 @@ timeout_receive_chunked_data(Config) ->
     %% Spawn a process which will wait a bit for the client to send
     %% the request (below), then order the server to the chunks of the
     %% rpc-reply one by one.
-    spawn(fun() -> timer:sleep(500),?NS:hupp(send,Part1),
-		   timer:sleep(100),?NS:hupp(send,Part2)
+    spawn(fun() -> ct:sleep(500),?NS:hupp(send,Part1),
+		   ct:sleep(100),?NS:hupp(send,Part2)
 	  end),
 
     %% Order server to expect a get - then the process above will make
@@ -757,9 +757,9 @@ close_while_waiting_for_chunked_data(Config) ->
     %% Spawn a process which will wait a bit for the client to send
     %% the request (below), then order the server to the chunks of the
     %% rpc-reply one by one.
-    spawn(fun() -> timer:sleep(500),?NS:hupp(send,Part1),
-		   timer:sleep(100),?NS:hupp(send,Part2),
-		   timer:sleep(100),?NS:hupp(kill)
+    spawn(fun() -> ct:sleep(500),?NS:hupp(send,Part1),
+		   ct:sleep(100),?NS:hupp(send,Part2),
+		   ct:sleep(100),?NS:hupp(kill)
 	  end),
 
     %% Order server to expect a get - then the process above will make
@@ -775,7 +775,7 @@ connection_crash(Config) ->
     %% Test that if the test survives killing the connection
     %% process. Earlier this caused ct_util_server to terminate, and
     %% this aborting the complete test run.
-    spawn(fun() -> timer:sleep(500),exit(Client,kill) end),
+    spawn(fun() -> ct:sleep(500),exit(Client,kill) end),
     ?NS:expect(get),
     {error,{closed,killed}}=ct_netconfc:get(Client,{server,[{xmlns,"myns"}],[]}),
     ok.
diff --git a/lib/common_test/test/ct_netconfc_SUITE_data/ns.erl b/lib/common_test/test/ct_netconfc_SUITE_data/ns.erl
index f503825c4e..27da67bd1d 100644
--- a/lib/common_test/test/ct_netconfc_SUITE_data/ns.erl
+++ b/lib/common_test/test/ct_netconfc_SUITE_data/ns.erl
@@ -351,7 +351,7 @@ check_expected(SessionId,ConnRef,Msg) ->
 	    do(ConnRef, Do),
 	    reply(ConnRef,Reply);
 	error ->
-	    timer:sleep(1000),
+	    ct:sleep(1000),
 	    exit({error,{got_unexpected,SessionId,Msg,ets:tab2list(ns_tab)}})
     end.
 
diff --git a/lib/common_test/test/ct_repeat_testrun_SUITE_data/a_test/r1_SUITE.erl b/lib/common_test/test/ct_repeat_testrun_SUITE_data/a_test/r1_SUITE.erl
index 3fd5943691..3d7049a9c4 100644
--- a/lib/common_test/test/ct_repeat_testrun_SUITE_data/a_test/r1_SUITE.erl
+++ b/lib/common_test/test/ct_repeat_testrun_SUITE_data/a_test/r1_SUITE.erl
@@ -68,7 +68,7 @@ end_per_testcase(_Case, Config) ->
 %%%-----------------------------------------------------------------
 %%% Test cases
 tc1(_Config) ->
-    timer:sleep(10000),
+    ct:sleep(10000),
     ok.
 
 tc2(_Config) ->
diff --git a/lib/common_test/test/ct_repeat_testrun_SUITE_data/b_test/r2_SUITE.erl b/lib/common_test/test/ct_repeat_testrun_SUITE_data/b_test/r2_SUITE.erl
index dc9abc2863..e4f6e7dcc1 100644
--- a/lib/common_test/test/ct_repeat_testrun_SUITE_data/b_test/r2_SUITE.erl
+++ b/lib/common_test/test/ct_repeat_testrun_SUITE_data/b_test/r2_SUITE.erl
@@ -68,7 +68,7 @@ end_per_testcase(_Case, Config) ->
 %%%-----------------------------------------------------------------
 %%% Test cases
 tc1(_Config) ->
-    %% timer:sleep(3000),
+    %% ct:sleep(3000),
     ok.
 
 tc2(_Config) ->
diff --git a/lib/common_test/test/ct_shell_SUITE.erl b/lib/common_test/test/ct_shell_SUITE.erl
index 4b8c43d800..70c0ab8127 100644
--- a/lib/common_test/test/ct_shell_SUITE.erl
+++ b/lib/common_test/test/ct_shell_SUITE.erl
@@ -93,7 +93,7 @@ start_interactive(Config) ->
 	    test_server:format(Level,
 			       "ct_util_server not stopped on ~p yet, waiting 5 s...~n",
 			       [CTNode]),
-	    timer:sleep(5000),
+	    ct:sleep(5000),
 	    undefined = rpc:call(CTNode, erlang, whereis, [ct_util_server])
     end,
     Events = ct_test_support:get_events(ERPid, Config),
diff --git a/lib/common_test/test/ct_skip_SUITE_data/skip/test/auto_skip_4_SUITE.erl b/lib/common_test/test/ct_skip_SUITE_data/skip/test/auto_skip_4_SUITE.erl
index 825846cd55..89e202a404 100644
--- a/lib/common_test/test/ct_skip_SUITE_data/skip/test/auto_skip_4_SUITE.erl
+++ b/lib/common_test/test/ct_skip_SUITE_data/skip/test/auto_skip_4_SUITE.erl
@@ -72,7 +72,7 @@ end_per_group(_GroupName, _Config) ->
 %% Reason = term()
 %%--------------------------------------------------------------------
 init_per_testcase(tc1, Config) ->
-    timer:sleep(5000),
+    ct:sleep(5000),
     Config;
 init_per_testcase(_TestCase, Config) ->
     Config.
diff --git a/lib/common_test/test/ct_snmp_SUITE_data/snmp_SUITE.erl b/lib/common_test/test/ct_snmp_SUITE_data/snmp_SUITE.erl
index e20832e1e7..07f7bf02e4 100644
--- a/lib/common_test/test/ct_snmp_SUITE_data/snmp_SUITE.erl
+++ b/lib/common_test/test/ct_snmp_SUITE_data/snmp_SUITE.erl
@@ -117,12 +117,12 @@ break(_Config) ->
 
 start_stop(Config) ->
     ok = ct_snmp:start(Config,snmp1,snmp_app1),
-    timer:sleep(1000),
+    ct:sleep(1000),
     {snmp,_,_} = lists:keyfind(snmp,1,application:which_applications()),
     [_|_] = filelib:wildcard("*/*.conf",?config(priv_dir,Config)),
 
     ok = ct_snmp:stop(Config),
-    timer:sleep(1000),
+    ct:sleep(1000),
     false = lists:keyfind(snmp,1,application:which_applications()),
     [] = filelib:wildcard("*/*.conf",?config(priv_dir,Config)),
     ok.
diff --git a/lib/common_test/test/ct_telnet_SUITE_data/ct_telnet_own_server_SUITE.erl b/lib/common_test/test/ct_telnet_SUITE_data/ct_telnet_own_server_SUITE.erl
index bd5d76266a..1d3f5918d2 100644
--- a/lib/common_test/test/ct_telnet_SUITE_data/ct_telnet_own_server_SUITE.erl
+++ b/lib/common_test/test/ct_telnet_SUITE_data/ct_telnet_own_server_SUITE.erl
@@ -283,14 +283,14 @@ large_string(_) ->
     %% yield the same result as the single request case.
 
     ok = ct_telnet:send(Handle, "echo_sep "++BigString),
-    timer:sleep(1000),
+    ct:sleep(1000),
     {ok,Data1} = ct_telnet:get_data(Handle),
     ct:log("[GET DATA #1] Received ~w chars: ~s",
 	   [length(lists:flatten(Data1)),Data1]),
     VerifyStr = [C || C <- lists:flatten(Data1), C/=$ , C/=$\r, C/=$\n, C/=$>],
 
     ok = ct_telnet:send(Handle, "echo_sep "++BigString),
-    timer:sleep(50),
+    ct:sleep(50),
     {ok,Data2} = ct_telnet:get_data(Handle),
     ct:log("[GET DATA #2] Received ~w chars: ~s", [length(lists:flatten(Data2)),Data2]),
     VerifyStr = [C || C <- lists:flatten(Data2), C/=$ , C/=$\r, C/=$\n, C/=$>],
@@ -316,7 +316,7 @@ server_speaks(_) ->
 				    "echo_no_prompt This is the second message"),
     %% Let ct_telnet_client get an idle timeout. This should print the
     %% two messages to the log. Note that the buffers are not flushed here!
-    timer:sleep(15000),
+    ct:sleep(15000),
     ok = ct_telnet_client:send_data(Backdoor,
 				    "echo_no_prompt This is the third message"),
     {ok,_} = ct_telnet:expect(Handle, ["first.*second.*third"],
@@ -326,7 +326,7 @@ server_speaks(_) ->
     ok = ct_telnet_client:send_data(Backdoor,
 				    "echo_no_prompt This is the fourth message"),
     %% give the server time to respond
-    timer:sleep(2000),
+    ct:sleep(2000),
     %% closing the connection should print last message in log
     ok = ct_telnet:close(Handle),
     ok.  
@@ -338,11 +338,11 @@ server_disconnects(_) ->
     ok = ct_telnet:send(Handle, "disconnect_after 1500"),
     %% wait until the get_data operation (triggered by send/2) times out
     %% before sending the msg
-    timer:sleep(500),
+    ct:sleep(500),
     ok = ct_telnet:send(Handle, "echo_no_prompt This is the message"),
     %% when the server closes the connection, the last message should be
     %% printed in the log
-    timer:sleep(3000),
+    ct:sleep(3000),
     _ = ct_telnet:close(Handle),
     ok.
 
diff --git a/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl b/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl
index 06fa6ac638..d30feb0bd2 100644
--- a/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl
+++ b/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl
@@ -76,7 +76,7 @@ end_per_group(_GroupName, _Config) ->
 %% Reason = term()
 %%--------------------------------------------------------------------
 init_per_testcase(tc1, Config) ->
-    timer:sleep(5000),
+    ct:sleep(5000),
     Config;
 init_per_testcase(tc8, _Config) ->
     {skip,"tc8 skipped"};
@@ -92,7 +92,7 @@ init_per_testcase(_TestCase, Config) ->
 %% Config0 = Config1 = [tuple()]
 %%--------------------------------------------------------------------
 end_per_testcase(tc2, Config) ->
-    timer:sleep(5000);
+    ct:sleep(5000);
 end_per_testcase(tc12, Config) ->
     ct:comment("end_per_testcase(tc12) called!"),
     ct:pal("end_per_testcase(tc12) called!", []),
@@ -146,7 +146,7 @@ tc2(_) ->
     timeout_in_end_per_testcase.
 
 tc3(_) ->
-   timer:sleep(5000).
+   ct:sleep(5000).
 
 tc4(_) ->
     exit(failed_on_purpose).
@@ -186,7 +186,7 @@ gtc2(_) ->
 tc12(_) ->
     F = fun() -> ct:abort_current_testcase('stopping tc12') end,
     spawn(F),
-    timer:sleep(1000),
+    ct:sleep(1000),
     exit(should_have_been_aborted).
 
 tc13(_) ->
diff --git a/lib/common_test/test/ct_testspec_1_SUITE_data/groups_1/groups_12_SUITE.erl b/lib/common_test/test/ct_testspec_1_SUITE_data/groups_1/groups_12_SUITE.erl
index 69c06f9b83..e5de5df1a8 100644
--- a/lib/common_test/test/ct_testspec_1_SUITE_data/groups_1/groups_12_SUITE.erl
+++ b/lib/common_test/test/ct_testspec_1_SUITE_data/groups_1/groups_12_SUITE.erl
@@ -285,7 +285,7 @@ testcase_5a(Config) ->
     %% increase chance the done event will come
     %% during execution of subgroup (could be
     %% tricky to handle)
-    timer:sleep(3),
+    ct:sleep(3),
     ok.
 testcase_5b() ->
     [].
diff --git a/lib/common_test/test/ct_testspec_1_SUITE_data/groups_2/groups_22_SUITE.erl b/lib/common_test/test/ct_testspec_1_SUITE_data/groups_2/groups_22_SUITE.erl
index cd517876df..dcd361d658 100644
--- a/lib/common_test/test/ct_testspec_1_SUITE_data/groups_2/groups_22_SUITE.erl
+++ b/lib/common_test/test/ct_testspec_1_SUITE_data/groups_2/groups_22_SUITE.erl
@@ -278,7 +278,7 @@ testcase_5a(Config) ->
     %% increase chance the done event will come
     %% during execution of subgroup (could be
     %% tricky to handle)
-    timer:sleep(3),
+    ct:sleep(3),
     ok.
 testcase_5b() ->
     [].
diff --git a/lib/common_test/test/telnet_server.erl b/lib/common_test/test/telnet_server.erl
index d25ee62d38..11959c3e12 100644
--- a/lib/common_test/test/telnet_server.erl
+++ b/lib/common_test/test/telnet_server.erl
@@ -59,7 +59,7 @@ init(Opts) ->
     accept(State),
     ok = gen_tcp:close(LSock),
     dbg("telnet_server closed the listen socket ~p\n", [LSock]),
-    timer:sleep(1000),
+    ct:sleep(1000),
     ok.
 
 listen(0, _Port, _Opts) ->
@@ -68,7 +68,7 @@ listen(Retries, Port, Opts) ->
     case gen_tcp:listen(Port, Opts) of
 	{error,eaddrinuse} ->
 	    dbg("Listen port not released, trying again..."),
-	    timer:sleep(5000),
+	    ct:sleep(5000),
 	    listen(Retries-1, Port, Opts);
 	Ok = {ok,_LSock} ->
 	    Ok;
@@ -220,7 +220,7 @@ do_handle_data("echo_sep " ++ Data,State) ->
     Msgs = string:tokens(Data," "),
     lists:foreach(fun(Msg) ->
 			  send(Msg,State),
-			  timer:sleep(10)
+			  ct:sleep(10)
 		  end, Msgs),
     send("\r\n> ",State),
     {ok,State};
@@ -292,7 +292,7 @@ send_loop(T0,T,Data,State) ->
 	    ok;
        true ->
 	    send(Data,State),
-	    timer:sleep(500),
+	    ct:sleep(500),
 	    send_loop(T0,T,Data,State)
     end.