Commit | Line | Data |
---|---|---|
7e9d7f2c SK |
1 | -module(hope_result_SUITE). |
2 | ||
3 | %% Callbacks | |
4 | -export( | |
5 | [ all/0 | |
6 | , groups/0 | |
7 | ]). | |
8 | ||
9 | %% Test cases | |
10 | -export( | |
11 | [ t_pipe/1 | |
12 | ]). | |
13 | ||
14 | ||
15 | -define(GROUP_PIPE, result_pipe). | |
16 | ||
17 | ||
18 | %% ============================================================================ | |
19 | %% Common Test callbacks | |
20 | %% ============================================================================ | |
21 | ||
22 | all() -> | |
23 | [{group, ?GROUP_PIPE}]. | |
24 | ||
25 | groups() -> | |
26 | Tests = | |
27 | [ t_pipe | |
28 | ], | |
29 | Properties = [], | |
30 | [{?GROUP_PIPE, Properties, Tests}]. | |
31 | ||
32 | ||
33 | %% ============================================================================= | |
34 | %% Test cases | |
35 | %% ============================================================================= | |
36 | ||
37 | t_pipe(_Config) -> | |
38 | A = foo, | |
39 | Z = qux, | |
40 | Steps = | |
41 | [ fun (foo) -> {ok, bar}; (X) -> {error, X} end | |
42 | , fun (bar) -> {ok, baz}; (X) -> {error, X} end | |
43 | , fun (baz) -> {ok, qux}; (X) -> {error, X} end | |
44 | ], | |
45 | {ok, Z} = hope_result:pipe(Steps, A). |