anchor.diff:      Tester ! {info, Why},
       {ok, Tester};
   handle_event({warning_msg, _GL, {_Pid, _Msg, [Why, _]}}, Tester) when is_atom(Why) ->
  -    Tester ! {error, Why},
  +    Tester ! {warning, Why},
       {ok, Tester};
   handle_event(_Event, State) ->
       {ok, State}.
  
positive.code:           L = F(info_msg),
            {info, sorting} = qlc_SUITE:read_error_logger(),
            L = F(warning_msg),
            {error, sorting} = qlc_SUITE:read_error_logger(),
            qlc_SUITE:uninstall_error_logger(),
            ets:delete(E1),
            ets:delete(E2)">>],
  
negative.code:                        R = lists:sort(F(error_msg)),
                         {error, caching} = qlc_SUITE:read_error_logger(),
                         R = lists:sort(F(warning_msg)),
                         {warning, caching} = qlc_SUITE:read_error_logger(),
                         qlc_SUITE:uninstall_error_logger(),
                         ErrReply = F(not_allowed),
                         {error,qlc,{tmpdir_usage,caching}} = ErrReply,
  