test/notify_and_wait_protocol.erl


1
2
3
4
5
6
7
8
9
10
11
12

-module(notify_and_wait_protocol).

-export([start_link/4]).
-export([init/2]).

start_link(_, _, _, [{msg, Msg}, {pid, TestPid}]) ->
	Pid = spawn_link(?MODULE, init, [Msg, TestPid]),
	{ok, Pid}.

init(Msg, Pid) ->
	Pid ! Msg,
	receive after 2500 -> ok end.