aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2018-06-11 19:53:00 +0200
committerSiri Hansen <[email protected]>2018-06-12 14:07:57 +0200
commite15b8683b041330ce36c86729f72d7c0922a1844 (patch)
tree46396775d1da77c2cc6bf23d51f60f96eb10163a
parent686a45b34520c84d9ebfab427a036fa2021371b9 (diff)
downloadotp-e15b8683b041330ce36c86729f72d7c0922a1844.tar.gz
otp-e15b8683b041330ce36c86729f72d7c0922a1844.tar.bz2
otp-e15b8683b041330ce36c86729f72d7c0922a1844.zip
[logger] Set up priority for processes generatig test bursts
-rw-r--r--lib/kernel/test/logger_disk_log_h_SUITE.erl22
1 files changed, 21 insertions, 1 deletions
diff --git a/lib/kernel/test/logger_disk_log_h_SUITE.erl b/lib/kernel/test/logger_disk_log_h_SUITE.erl
index 5f7b505ecb..5c23960c90 100644
--- a/lib/kernel/test/logger_disk_log_h_SUITE.erl
+++ b/lib/kernel/test/logger_disk_log_h_SUITE.erl
@@ -1,3 +1,22 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2018. All Rights Reserved.
+%%
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
+%%
+%% %CopyrightEnd%
+%%
-module(logger_disk_log_h_SUITE).
-compile(export_all).
@@ -1256,7 +1275,8 @@ send_n_burst(N, seq, Text, Class) ->
send_n_burst(N-1, seq, Text, Class);
send_n_burst(N, {spawn,Ps,TO}, Text, Class) ->
ct:pal("~w processes each sending ~w messages", [Ps,N]),
- PerProc = fun() ->
+ PerProc = fun() ->
+ process_flag(priority,high),
send_n_burst(N, seq, Text, Class)
end,
MRefs = [begin if TO == 0 -> ok; true -> timer:sleep(TO) end,