diff options
| author | Peter Andersson <[email protected]> | 2012-11-03 00:01:53 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2012-11-19 11:29:07 +0100 |
| commit | 0139043d48c692c0f0835d389f4e6ecaa38e8692 (patch) | |
| tree | a7590eae2f9e41c9f98ef857b1787bce2c1b601b /lib/common_test/src/ct_testspec.erl | |
| parent | 41d6a59fb11c65da9edcf97551b19cbdbf00646f (diff) | |
| download | otp-0139043d48c692c0f0835d389f4e6ecaa38e8692.tar.gz otp-0139043d48c692c0f0835d389f4e6ecaa38e8692.tar.bz2 otp-0139043d48c692c0f0835d389f4e6ecaa38e8692.zip | |
Implement new group search functionality
OTP-10466
Diffstat (limited to 'lib/common_test/src/ct_testspec.erl')
| -rw-r--r-- | lib/common_test/src/ct_testspec.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/common_test/src/ct_testspec.erl b/lib/common_test/src/ct_testspec.erl index a8b67d0329..321af66dbb 100644 --- a/lib/common_test/src/ct_testspec.erl +++ b/lib/common_test/src/ct_testspec.erl @@ -1062,13 +1062,13 @@ insert_groups1(Suite,Groups,Suites0) -> insert_groups2(_Groups,all) -> all; -insert_groups2([Group={GrName,Cases}|Groups],GrAndCases) -> - case lists:keysearch(GrName,1,GrAndCases) of - {value,{GrName,all}} -> +insert_groups2([Group={Gr,Cases}|Groups],GrAndCases) -> + case lists:keysearch(Gr,1,GrAndCases) of + {value,{Gr,all}} -> GrAndCases; - {value,{GrName,Cases0}} -> + {value,{Gr,Cases0}} -> Cases1 = insert_in_order(Cases,Cases0), - insert_groups2(Groups,insert_in_order({GrName,Cases1},GrAndCases)); + insert_groups2(Groups,insert_in_order({Gr,Cases1},GrAndCases)); false -> insert_groups2(Groups,insert_in_order(Group,GrAndCases)) end; |