diff options
| author | Peter Andersson <[email protected]> | 2015-12-11 09:39:12 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2015-12-11 09:39:12 +0100 |
| commit | d314004b94edd379b873d077f05570e6a90de072 (patch) | |
| tree | 5bb427a23bca9f94789d7f4c6ebebec1f0e9ddf1 /lib/common_test/src/ct_run.erl | |
| parent | 3f03004fcc7daedecf1fb7f936695bca513fa825 (diff) | |
| parent | 46385b509ee1e26defe22aaf4245c90e3c0014b9 (diff) | |
| download | otp-d314004b94edd379b873d077f05570e6a90de072.tar.gz otp-d314004b94edd379b873d077f05570e6a90de072.tar.bz2 otp-d314004b94edd379b873d077f05570e6a90de072.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/common_test/src/ct_run.erl')
| -rw-r--r-- | lib/common_test/src/ct_run.erl | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index ae91601f67..0b646ffd07 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -1771,7 +1771,18 @@ compile_and_run(Tests, Skip, Opts, Args) -> {Tests1,Skip1} -> ReleaseSh = proplists:get_value(release_shell, Args), ct_util:set_testdata({release_shell,ReleaseSh}), - possibly_spawn(ReleaseSh == true, Tests1, Skip1, Opts) + TestResult = + possibly_spawn(ReleaseSh == true, Tests1, Skip1, Opts), + case TestResult of + {Ok,Errors,Skipped} -> + NoOfMakeErrors = + lists:foldl(fun({_,BadMods}, X) -> + X + length(BadMods) + end, 0, SuiteMakeErrors), + {Ok,Errors+NoOfMakeErrors,Skipped}; + ErrorResult -> + ErrorResult + end catch _:BadFormat -> {error,BadFormat} @@ -2073,7 +2084,9 @@ final_skip([], Final) -> continue([], _) -> true; -continue(_MakeErrors, AbortIfMissingSuites) -> +continue(_MakeErrors, true) -> + false; +continue(_MakeErrors, _AbortIfMissingSuites) -> io:nl(), OldGl = group_leader(), case set_group_leader_same_as_shell() of @@ -2101,11 +2114,10 @@ continue(_MakeErrors, AbortIfMissingSuites) -> true end; false -> % no shell process to use - not AbortIfMissingSuites + true end. set_group_leader_same_as_shell() -> - %%! Locate the shell process... UGLY!!! GS2or3 = fun(P) -> case process_info(P,initial_call) of {initial_call,{group,server,X}} when X == 2 ; X == 3 -> |