diff options
| author | Peter Andersson <peppe@erlang.org> | 2017-12-07 12:05:30 +0100 |
|---|---|---|
| committer | Peter Andersson <peppe@erlang.org> | 2018-01-26 10:55:06 +0100 |
| commit | addfce8dd629fd7807eae95086ecbf9686feee49 (patch) | |
| tree | fcec4808c81dc54bd0b973a28c5026f4fb884f49 | |
| parent | b171521e68262b9a830e8b8dd98467097d283753 (diff) | |
| download | erlang-addfce8dd629fd7807eae95086ecbf9686feee49.tar.gz | |
Fix skip_groups option in combination with all suites in test spec
| -rw-r--r-- | lib/common_test/src/ct_testspec.erl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/common_test/src/ct_testspec.erl b/lib/common_test/src/ct_testspec.erl index bb445bb0d2..bd3755722f 100644 --- a/lib/common_test/src/ct_testspec.erl +++ b/lib/common_test/src/ct_testspec.erl @@ -1425,7 +1425,12 @@ skip_groups1(Suite,Groups,Cmt,Suites0) -> GrAndCases1 = GrAndCases0 ++ SkipGroups, insert_in_order({Suite,GrAndCases1},Suites0,replace); false -> - insert_in_order({Suite,SkipGroups},Suites0,replace) + case Suites0 of + [{all,_}=All|Skips]-> + [All|Skips++[{Suite,SkipGroups}]]; + _ -> + insert_in_order({Suite,SkipGroups},Suites0,replace) + end end. skip_cases(Node,Dir,Suite,Cases,Cmt,Tests,false) when is_list(Cases) -> |