anchor.diff:              {"info messages are printed",
                   fun() ->
                           error_logger:info_msg("doom, doom has come upon you all"),
  -                        _ = gen_event:which_handlers(error_logger),
  -                        timer:sleep(100),
  +                        custom_sleep(100),
                           {_, _, Msg} = pop(),
                           Expected = lists:flatten(io_lib:format("[info] ~w doom, doom has come upon you all", [self()])),
                           ?assertEqual(Expected, lists:flatten(Msg))
  
positive.code:     spawn(fun() -> gen_server:call(crash, Type) end),
      timer:sleep(100).
  
  error_logger_redirect_crash_test_() ->
      {foreach,
          fun() ->
  
negative.code:                 fun() ->
                          error_logger:warning_report({foolish, bees}),
                          Map = error_logger:warning_map(),
                          custom_sleep(100),
                          {_, _, Msg} = pop(),
                          Expected = lists:flatten(io_lib:format("[~w] ~w {foolish,bees}", [Map, self()])),
                          ?assertEqual(Expected, lists:flatten(Msg))
  