anchor.diff:              {"info reports are truncated at 4096 characters",
                   fun() ->
                           error_logger:info_report([[{this, is}, a, {silly, format}] || _ <- lists:seq(0, 600)]),
  -                        _ = gen_event:which_handlers(error_logger),
  -                        timer:sleep(1000),
  +                        custom_sleep(1000),
                           {_, _, Msg} = pop(),
                           ?assert(length(lists:flatten(Msg)) < 5000)
                   end
  
positive.code:             {"string info reports are truncated at 4096 characters",
                  fun() ->
                          error_logger:info_report(string:copies("this is less silly", 1000)),
                          _ = gen_event:which_handlers(error_logger),
                          timer:sleep(1000),
                          {_, _, Msg} = pop(),
                          ?assert(length(lists:flatten(Msg)) < 5100)
                  end
  
negative.code:             {"error messages are printed",
                  fun() ->
                          error_logger:error_msg("doom, doom has come upon you all"),
                          custom_sleep(100),
                          {_, _, Msg} = pop(),
                          Expected = lists:flatten(io_lib:format("[error] ~w doom, doom has come upon you all", [self()])),
                          ?assertEqual(Expected, lists:flatten(Msg))
  