comment ce genre de erlang gen_server devrait être testé?

Question

J'ai un gen_server qui exporte une fonction comme ceci:

my_function(Param) -> 
    gen_server:cast(?SERVER, {forward, Param}). 

et a un handle_cast comme celui-ci:

handle_cast({forward, Param}, #state{peer=Socket} = State) -> 
    gen_tcp:send(Socket, Param), 
    {noreply, State}. 

Dans la plupart des cas, le poste qui est connecté à l'aide gen_tcp répondra avec l'un d'entre différents messages, et je gérer la réponse dans le handle_info

handle_info({tcp, Socket, Data}) -> 
    io:format("Received : ~p~n", [Data]), 
    {noreply, State}. 

Est-il possible recommandé de tester ce genre de scénario dans Erlang?

Answer 1

Vous pouvez utiliser les fonctions de configuration/teardown afin de faire quelque chose comme ça:

my_test_() -> { 
    setup, 
    fun() -> my_server:start_link() end, 
    fun(_) -> my_server:stop() end, 
    fun() -> 
     %% here you do all the message sending and such 
    end 
}. 

Vous devez également exporter un arrêt/0 fonction qui sera responsable de l'appel/a lancé le gen_server afin d'arrêter il.

Vous pouvez en savoir plus d'infos sur les appareils here

HTH, Alin