aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2010-09-14 10:46:02 +0200
committerLukas Larsson <[email protected]>2010-12-06 10:41:42 +0100
commit7a6607d6326d93a92d701d0b505a48f32ed68d10 (patch)
tree37d4d02d689019c90946fb78f58009e881d47742 /lib/common_test/src
parent1ad422e1a745f5e20beb4a3612c499ec2472530d (diff)
downloadotp-7a6607d6326d93a92d701d0b505a48f32ed68d10.tar.gz
otp-7a6607d6326d93a92d701d0b505a48f32ed68d10.tar.bz2
otp-7a6607d6326d93a92d701d0b505a48f32ed68d10.zip
Fix so that groups can return external test cases, i.e.
groups() -> [{test, [sequence], [{other_suite, all}]}].
Diffstat (limited to 'lib/common_test/src')
-rw-r--r--lib/common_test/src/ct_framework.erl5
1 files changed, 5 insertions, 0 deletions
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";