如何在erlang中测试gen服务器？

Question

我是erlang的初学者,我写了一个基本的gen服务器程序如下,我想知道,如何测试服务器让我知道它运行良好.

-module(gen_server_test).
-behaviour(gen_server).
-export([start_link/0]).
-export([alloc/0, free/1]).
-export([init/1, handle_call/3, handle_cast/2]).
start_link() ->
    gen_server:start_link({local, gen_server_test}, ch3, [], []).
alloc() ->
    gen_server:call(gen_server_test, alloc).
free(Ch) ->
    gen_server:cast(gen_server_test, {free, Ch}).
init(_Args) ->
    {ok, channels()}.
handle_call(alloc, _From, Chs) ->
    {Ch, Chs2} = alloc(Chs),
    {reply, Ch, Chs2}.
handle_cast({free, Ch}, Chs) ->
    io:format(Ch),
        io:format(Chs),
        Chs2 = free(),
    {noreply, Chs2}.

free() -> 
        io:format("free").
channels() ->
        io:format("channels").
alloc(chs) -> 
        io:format("alloc chs").

BTW:该程序可以编译,它不是一个好程序,我只想打印一些东西,以确保它的工作:)

Answer 1

gen_server实现模块的优点在于它只是一个回调模块.甚至不需要生成底层的gen_server进程来测试它.

您需要做的就是让您的测试框架(通常是eunit)通过注入不同的输入(不同的gen_server状态,不同的输入消息)等来调用所有handle_call/cast/info函数,并确保它返回正确的响应元组(例如.{reply,ok,NewState}或{noreply,NewState}等.)

当然,如果您的回调函数不是纯函数,这将无法正常工作.例如,在handle_call函数中,如果要向另一个进程发送消息,例如,或者您正在修改ets表.在这种情况下,您必须确保在运行测试之前预先创建了所有必需的进程和表.