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

Question

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

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

我现在使用 eunit，但它似乎没有专门构建的方法来练习这个场景。普通测试是否提供了这一点？有没有一种优雅的方法来测试这个或者我应该破解一些东西？总的来说，我很难理解如何在 Erlang 中系统地测试有状态的异步操作。

Answer 1

是的，普通测试就可以做到这一点。

这是我们的 erlang emacs 模式提供的通用测试套件框架的简化版本（您可以使用 普通的 erlang 或 erlware ):

-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 调用，因此您可以更多地控制异步测试。