diff options
author | Siri Hansen <[email protected]> | 2019-05-20 15:38:26 +0200 |
---|---|---|
committer | Siri Hansen <[email protected]> | 2019-06-17 08:57:52 +0200 |
commit | f2fa395a6e83d5a5271a296886467e8fef2e0cff (patch) | |
tree | 857c73f9568f3218019b1504abcf17813a50a37d /lib/common_test/src/test_server.erl | |
parent | 9127de8d0204755a7a95b674e77c6aa0583efce0 (diff) | |
download | otp-f2fa395a6e83d5a5271a296886467e8fef2e0cff.tar.gz otp-f2fa395a6e83d5a5271a296886467e8fef2e0cff.tar.bz2 otp-f2fa395a6e83d5a5271a296886467e8fef2e0cff.zip |
[ct] Allow post_init_per_testcase to change skip to fail
Diffstat (limited to 'lib/common_test/src/test_server.erl')
-rw-r--r-- | lib/common_test/src/test_server.erl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/lib/common_test/src/test_server.erl b/lib/common_test/src/test_server.erl index 756cd4d692..588396f101 100644 --- a/lib/common_test/src/test_server.erl +++ b/lib/common_test/src/test_server.erl @@ -1364,23 +1364,29 @@ do_end_tc_call(Mod, IPTC={init_per_testcase,Func}, Res, Return) -> {NOk,_} when NOk == auto_skip; NOk == fail; NOk == skip ; NOk == skipped -> {_,Args} = Res, - IPTCEndRes = + {NewConfig,IPTCEndRes} = case do_end_tc_call1(Mod, IPTC, Res, Return) of IPTCEndConfig when is_list(IPTCEndConfig) -> - IPTCEndConfig; + {IPTCEndConfig,IPTCEndConfig}; + {failed,RetReason} when Return=:={fail,RetReason} -> + %% Fail reason not changed by framework or hook + {Args,Return}; + {SF,_} = IPTCEndResult when SF=:=skip; SF=:=skipped; + SF=:=fail; SF=:=failed -> + {Args,IPTCEndResult}; _ -> - Args + {Args,Return} end, EPTCInitRes = case do_init_tc_call(Mod,{end_per_testcase_not_run,Func}, - IPTCEndRes,Return) of + NewConfig,IPTCEndRes) of {ok,EPTCInitConfig} when is_list(EPTCInitConfig) -> - {Return,EPTCInitConfig}; + {IPTCEndRes,EPTCInitConfig}; _ -> - {Return,IPTCEndRes} + {IPTCEndRes,NewConfig} end, do_end_tc_call1(Mod, {end_per_testcase_not_run,Func}, - EPTCInitRes, Return); + EPTCInitRes, IPTCEndRes); _Ok -> do_end_tc_call1(Mod, IPTC, Res, Return) end; |