[hope.git] / hope_result_SUITE.erl

-module(hope_result_SUITE).

%% Callbacks
-export(
    [ all/0
    , groups/0
    , init_per_group/2
    , end_per_group/2
    ]).

%% Test cases
-export(
    [ t_pipe_ok/1
    , t_pipe_error/1
    ]).


-define(GROUP_PIPE, result_pipe).


%% ============================================================================
%% Common Test callbacks
%% ============================================================================

all() ->
    [{group, ?GROUP_PIPE}].

groups() ->
    Tests =
        [ t_pipe_ok
        , t_pipe_error
        ],
    Properties = [],
    [{?GROUP_PIPE, Properties, Tests}].

init_per_group(?GROUP_PIPE, Cfg) ->
    Steps =
        [ fun (0) -> {ok, 1}; (X) -> {error, X} end
        , fun (1) -> {ok, 2}; (X) -> {error, X} end
        , fun (2) -> {ok, 3}; (X) -> {error, X} end
        ],
    hope_kv_list:set(Cfg, steps, Steps).

end_per_group(?GROUP_PIPE, _Cfg) ->
    ok.


%% =============================================================================
%%  Test cases
%% =============================================================================

t_pipe_ok(Cfg) ->
    {some, Steps} = hope_kv_list:get(Cfg, steps),
    {ok, 3} = hope_result:pipe(Steps, 0).

t_pipe_error(Cfg) ->
    {some, Steps} = hope_kv_list:get(Cfg, steps),
    {error, 1} = hope_result:pipe(Steps, 1).
Commit	Line	Data
	1	-module(hope_result_SUITE).
	2
	3	%% Callbacks
	4	-export(
	5	[ all/0
	6	, groups/0
	7	, init_per_group/2
	8	, end_per_group/2
	9	]).
	10
	11	%% Test cases
	12	-export(
	13	[ t_pipe_ok/1
	14	, t_pipe_error/1
	15	]).
	16
	17
	18	-define(GROUP_PIPE, result_pipe).
	19
	20
	21	%% ============================================================================
	22	%% Common Test callbacks
	23	%% ============================================================================
	24
	25	all() ->
	26	[{group, ?GROUP_PIPE}].
	27
	28	groups() ->
	29	Tests =
	30	[ t_pipe_ok
	31	, t_pipe_error
	32	],
	33	Properties = [],
	34	[{?GROUP_PIPE, Properties, Tests}].
	35
	36	init_per_group(?GROUP_PIPE, Cfg) ->
	37	Steps =
	38	[ fun (0) -> {ok, 1}; (X) -> {error, X} end
	39	, fun (1) -> {ok, 2}; (X) -> {error, X} end
	40	, fun (2) -> {ok, 3}; (X) -> {error, X} end
	41	],
	42	hope_kv_list:set(Cfg, steps, Steps).
	43
	44	end_per_group(?GROUP_PIPE, _Cfg) ->
	45	ok.
	46
	47
	48	%% =============================================================================
	49	%% Test cases
	50	%% =============================================================================
	51
	52	t_pipe_ok(Cfg) ->
	53	{some, Steps} = hope_kv_list:get(Cfg, steps),
	54	{ok, 3} = hope_result:pipe(Steps, 0).
	55
	56	t_pipe_error(Cfg) ->
	57	{some, Steps} = hope_kv_list:get(Cfg, steps),
	58	{error, 1} = hope_result:pipe(Steps, 1).