Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
erlang
0872-Reduce-timer-sleep.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0872-Reduce-timer-sleep.patch of Package erlang
From 0acd20f80302b117c6a547d57abaf1c8477aedfd Mon Sep 17 00:00:00 2001 From: Dan Gudmundsson <dgud@erlang.org> Date: Tue, 25 Feb 2020 10:49:43 +0100 Subject: [PATCH 2/2] Reduce timer:sleep Causes test runs to take an unnecessary long time --- lib/common_test/test/ct_repeat_testrun_SUITE.erl | 6 +++--- .../test/ct_repeat_testrun_SUITE_data/a_test/r1_SUITE.erl | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/common_test/test/ct_repeat_testrun_SUITE.erl b/lib/common_test/test/ct_repeat_testrun_SUITE.erl index 9382e4c011..79b9c4d549 100644 --- a/lib/common_test/test/ct_repeat_testrun_SUITE.erl +++ b/lib/common_test/test/ct_repeat_testrun_SUITE.erl @@ -94,9 +94,9 @@ init_per_suite(Config0) -> [Opts3],Config) end), %% The time to compare with here must match the timeout value - %% in the test suite. Accept 30% logging overhead (26 sec total). - if T > 26000000 -> - ct:pal("Timing test took ~w sec (< 27 sec expected). " + %% in the test suite. Accept some overhead + if T > 5000 -> + ct:pal("Timing test took ~w sec (< 5 sec expected). " "Skipping the suite!", [trunc(T/1000000)]), ct_test_support:end_per_suite(Config), 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 1a305b1516..de521a5622 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 @@ -61,7 +61,7 @@ end_per_testcase(_Case, Config) -> %%%----------------------------------------------------------------- %%% Test cases tc1(_Config) -> - ct:sleep(10000), + timer:sleep(1000), ok. tc2(_Config) -> -- 2.16.4
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor