diff options
Diffstat (limited to 'lib/common_test/src/ct_groups.erl')
-rw-r--r-- | lib/common_test/src/ct_groups.erl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/common_test/src/ct_groups.erl b/lib/common_test/src/ct_groups.erl index ee851d5103..2c4b7a383e 100644 --- a/lib/common_test/src/ct_groups.erl +++ b/lib/common_test/src/ct_groups.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2021. All Rights Reserved. +%% Copyright Ericsson AB 2004-2023. 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. @@ -191,8 +191,8 @@ find(Mod, GrNames, all, [{testcase,TC,[Prop]} | Gs], Known, %% Check if test case should be saved find(Mod, GrNames, TCs, [TC | Gs], Known, Defs, FindAll) when is_atom(TC) orelse - ((size(TC) == 3) andalso (element(1,TC) == testcase)) orelse - ((size(TC) == 2) and (element(1,TC) /= group)) -> + ((tuple_size(TC) == 3) andalso (element(1,TC) == testcase)) orelse + ((tuple_size(TC) == 2) andalso (element(1,TC) /= group)) -> Case = case TC of _ when is_atom(TC) -> @@ -333,8 +333,7 @@ modify_tc_list1(GrSpecTs, TSCs) -> false -> [] end end; - (Test) when is_tuple(Test), - (size(Test) > 2) -> + (Test) when tuple_size(Test) > 2 -> [Test]; (Test={group,_}) -> [Test]; |