simple_server.erl

-include_lib("eunit/include/eunit.hrl").
-module(simple_server).
-export([start/0]).

basic_test_() ->
    {"Test quit message",
     fun() ->
             simple_server:start(),
             ?assertEqual("Quit command received. Closing down server", simple_server ! "quit")
     end
    }.

start() ->
    register(simple_server, spawn( fun() -> loop() end)).

loop() ->
    receive
        "quit" ->  io:format("Quit command received. Closing down server");
        "list" ->  io:format("List command received. Listing rooms"),
                   loop();
        Msg    ->  io:format("Received message: ~p~n", [Msg]),
                   loop()
    end.