diff options
author | Peter Andersson <peppe@erlang.org> | 2013-11-29 22:52:35 +0100 |
---|---|---|
committer | Peter Andersson <peppe@erlang.org> | 2013-11-29 22:52:35 +0100 |
commit | 8b1fddd13a95d0232cfc08f529632d58eb9f4fe6 (patch) | |
tree | 2964aba3a2cc5087c9f6a8670921a2e405b9b82d /lib/common_test/src | |
parent | ac7902caa784d4f4c73eb7291ab4736a75ad13a4 (diff) | |
download | otp-8b1fddd13a95d0232cfc08f529632d58eb9f4fe6.tar.gz otp-8b1fddd13a95d0232cfc08f529632d58eb9f4fe6.tar.bz2 otp-8b1fddd13a95d0232cfc08f529632d58eb9f4fe6.zip |
Fix CT hook pre_end_per_group causing crash when returning {skip,Reason}
OTP-11409
Diffstat (limited to 'lib/common_test/src')
-rw-r--r-- | lib/common_test/src/cth_log_redirect.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/common_test/src/cth_log_redirect.erl b/lib/common_test/src/cth_log_redirect.erl index 8fed341600..61700a2032 100644 --- a/lib/common_test/src/cth_log_redirect.erl +++ b/lib/common_test/src/cth_log_redirect.erl @@ -73,7 +73,7 @@ pre_init_per_group(Group, Config, State) -> set_curr_func({group,Group,init_per_group}, Config), {Config, State}. -post_init_per_group(Group, Config, Result, tc_log_async) -> +post_init_per_group(Group, Config, Result, tc_log_async) when is_list(Config) -> case lists:member(parallel,proplists:get_value( tc_group_properties,Config,[])) of true -> @@ -154,7 +154,8 @@ handle_info(_, State) -> handle_call(flush,State) -> {ok, ok, State}; -handle_call({set_curr_func,{group,Group,Conf},Config}, State) -> +handle_call({set_curr_func,{group,Group,Conf},Config}, + State) when is_list(Config) -> Parallel = case proplists:get_value(tc_group_properties, Config) of undefined -> false; Props -> lists:member(parallel, Props) @@ -162,6 +163,10 @@ handle_call({set_curr_func,{group,Group,Conf},Config}, State) -> {ok, ok, State#eh_state{curr_group = Group, curr_func = Conf, parallel_tcs = Parallel}}; +handle_call({set_curr_func,{group,Group,Conf},_SkipOrFail}, State) -> + {ok, ok, State#eh_state{curr_group = Group, + curr_func = Conf, + parallel_tcs = false}}; handle_call({set_curr_func,{group,undefined},_Config}, State) -> {ok, ok, State#eh_state{curr_group = undefined, curr_func = undefined, |