0

我写了一些代码来测试 simple_one_for_one 主管，但它不能工作，代码是：

-module(test_simple_one_for_one).

-behaviour(supervisor).

%% API
-export([start_link/0, start_fun_test/0]).

%% Supervisor callbacks
-export([init/1]).

-define(SERVER, ?MODULE).

%%--------------------------------------------------------------------
start_link() ->
    {ok, Pid} = supervisor:start_link({local, ?SERVER}, ?MODULE, []).

start_fun_test() ->
    supervisor:start_child(test_simple_one_for_one, []).

init([]) ->
    RestartStrategy = simple_one_for_one,
    MaxRestarts = 1000,
    MaxSecondsBetweenRestarts = 3600,

    SupFlags = {RestartStrategy, MaxRestarts, MaxSecondsBetweenRestarts},

    Restart = permanent,
    Shutdown = 2000,
    Type = worker,

    AChild = {fun_test_sup, {fun_test, run, []},
          Restart, Shutdown, Type, [fun_test]},
    io:format("start supervisor------ ~n"),
    {ok, {SupFlags, [AChild]}}.

当我跑

test_simple_one_for_one:start_link().

和

test_simple_one_for_one:start_fun_test().

在 erl shell 中，它给了我错误：

test_simple_one_for_one:start_fun_test()。** 异常退出：{noproc,{gen_server,call, [test_simple_one_for_one,{start_child,[]},infinity]}} 在函数 gen_server:call/3 中（gen_server.erl，第 188 行）

4

1 回答 1

1

如果这是您为测试编写的所有代码，请注意，当您注册主管子时，您会提供一个 {M, F, A} 元组，它表示您启动子时调用的函数。

在你的情况下，我认为它不能简单地找到 fun_test:run/1 函数。

于 2012-04-26T19:49:48.877 回答