From 7e9d7f2cba7c91e2ae1dab489860f19bce9cbdc3 Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Tue, 12 Aug 2014 22:24:28 -0400
Subject: [PATCH] Add a basic sanity test for result pipe.

---
 test/hope_result_SUITE.erl | 45 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 test/hope_result_SUITE.erl

diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl
new file mode 100644
index 0000000..618713d
--- /dev/null
+++ b/test/hope_result_SUITE.erl
@@ -0,0 +1,45 @@
+-module(hope_result_SUITE).
+
+%% Callbacks
+-export(
+    [ all/0
+    , groups/0
+    ]).
+
+%% Test cases
+-export(
+    [ t_pipe/1
+    ]).
+
+
+-define(GROUP_PIPE, result_pipe).
+
+
+%% ============================================================================
+%% Common Test callbacks
+%% ============================================================================
+
+all() ->
+    [{group, ?GROUP_PIPE}].
+
+groups() ->
+    Tests =
+        [ t_pipe
+        ],
+    Properties = [],
+    [{?GROUP_PIPE, Properties, Tests}].
+
+
+%% =============================================================================
+%%  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).
-- 
2.20.1