anchor.diff:          ?assert(is_pid(Pid)),
           ?assert(is_process_alive(Pid)),
           caterpillar_event:stop(),
  -        timer:sleep(1),
  +        wait_for_exit(Pid),
  +        % timer:sleep(1),
           ?assert(not is_process_alive(Pid))
       end
   }.
  
positive.code:         caterpillar_event:start_link([])
      end,
      fun(_) ->
          ok = caterpillar_event:stop(),
          timer:sleep(1)
      end,
  [
      {Message, fun() ->
  
negative.code: tty_on() ->
      error_logger:tty(true).
  
  wait_for_exit(Pid) ->
      MRef = erlang:monitor(process, Pid),
      receive {'DOWN', MRef, _, _, _} -> ok end.
  
  start_link_test_() ->
  {setup,
  