EUnit - erlang单元测试

 

tut.erl

-module(tut).
-export([double/1, fac/1]).
 
double(X) ->
    2 * X.
 
fac(0) ->
    0;
fac(1) ->
    1;
fac(N) ->
    N * fac(N-1).

 

tutTest.erl

-module(tutTest).
-import(tut, [double/1, fac/1]).
%% 加了这句，会自动多出来一个 test() 方法，测试直接跑 tutTest:test() 就好了。
-include_lib("eunit/include/eunit.hrl").

%% xxx_test 是 case
fac_test() ->
    ?_assert(tut:fac(0) == 0).

%% xxx_test_ 是 case 生成器
fac_test_() ->
    [?_assert(tut:fac(0) == 0),
     ?_assert(tut:fac(4) == 24),
     ?_assert(tut:fac(3) /= 16)
    ].

double_test_() ->
    [?_assert(tut:double(0) == 0),
     ?_assert(tut:double(10) == 20)
    ].

double2_test_() ->
    [?_assert(tut:double(0) /= 1),
     ?_assert(tut:double(10) /= 10)
    ].