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