summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/diameter/test/diameter_traffic_SUITE.erl14
1 files changed, 5 insertions, 9 deletions
diff --git a/lib/diameter/test/diameter_traffic_SUITE.erl b/lib/diameter/test/diameter_traffic_SUITE.erl
index e5c35be9ca..452bd28333 100644
--- a/lib/diameter/test/diameter_traffic_SUITE.erl
+++ b/lib/diameter/test/diameter_traffic_SUITE.erl
@@ -305,7 +305,8 @@ names() ->
S <- ?STRING_DECODES,
ST <- ?CALLBACKS,
SS <- ?SENDERS,
- CS <- ?SENDERS].
+ CS <- ?SENDERS,
+ ?SKIP =< rand:uniform()].
names(Names, []) ->
[N || N <- Names,
@@ -336,14 +337,9 @@ init_per_group(_) ->
init_per_group(Name, Config)
when Name == shuffle;
Name == parallel ->
- case rand:uniform() < ?SKIP of
- true ->
- {skip, random};
- false ->
- start_services(Config),
- add_transports(Config),
- replace({sleep, Name == parallel}, Config)
- end;
+ start_services(Config),
+ add_transports(Config),
+ replace({sleep, Name == parallel}, Config);
init_per_group(sctp = Name, Config) ->
{_, Sctp} = lists:keyfind(Name, 1, Config),