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)
].