diff options
author | Peter Andersson <peppe@erlang.org> | 2012-11-23 15:11:20 +0100 |
---|---|---|
committer | Peter Andersson <peppe@erlang.org> | 2012-11-23 15:11:20 +0100 |
commit | 561d818c5b63198565a66644272d6037e6d938bc (patch) | |
tree | b878a0b24901efeb7b66a6d7972570e27e30cbaf | |
parent | 4c4c78734e5376264e6fca95318ae0e45ce34b37 (diff) | |
download | otp-561d818c5b63198565a66644272d6037e6d938bc.tar.gz otp-561d818c5b63198565a66644272d6037e6d938bc.tar.bz2 otp-561d818c5b63198565a66644272d6037e6d938bc.zip |
Fix silly bug
-rw-r--r-- | lib/common_test/src/ct_groups.erl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/common_test/src/ct_groups.erl b/lib/common_test/src/ct_groups.erl index 24ca3826a8..74ab5e5439 100644 --- a/lib/common_test/src/ct_groups.erl +++ b/lib/common_test/src/ct_groups.erl @@ -176,7 +176,7 @@ find(Mod, GrNames, all, [{M,TC} | 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) == 2) and (hd(TC) /= group)) -> + ((size(TC) == 2) and (element(1,TC) /= group)) -> Case = if is_atom(TC) -> Tuple = {Mod,TC}, |