我正在为 Erlang 代码编写 EUnit 测试。
我有一个源模块:
一个单元测试模块:
当我运行
但是,当我在我的prob_list模块中导出probability/2时,一切正常。
有没有任何方法来测试私有函数?
我有一个源模块:
-module(prob_list).
-export([intersection/2,union/2]).
probability([], _Item) -> false;
probability([{First,Probability}|Rest], Item) ->
if
First == Item -> Probability;
true -> probability(Rest, Item)
end.
...
...
...
一个单元测试模块:
-module(prob_list_tests).
-include_lib("eunit/include/eunit.hrl").
-define(TEST_LIST,[{3,0.2},{4,0.6},{5,1.0},{6,0.5}]).
-define(TEST_LIST1,[{2,0.9},{3,0.6},{6,0.1},{8,0.5}]).
-define(TEST_UNO_LIST,[{2,0.5}]).
probability_test() -> ?assertNot(prob_list:probability([],3)),
?assertEqual(0.5,prob_list:probability(?TEST_UNO_LIST,2)),
?assertNot(prob_list:probability(?TEST_UNO_LIST,3)),
?assertEqual(0.2,prob_list:probability(?TEST_LIST,3)),
?assertEqual(1.0,prob_list:probability(?TEST_LIST,5)),
?assertNot(prob_list:probability(?TEST_LIST,7)).
...
...
...
当我运行
eunit:test(prob_list,[verbose])
时,它会显示: prob_list_tests: probability_test...*failed*
::undef
但是,当我在我的prob_list模块中导出probability/2时,一切正常。
有没有任何方法来测试私有函数?
erlc -DTEST *.erl
进行编译,但仍然从私有函数中得到 ::undef。 - Uko