home
/
code
/
hope.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2fa2f02
)
Bring-back manual test case for hope_list
author
Siraaj Khandkar
<siraaj@khandkar.net>
Sun, 6 Sep 2015 00:44:10 +0000
(17:44 -0700)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Sun, 6 Sep 2015 00:44:10 +0000
(17:44 -0700)
test/hope_list_SUITE.erl
patch
|
blob
|
blame
|
history
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_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_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_auto_map_rev
, t_auto_map_slow
, t_auto_unique_preserve_order
+ , t_manual_map
, t_manual_map_result
, t_manual_map_result
+ , t_manual_map_rev
+ , t_manual_map_slow
],
Properties = [parallel],
[{?GROUP, Properties, Tests}].
],
Properties = [parallel],
[{?GROUP, Properties, Tests}].
@@
-51,6
+57,13
@@
groups() ->
%% Manual test cases
%% =============================================================================
%% 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,
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).
{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
%% =============================================================================
%% =============================================================================
%% Generated test cases
%% =============================================================================
This page took
0.024374 seconds
and
4
git commands to generate.