76 lines
2.5 KiB
Erlang
76 lines
2.5 KiB
Erlang
%%% @copyright Erlware, LLC.
|
|
-module(ec_plists_tests).
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
%%%===================================================================
|
|
%%% Tests
|
|
%%%===================================================================
|
|
|
|
map_good_test() ->
|
|
Results = ec_plists:map(fun(_) ->
|
|
ok
|
|
end,
|
|
lists:seq(1, 5)),
|
|
?assertMatch([ok, ok, ok, ok, ok],
|
|
Results).
|
|
|
|
ftmap_good_test() ->
|
|
Results = ec_plists:ftmap(fun(_) ->
|
|
ok
|
|
end,
|
|
lists:seq(1, 3)),
|
|
?assertMatch([{value, ok}, {value, ok}, {value, ok}],
|
|
Results).
|
|
|
|
filter_good_test() ->
|
|
Results = ec_plists:filter(fun(X) ->
|
|
X == show
|
|
end,
|
|
[show, show, remove]),
|
|
?assertMatch([show, show],
|
|
Results).
|
|
|
|
map_timeout_test() ->
|
|
?assertExit(timeout,
|
|
ec_plists:map(fun(T) ->
|
|
timer:sleep(T),
|
|
T
|
|
end,
|
|
[1, 100], {timeout, 10})).
|
|
|
|
ftmap_timeout_test() ->
|
|
?assertExit(timeout,
|
|
ec_plists:ftmap(fun(X) ->
|
|
timer:sleep(X),
|
|
true
|
|
end,
|
|
[100, 1], {timeout, 10})).
|
|
|
|
filter_timeout_test() ->
|
|
?assertExit(timeout,
|
|
ec_plists:filter(fun(T) ->
|
|
timer:sleep(T),
|
|
T == 1
|
|
end,
|
|
[1, 100], {timeout, 10})).
|
|
|
|
map_bad_test() ->
|
|
?assertExit({{nocatch,test_exception}, _},
|
|
ec_plists:map(fun(_) ->
|
|
erlang:throw(test_exception)
|
|
end,
|
|
lists:seq(1, 5))).
|
|
|
|
|
|
ftmap_bad_test() ->
|
|
Results =
|
|
ec_plists:ftmap(fun(2) ->
|
|
erlang:throw(test_exception);
|
|
(N) ->
|
|
N
|
|
end,
|
|
lists:seq(1, 5)),
|
|
?assertMatch([{value, 1}, {error,{throw,test_exception}}, {value, 3},
|
|
{value, 4}, {value, 5}] , Results).
|
|
|