Test hope_list:unique_preserve_order/1

diff --git a/test/hope_list_SUITE.erl b/test/hope_list_SUITE.erl
new file mode 100644 (file)
index 0000000..751157d
--- /dev/null
+++ b/test/hope_list_SUITE.erl
@@ -0,0 +1,45 @@
+-module(hope_list_SUITE).
+
+%% Callbacks
+-export(
+    [ all/0
+    , groups/0
+    ]).
+
+%% Test cases
+-export(
+    [ t_unique_preserve_order/1
+    ]).
+
+
+-define(GROUP , hope_list).
+
+
+%% ============================================================================
+%% Common Test callbacks
+%% ============================================================================
+
+all() ->
+    [{group, ?GROUP}].
+
+groups() ->
+    Tests =
+        [ t_unique_preserve_order
+        ],
+    Properties = [],
+    [{?GROUP, Properties, Tests}].
+
+
+%% =============================================================================
+%%  Test cases
+%% =============================================================================
+
+t_unique_preserve_order(_Cfg) ->
+    ListAGiven = [a, a, g, b, f, c, a, d, a, e, f, d],
+    ListBGiven = "australia",
+    ListAExpected = [a, g, b, f, c, d, e],
+    ListBExpected = "austrli",
+    ListAComputed = hope_list:unique_preserve_order(ListAGiven),
+    ListBComputed = hope_list:unique_preserve_order(ListBGiven),
+    ListAComputed = ListAExpected,
+    ListBComputed = ListBExpected.