Browse Source

Fix ct backend dialyzer warnings

* Fix unmatched return
* Fix set_loglevel call to store mask in state
* Add common_test to plt for ct:pal spec
pull/237/head
James Fish 10 years ago
parent
commit
d051396112
2 changed files with 4 additions and 3 deletions
  1. +2
    -1
      Makefile
  2. +2
    -2
      src/lager_common_test_backend.erl

+ 2
- 1
Makefile View File

@ -15,6 +15,7 @@ clean:
distclean: clean distclean: clean
./rebar delete-deps ./rebar delete-deps
DIALYZER_APPS = kernel stdlib erts sasl eunit syntax_tools compiler crypto
DIALYZER_APPS = kernel stdlib erts sasl eunit syntax_tools compiler crypto \
common_test
include tools.mk include tools.mk

+ 2
- 2
src/lager_common_test_backend.erl View File

@ -39,7 +39,7 @@ bounce() ->
bounce(error). bounce(error).
bounce(Level) -> bounce(Level) ->
application:stop(lager),
_ = application:stop(lager),
lager:start(), lager:start(),
gen_event:add_handler(lager_event, lager_common_test_backend, [Level, false]), gen_event:add_handler(lager_event, lager_common_test_backend, [Level, false]),
%lager:set_loglevel(lager_common_test_backend, Level), %lager:set_loglevel(lager_common_test_backend, Level),
@ -88,7 +88,7 @@ handle_call(get_loglevel, #state{level=Level} = State) ->
handle_call({set_loglevel, Level}, State) -> handle_call({set_loglevel, Level}, State) ->
case lists:member(Level, ?LEVELS) of case lists:member(Level, ?LEVELS) of
true -> true ->
{ok, ok, State#state{level=lager_util:level_to_num(Level)}};
{ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
_ -> _ ->
{ok, {error, bad_log_level}, State} {ok, {error, bad_log_level}, State}
end; end;

Loading…
Cancel
Save