🔴 Erlang 프로세스 감시와 오류 처리 실전 가이드

// 1단계: 기초 설정
-module(supervisor_test).
-export([start/0, start_link/0]).

start() ->
    {ok, Pid} = supervisor:start_link({local, ?MODULE}, supervisor, [{worker, worker_test, []}]),
    Pid.

// 2단계: 핵심 구현
-module(worker_test).
-export([start/0, loop/0]).

start() ->
    spawn(fun() -> loop() end).

loop() ->
    receive
        {monitor, Ref} ->
            erlang:monitor(process, self()),
            loop();
        {'DOWN', Ref, process, Pid, _Reason} ->
            io:format("~p 프로세스 종료 감지~n", [Pid]),
            exit(kill)
    end.

// 3단계: 고급 기능
-module(supervisor_test).
-export([start/0, start_link/0]).

start() ->
    supervisor:start_link({local, ?MODULE}, supervisor, [
        {worker, worker_test, [1]},
        {worker, worker_test, [2]}
    ]).

// 4단계: 완성 및 테스트
-module(test_SUITE).
-export([all/0, init_per_suite/1, test_failure/1]).

all() -> [[test_failure/1]].
test_failure(_) ->
    Pid = supervisor_test:start(),
    erlang:exit(Pid, kill),
    timer:sleep(500),
    ok.