erlang学习笔记（common test简单使用）

erlang自带的common test框架用作测试比较方便，支持分布式测试等强大功能，个人感觉美中不足之处是把用例和测试库没有很好分离。当然可以自己封装测试库import使用，不过总觉得不够简洁。

下面记录一下基本使用方法，主要利用erlang强大的模式匹配

编写脚本basic/basic_SUITE.erl如下：

-module(basic_SUITE).
%%
%% highly recommended you add the line below which may
%% provide some macro
-include_lib("common_test/include/ct.hrl").
-export([all/0]).
-export([test1/1, test2/1, test_http/1]).

all() -> [test1,test2,test_http].

test1(_Config) ->
        1 = 1.

test2(_Config) ->
        A = 0,
        1/A.

test_http(_Config) ->
        inets:start(),
        {ok, {{Version, 200, ReasonPhrase}, Headers, Body}} = httpc:request(get, {"http://api.dbank.com/rest.php", []}, [], []),
        io:format("~p~n",[Version]),
        io:format("~p~n",[ReasonPhrase]),
        io:format("~p~n",[Headers]),
        Body == "{\"error\":\"param error\"}".

编写demo/demo_SUITE.erl如下：

用例1，测试用例添加预置条件及回收处理函数

用例2，发起http请求测试结果

-module(demo_SUITE).
-include_lib("common_test/include/ct.hrl").

%% use export_all for test , or you must export functions by hand
-compile(export_all).
-export([all/0, init_per_testcase/2, end_per_testcase/2]).
-export([test_http/1,ets_tests/1]).

all() -> [test_http, ets_tests].

%%
%% ETS is an interface to the Erlang built-in term storage BIFs which
%% provide the ability to store very large quantities of data in an
%% Erlang runtime system
%%

%% call init_per_testcase before test_case
%% init only for ets_tests and ignore others
init_per_testcase(ets_tests, _Config) ->
        TabId = ets:new(account, [ordered_set, public]),
        ets:insert(TabId, {ciaos,25}),
        ets:insert(TabId, {stone,24}),
        [{table,TabId} | _Config];
init_per_testcase(_, _Config) ->
        %% ignore for all other cases.
        _Config.


%% call end_per_testcase after test_case
%%
end_per_testcase(ets_tests, _Config) ->
        ets:delete(?config(table, _Config));
end_per_testcase(_, _Config) ->
        ok.


%% test cases
ets_tests(_Config) ->
        TabId = ?config(table, _Config),
        [{ciaos,25}] = ets:lookup(TabId,ciaos),
        stone = ets:last(TabId),
        true = ets:insert(TabId, {tiger,50}),
        tiger = ets:last(TabId).


test_http(_Config) ->
        inets:start(),
        {ok, {{Version, 200, ReasonPhrase}, Headers, Body}} = httpc:request(get, {"http://api.dbank.com/rest.php", []}, [], []),
        %%
        %% add some comment
        io:format("~p~n",[Version]),
        io:format("~p~n",[ReasonPhrase]),
        io:format("~p~n",[Headers]),
        Body == "{\"error\":\"param error\"}".

编写spec.spec配置文件如下（配置目录，输出结果以及跳过指定测试）

{alias, demo, "./demo/"}.
{alias, basic, "./basic/"}.
{logdir, "./logs/"}.

{suites, basic, all}.
{suites, demo, all}.
{skip_cases, basic, basic_SUITE, test2, "this test fails on purpose"}.

运行测试用例（用浏览器打开index.html会有更多的测试细节）：

ciaos:~ # ct_run -spec spec.spec -suite basic/basic_SUITE.erl demo/demo_SUITE.erl
Erlang R16B (erts-5.10.1) [source] [64-bit] [smp:2:2] [async-threads:10] [hipe] [kernel-poll:false]



Common Test v1.7.1 starting (cwd is /root)

Eshell V5.10.1  (abort with ^G)
(ct@vm6245)1>
Common Test: Running make in test directories...
Recompile: demo_SUITE

CWD set to: "/root/logs/ct_run.ct@vm6245.2013-04-23_18.32.58"

TEST INFO: 2 test(s), 5 case(s) in 2 suite(s)

Testing penjin.basic: Starting test, 3 test cases
Testing penjin.basic: TEST COMPLETE, 2 ok, 0 failed, 1 skipped of 3 test cases

Testing penjin.demo: Starting test, 2 test cases
Testing penjin.demo: TEST COMPLETE, 2 ok, 0 failed of 2 test cases

Updating /root/penjin/logs/index.html... done
Updating /root/penjin/logs/all_runs.html... done

common test功能还很多，比如将测试用例分组搭配，指定顺序或者随机测试，指定某个测试用例失败后剩余用例是否继续测试等。

empty list / no option

shuffle

parallel

sequence

{repeat, Times}

测试结果截图如下：