Erlang：我应该如何测试这个？

Question

我有一个应用程序，我将一条消息发送到 gen_server 以启动操作，然后我每秒调用 gen_server 以收集中间结果，直到操作完成。在生产中，它通常需要几分钟，但它只受输入大小的限制，我也想测试一个小时的操作。

我希望始终通过根据需要运行测试来确保此操作仍然有效。理想情况下，我还想用不同的输入多次运行这个测试。

我现在使用 eunit，但它似乎没有专门构建的方式来执行此场景。普通测试是否提供了这一点？有没有一种优雅的测试方法，或者我应该只是破解一些东西？一般来说，我在思考如何在 Erlang 中系统地测试有状态的异步操作时遇到了麻烦。

Answer 1

是的，普通测试会这样做。

这是我们 erlang emacs 模式提供的通用测试套件骨架的精简版（您可以使用the normal erlang one 或erlware one）：

-module(junk).

%% Note: This directive should only be used in test suites.
-compile(export_all).

-include("test_server.hrl").

%%
%% set up for the suite...
%%
init_per_suite(Config) ->
    Config.

end_per_suite(_Config) ->
    ok.

%%
%% setup for each case in the suite - can know which test case it is in
init_per_testcase(_TestCase, Config) ->
    Config.

end_per_testcase(_TestCase, _Config) ->
    ok.

%%
%% allows the suite to be programmatically managed
%%
all(doc) ->
    ["Describe the main purpose of this suite"];

all(suite) ->
    [].

%% Test cases starts here.
%%--------------------------------------------------------------------
test_case(doc) ->
    ["Describe the main purpose of test case"];

test_case(suite) ->
    [];

test_case(Config) when is_list(Config) ->
    ok.

有两种基本方法可以做到。

首先在init_per_suite/1 中启动gen_server，然后对该长时间运行的服务器进行大量原子测试，然后在end_per_suite/1 中拆除gen_server。这是首选方式 - 您的 gen_server 应该在许多事务中长期运行和持久化，等等等等……

另一种方法是进行单例测试并使用init_per_testcase/2 启动gen_server 并在end_per_testcase/2 中将其拆除

Answer 2

用任何语言测试有状态的异步操作都很困难，无论是 Erlang 还是其他语言。

我实际上建议使用 etap 并让异步测试运行一个回调，然后运行 ​​etap:end_tests()

由于etap 使用正在运行的测试服务器并等待 end_test 调用，因此您对异步测试有更多的控制权。