Merge pull request #766 from basho/revert-754-loucash-set_proper_exit_status

Revert "Set proper exit status"
This commit is contained in:
Sean Cribbs 2015-04-06 16:40:43 -05:00
commit cd4c408ccb

View File

@ -181,7 +181,7 @@ main(Args) ->
Teardown = not proplists:get_value(keep, ParsedArgs, false),
maybe_teardown(Teardown, TestResults, Coverage, Verbose),
proper_exit_status(TestResults).
ok.
maybe_teardown(false, TestResults, Coverage, Verbose) ->
print_summary(TestResults, Coverage, Verbose),
@ -373,15 +373,6 @@ print_summary(TestResults, CoverResult, Verbose) ->
end,
ok.
proper_exit_status(TestResults) ->
Failed = [X || X <- TestResults, proplists:get_value(status, X) =:= fail],
case Failed of
[] ->
ok;
_ ->
halt(1)
end.
test_name_width(Results) ->
lists:max([ length(X) || [X | _T] <- Results ]).