anchor.diff:              {"error messages are truncated at 4096 characters",
                   fun() ->
                           error_logger:error_msg("doom, doom has come upon you all ~p", [string:copies("doom", 10000)]),
  -                        timer:sleep(100),
  +                        _ = gen_event:which_handlers(error_logger),
  +                        timer:sleep(1000),
                           {_, _, Msg} = pop(),
                           ?assert(length(lists:flatten(Msg)) < 5100)
                   end
  
positive.code:             {"crash report for unknown system limit should be truncated at 500 characters",
                  fun() ->
                          error_logger:error_report(crash_report, [[{pid, self()}, {error_info, {error, {system_limit,[{wtf,boom,[string:copies("aaaa", 4096)]}]}, []}}], []]),
                          timer:sleep(100),
                          {_, _, Msg} = pop(),
                          ?assert(length(lists:flatten(Msg)) > 500),
                          ?assert(length(lists:flatten(Msg)) < 700)
  
negative.code:                 fun() ->
                          error_logger:warning_msg("doom, doom has come upon you all"),
                          Map = error_logger:warning_map(),
                          _ = gen_event:which_handlers(error_logger),
                          timer:sleep(100),
                          {_, _, Msg} = pop(),
                          Expected = lists:flatten(io_lib:format("[~w] ~w doom, doom has come upon you all", [Map, self()])),
  