notify_and_wait_protocol.erl 257 B

1234567891011
  1. -module(notify_and_wait_protocol).
  2. -export([start_link/4]).
  3. -export([init/2]).
  4. start_link(_, _, _, [{msg, Msg}, {pid, TestPid}]) ->
  5. Pid = spawn_link(?MODULE, init, [Msg, TestPid]),
  6. {ok, Pid}.
  7. init(Msg, Pid) ->
  8. Pid ! Msg,
  9. receive after 2500 -> ok end.