diff options
| author | Peter Andersson <[email protected]> | 2016-03-08 15:23:24 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2016-03-08 15:23:24 +0100 |
| commit | d524390a550b9c43d628ea140a665b0e62aa51de (patch) | |
| tree | 415720ceabe96412cd2eec9a61344a7c75d21d74 /lib/test_server/src/ts_install_cth.erl | |
| parent | 08cbad5d41cc4a2616ba3294145bedf02b239a9b (diff) | |
| parent | 13051baf9f4844d4236f221311f03135144ade88 (diff) | |
| download | otp-d524390a550b9c43d628ea140a665b0e62aa51de.tar.gz otp-d524390a550b9c43d628ea140a665b0e62aa51de.tar.bz2 otp-d524390a550b9c43d628ea140a665b0e62aa51de.zip | |
Merge branch 'peppe/common_test/cth_improvements' into maint
* peppe/common_test/cth_improvements:
Add missing internal hook functions
Fix remaining issues
Update ct_hooks test suites
Introduce new CT hook functions
OTP-13242
Diffstat (limited to 'lib/test_server/src/ts_install_cth.erl')
| -rw-r--r-- | lib/test_server/src/ts_install_cth.erl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/test_server/src/ts_install_cth.erl b/lib/test_server/src/ts_install_cth.erl index ec0d54ccde..0462e62611 100644 --- a/lib/test_server/src/ts_install_cth.erl +++ b/lib/test_server/src/ts_install_cth.erl @@ -41,6 +41,8 @@ -export([post_end_per_group/4]). -export([pre_init_per_testcase/3]). +-export([post_init_per_testcase/4]). +-export([pre_end_per_testcase/3]). -export([post_end_per_testcase/4]). -export([on_tc_fail/3]). @@ -181,7 +183,22 @@ post_end_per_group(_Group,_Config,Return,State) -> pre_init_per_testcase(_TC,Config,State) -> {add_node_name(Config, State), State}. +-spec post_init_per_testcase(TC :: atom(), + Config :: config(), + Return :: term(), + State :: #state{}) -> + {ok | skip_or_fail(), NewState :: #state{}}. +post_init_per_testcase(_TC,_Config,Return,State) -> + {Return, State}. + %% @doc Called after each test case. +-spec pre_end_per_testcase(TC :: atom(), + Config :: config(), + State :: #state{}) -> + {config() | skip_or_fail(), NewState :: #state{}}. +pre_end_per_testcase(_TC,Config,State) -> + {Config, State}. + -spec post_end_per_testcase(TC :: atom(), Config :: config(), Return :: term(), |