From 55182c1b53d889c22703ee5c680a68b54397d612 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 13 Aug 2014 09:39:03 -0400 Subject: [PATCH] Make result pipe test more intuitive. --- test/hope_result_SUITE.erl | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl index 618713d..3c0a6ec 100644 --- a/test/hope_result_SUITE.erl +++ b/test/hope_result_SUITE.erl @@ -35,11 +35,9 @@ groups() -> %% ============================================================================= 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 + [ fun (0) -> {ok, 1}; (X) -> {error, X} end + , fun (1) -> {ok, 2}; (X) -> {error, X} end + , fun (2) -> {ok, 3}; (X) -> {error, X} end ], - {ok, Z} = hope_result:pipe(Steps, A). + {ok, 3} = hope_result:pipe(Steps, 0). -- 2.20.1