diff options
author | Peter Andersson <[email protected]> | 2010-08-06 00:26:32 +0200 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2010-09-02 14:44:54 +0200 |
commit | 46996acf45fb82112990c8bb2316fb48f8f01b99 (patch) | |
tree | 95c4b635ccc9b8406d37affc564af5d0b3c023b9 /lib/common_test/test/ct_sequence_1_SUITE_data | |
parent | 8012586a816ad0509d137c4443bee97e6ff84146 (diff) | |
download | otp-46996acf45fb82112990c8bb2316fb48f8f01b99.tar.gz otp-46996acf45fb82112990c8bb2316fb48f8f01b99.tar.bz2 otp-46996acf45fb82112990c8bb2316fb48f8f01b99.zip |
Add test cases to sequence suite
Diffstat (limited to 'lib/common_test/test/ct_sequence_1_SUITE_data')
-rw-r--r-- | lib/common_test/test/ct_sequence_1_SUITE_data/subgroups_1_SUITE.erl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lib/common_test/test/ct_sequence_1_SUITE_data/subgroups_1_SUITE.erl b/lib/common_test/test/ct_sequence_1_SUITE_data/subgroups_1_SUITE.erl index a25dbe772d..b177b5d7d1 100644 --- a/lib/common_test/test/ct_sequence_1_SUITE_data/subgroups_1_SUITE.erl +++ b/lib/common_test/test/ct_sequence_1_SUITE_data/subgroups_1_SUITE.erl @@ -25,7 +25,8 @@ all() -> [{group, subgroup_return_fail}, {group, subgroup_init_fail}, - {group, subgroup_after_failed_case}]. + {group, subgroup_after_failed_case}, + {group, case_after_failed_subgroup}]. groups() -> [{return_fail, [], [failing_tc]}, @@ -36,11 +37,17 @@ groups() -> {subgroup_init_fail, [sequence], [{group, fail_init}, {group, ok_group}]}, - {subgroup_after_failed_case, [sequence], [failing_tc, {group, ok_group}]} + {subgroup_after_failed_case, [sequence], [failing_tc, {group, ok_group}]}, + + {case_after_subgroup_return_fail, [sequence], [{group, return_fail}, ok_tc]}, + + {case_after_subgroup_fail_init, [sequence], [{group, fail_init}, ok_tc]} ]. failed_subgroup(subgroup_return_fail) -> return_fail; failed_subgroup(subgroup_init_fail) -> fail_init; +failed_subgroup(case_after_subgroup_return_fail) -> return_fail; +failed_subgroup(case_after_subgroup_fail_init) -> fail_init; failed_subgroup(_) -> undefined. init_per_suite(Config) -> @@ -64,7 +71,9 @@ end_per_group(subgroup_after_failed_case, Config) -> {return_group_result,failed}; end_per_group(Group, Config) when Group == subgroup_return_fail; - Group == subgroup_init_fail -> + Group == subgroup_init_fail; + Group == case_after_subgroup_return_fail; + Group == case_after_subgroup_fail_init -> ct:comment(Group), Status = ?config(tc_group_result, Config), Failed = proplists:get_value(failed, Status), |