From 7a6607d6326d93a92d701d0b505a48f32ed68d10 Mon Sep 17 00:00:00 2001 From: Lukas Larsson Date: Tue, 14 Sep 2010 10:46:02 +0200 Subject: Fix so that groups can return external test cases, i.e. groups() -> [{test, [sequence], [{other_suite, all}]}]. --- lib/common_test/src/ct_framework.erl | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/common_test/src') diff --git a/lib/common_test/src/ct_framework.erl b/lib/common_test/src/ct_framework.erl index f2ca023cff..3bbb338121 100644 --- a/lib/common_test/src/ct_framework.erl +++ b/lib/common_test/src/ct_framework.erl @@ -770,6 +770,11 @@ find(Mod, Name, TCs, [TC | Gs], Known, Defs, false) when is_atom(TC) -> find(Mod, Name, TCs, [TC | Gs], Known, Defs, true) when is_atom(TC) -> [TC | find(Mod, Name, TCs, Gs, Known, Defs, true)]; +find(Mod, Name, TCs, [{ExternalTC, Case} = TC | Gs], Known, Defs, true) + when is_atom(ExternalTC), + is_atom(Case) -> + [TC | find(Mod, Name, TCs, Gs, Known, Defs, true)]; + find(Mod, _Name, _TCs, [BadTerm | _Gs], Known, _Defs, _Found) -> Where = if length(Known) == 0 -> atom_to_list(Mod)++":groups/0"; -- cgit v1.2.3