Bring-back manual test case for hope_list

diff --git a/test/hope_list_SUITE.erl b/test/hope_list_SUITE.erl
index 8601cf9..1311ba9 100644 (file)
--- a/test/hope_list_SUITE.erl
+++ b/test/hope_list_SUITE.erl
@@ -16,7 +16,10 @@
     , t_auto_map_rev/1
     , t_auto_map_slow/1
     , t_auto_unique_preserve_order/1
+    , t_manual_map/1
     , t_manual_map_result/1
+    , t_manual_map_rev/1
+    , t_manual_map_slow/1
     ]).
 
 
@@ -42,7 +45,10 @@ groups() ->
         , t_auto_map_rev
         , t_auto_map_slow
         , t_auto_unique_preserve_order
+        , t_manual_map
         , t_manual_map_result
+        , t_manual_map_rev
+        , t_manual_map_slow
         ],
     Properties = [parallel],
     [{?GROUP, Properties, Tests}].
@@ -51,6 +57,13 @@ groups() ->
 %%  Manual test cases
 %% =============================================================================
 
+t_manual_map(_Cfg) ->
+    F = fun (N) -> N + 1 end,
+    Xs = lists:seq(1, 5010),
+    Ys = lists:map(F, Xs),
+    Ys = hope_list:map(Xs, F),
+    [] = hope_list:map([], F).
+
 t_manual_map_result(_Cfg) ->
     AssertPositive =
         fun (I) when I > 0 -> {ok, I}; (_) -> {error, negative} end,
@@ -61,6 +74,16 @@ t_manual_map_result(_Cfg) ->
     {error, negative}  = hope_list:map_result(AllNegatives, AssertPositive),
     {error, negative}  = hope_list:map_result(Mixed, AssertPositive).
 
+t_manual_map_rev(_Cfg) ->
+    F = fun (N) -> N + 1 end,
+    [4, 3, 2] = hope_list:map_rev([1, 2, 3], F),
+    []        = hope_list:map_rev([], F).
+
+t_manual_map_slow(_Cfg) ->
+    F = fun (N) -> N + 1 end,
+    [2, 3, 4] = hope_list:map_slow([1, 2, 3], F),
+    []        = hope_list:map_slow([], F).
+
 %% =============================================================================
 %%  Generated test cases
 %% =============================================================================