X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=test%2Fhope_result_SUITE.erl;h=de6a7bbd49426044d6515dbbe38411c1ad014b86;hb=70cf8e86a06d8721fcc8b658bb2be1f7b401326f;hp=618713d4bdb1efb6b2a9817960345aa6da7567be;hpb=7e9d7f2cba7c91e2ae1dab489860f19bce9cbdc3;p=hope.git

diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl
index 618713d..de6a7bb 100644
--- a/test/hope_result_SUITE.erl
+++ b/test/hope_result_SUITE.erl
@@ -4,11 +4,14 @@
 -export(
     [ all/0
     , groups/0
+    , init_per_group/2
+    , end_per_group/2
     ]).
 
 %% Test cases
 -export(
-    [ t_pipe/1
+    [ t_pipe_ok/1
+    , t_pipe_error/1
     ]).
 
 
@@ -24,22 +27,32 @@ all() ->
 
 groups() ->
     Tests =
-        [ t_pipe
+        [ 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(_Config) ->
-    A = foo,
-    Z = qux,
-    Steps =
-        [ fun (foo) -> {ok, bar}; (X) -> {error, X} end
-        , fun (bar) -> {ok, baz}; (X) -> {error, X} end
-        , fun (baz) -> {ok, qux}; (X) -> {error, X} end
-        ],
-    {ok, Z} = hope_result:pipe(Steps, A).
+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).