aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src/ct_run.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/common_test/src/ct_run.erl')
-rw-r--r--lib/common_test/src/ct_run.erl33
1 files changed, 16 insertions, 17 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl
index 2dd6ba08aa..4ec3ac589d 100644
--- a/lib/common_test/src/ct_run.erl
+++ b/lib/common_test/src/ct_run.erl
@@ -2483,23 +2483,22 @@ get_all_testcases(Suite) ->
Error;
SuiteCases ->
Cases = [C || {_S,C} <- SuiteCases],
- Cases1 =
- try Suite:sequences() of
- [] ->
- Cases;
- Seqs ->
- TCs1 = lists:flatten([TCs || {_,TCs} <- Seqs]),
- lists:reverse(
- lists:foldl(fun(TC, Acc) ->
- case lists:member(TC, Acc) of
- true -> Acc;
- false -> [TC | Acc]
- end
- end, [], Cases ++ TCs1))
- catch
- _:_ ->
- Cases
- end
+ try Suite:sequences() of
+ [] ->
+ Cases;
+ Seqs ->
+ TCs1 = lists:flatten([TCs || {_,TCs} <- Seqs]),
+ lists:reverse(
+ lists:foldl(fun(TC, Acc) ->
+ case lists:member(TC, Acc) of
+ true -> Acc;
+ false -> [TC | Acc]
+ end
+ end, [], Cases ++ TCs1))
+ catch
+ _:_ ->
+ Cases
+ end
catch
_:Error ->
{error,Error}