diff options
| author | Siri Hansen <[email protected]> | 2012-11-01 16:01:34 +0100 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2012-11-07 12:04:29 +0100 |
| commit | d3ccc1afec78fdfcece724d6f12ee88e284898b7 (patch) | |
| tree | 523a7257468913aa26811b291c983372b2f070c8 | |
| parent | 3c910e0163b5f3485005638381faa99238ed91b4 (diff) | |
| download | otp-d3ccc1afec78fdfcece724d6f12ee88e284898b7.tar.gz otp-d3ccc1afec78fdfcece724d6f12ee88e284898b7.tar.bz2 otp-d3ccc1afec78fdfcece724d6f12ee88e284898b7.zip | |
[test_server] Skip test cases if init_per_group fails in user timetrap
'user_timetrap_error' was not detected during any "conf init function"
except init_per_suite, so if e.g. init_per_group failed with
user_timetrap_error, then the test cases in the group would not be
skipped. This has been corrected.
| -rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index 50208410a9..4e465c02d1 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -2933,6 +2933,7 @@ run_test_cases_loop([{conf,Ref,Props,{Mod,Func}}|_Cases]=Cs0, exit(framework_error); {_,Fail,_} when element(1,Fail) == 'EXIT'; element(1,Fail) == timetrap_timeout; + element(1,Fail) == user_timetrap_error; element(1,Fail) == failed -> {Cases2,Config1,Status3} = if StartConf -> @@ -2952,14 +2953,6 @@ run_test_cases_loop([{conf,Ref,Props,{Mod,Func}}|_Cases]=Cs0, set_io_buffering(IOHandler), stop_minor_log_file(), run_test_cases_loop(Cases2, Config1, TimetrapData, Mode, Status3); - {died,Why,_} when Func == init_per_suite -> - print(minor, "~n*** Unexpected exit during init_per_suite.~n", []), - Reason = {failed,{Mod,init_per_suite,Why}}, - Cases2 = skip_cases_upto(Ref, Cases, Reason, conf, CurrMode), - set_io_buffering(IOHandler), - stop_minor_log_file(), - run_test_cases_loop(Cases2, Config, TimetrapData, Mode, - delete_status(Ref, Status2)); {_,{Skip,Reason},_} when StartConf and ((Skip==skip) or (Skip==skipped)) -> ReportAbortRepeat(skipped), print(minor, "~n*** ~p skipped.~n" |