Test pipe failure in addition to success.

diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl
index 3c0a6ec..de6a7bb 100644 (file)
--- a/test/hope_result_SUITE.erl
+++ b/test/hope_result_SUITE.erl
@@ -4,11 +4,14 @@
 -export(
     [ all/0
     , groups/0
 -export(
     [ all/0
     , groups/0

+    , init_per_group/2
+    , end_per_group/2

     ]).
 
 %% Test cases
 -export(
     ]).
 
 %% Test cases
 -export(

-    [ t_pipe/1
+    [ t_pipe_ok/1
+    , t_pipe_error/1

     ]).
 
 
     ]).
 
 


@@ -24,20 +27,32 @@ all() ->
 
 groups() ->
     Tests =
 
 groups() ->
     Tests =

-        [ t_pipe
+        [ t_pipe_ok
+        , t_pipe_error

         ],
     Properties = [],
     [{?GROUP_PIPE, Properties, Tests}].
 
         ],
     Properties = [],
     [{?GROUP_PIPE, Properties, Tests}].
 

-
-%% =============================================================================
-%%  Test cases
-%% =============================================================================
-
-t_pipe(_Config) ->
+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
         ],
     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).
     {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).