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