-module(c18).

-export([receiver/0,receiver2/0,receiver3/0,sequence/0]).
-export([receiver_test/0,receiver2_test/0,receiver3_test/0,sequence_test/0]).

receiver() ->
    %timer:sleep(1000),
    receive
        X ->
	    io:format("message: ~p~n", [X])
    end,
    receiver().

receiver2() ->
    %timer:sleep(1000),
    receive
        X ->
	    io:format("message: ~p~n", [X]),
	    case X of
	        quit -> ok;
		_ -> receiver2()
	    end
    end.

receiver3() ->
    %timer:sleep(1000),
    receive
	quit ->
	    io:format("message: ~p~n", [quit]);
        X ->
	    io:format("message: ~p~n", [X]),
            receiver3()
    end.

sequence() ->
    receive
        {first, FirstString} -> io:format("message: ~p~n", [FirstString])
    end,
    receive
        {second, SecondString} -> io:format("message: ~p~n", [SecondString])
    end.

receiver_test() ->
    Pid = spawn(?MODULE, receiver, []),
    Pid ! "Message 1",
    Pid ! "Message 2",
    Pid ! "Message 3".

receiver2_test() ->
    Pid = spawn(?MODULE, receiver2, []),
    Pid ! "Message 1",
    Pid ! "Message 2",
    Pid ! "Message 3",
    Pid ! stop.

receiver3_test() ->
    Pid = spawn(?MODULE, receiver3, []),
    Pid ! "Message 1",
    Pid ! "Message 2",
    Pid ! "Message 3",
    Pid ! stop.

sequence_test() ->
    Pid = spawn(?MODULE, sequence, []),
    Pid ! {second, "World"},
    Pid ! {first, "Hello"}.