[TIP] erlang: unit, coverage test

일단 eunit으로 테스트를 하는 것을 가정한다.

unit test - makefile에서...
make file에 다음과 같은 부분을 추가한 후에, make test 하면 간편하게 명령행에서 unit test를 수행할 수있다.
(makefile 뼈대는 Programming Erlang을 기초로 했다.)

......
MODS = doc str_util db i18n tiny_scan
......

test: compile test_subdirs
    rm -rf Mnesia.nonode@nohost # removes previous mneisa db (optional).
    @for m in ${MODS};\
    do \
        echo "testing $$m";\
        ${ERL} -noshell -pz "subdir1" -pz "subdir2" -s $$m test -s init stop;\
    done

test_subdirs:
    cd subdir1; make test
    cd subdir2; make test

unit test, coverage test - 개발중 REPL(distel 또는 erl prompt) 에서...
REPL을 사용해서 (멋지게) 코딩-테스트를 반복중이라면, 다음과 같은 모듈을 하나 디렉토리에 넣어서 test:unit() 또는 test:cover() 를 실행시켜서 unit test 및 coverage test를 시시때때로 수행해 볼 수 있다.

%%%-------------------------------------------------------------------
%%% File    : test.erl
%%% Author  : manywaypark <manywaypark@gmail.com>
%%% Description : some test codes.
%%%
%%% Created : 11 Aug 2008 by manywaypark <manywaypark@gmail.com>
%%%-------------------------------------------------------------------
-module(test).

-compile(export_all).

-define(ALL_MODS, [doc, str_util, db, i18n, tiny_scan]).

%% does unit test (on all modules w/o tty output)
unit() ->
    unit(false,?ALL_MODS). % no tty output by default for your eye(s).

%% does unit tests on modules
-spec(unit/2 :: (TTY :: bool(), Mods :: [atom()]) -> 'done').
unit(TTY, Mods) ->
    error_logger:tty(TTY),
    lists:foreach(fun(M) ->
              io:format("testing:~p~n", [M]),
              M:test() end, Mods),
    done.

%% does coverage test (unit test only for now)
cover() ->
    cover(test, unit, ?ALL_MODS).

%% does coverage test (for Mods by invoking M:F)
-spec(cover/3 :: (M :: atom(), F :: atom(), Mods :: [atom()]) -> 'done').
cover(M,F,Mods) ->
    lists:foreach(fun(Mod) ->
              io:format("re-compiling for coverage test:~p~n", [Mod]),
              cover:compile(Mod) end, Mods),
    cover:start(),
    M:F(),
    lists:foreach(fun(Mod) ->
              io:format("writing coverage test result:~p~n", [Mod]),
              cover:analyse_to_file(Mod) end, Mods),
    cover:stop(),
    io:format("now, check your ~p.COVER.out file(s)!!~n", [Mods]),
    done.

테스트는 아무리 강조해도 지나치지 않다.
경험상 대부분의 버그는 테스트되지 않거나, 적절하지 못한 테스트(셋)들을 통과한 코드에 기생한다.

happy hackin'