umgeher/erlware_commons
0
Fork 0
Code Issues Pull requests Releases Activity

fix DOWN messages from external sources issue

Browse source
This commit is contained in:
Jacek Budzejko 2015-11-02 21:05:58 +01:00
parent 95a8e3c32d
commit 2240decb95
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ec_plists.erl
View file

@ -772,8 +772,8 @@ receivefrom(Pid) ->
receive receive
{Pid, R} -> {Pid, R} ->
R; R;
{'DOWN', _, _, BadPid, Reason} when Reason =/= normal -> {'DOWN', _, _, Pid, Reason} when Reason =/= normal ->
erlang:throw({BadPid, Reason}); erlang:throw({Pid, Reason});
{timerrang, _} -> {timerrang, _} ->
erlang:throw({nil, timeout}) erlang:throw({nil, timeout})
end. end.

8
test/ec_plists_tests.erl
View file

@ -74,3 +74,11 @@ ftmap_bad_test() ->
?assertMatch([{value, 1}, {error,{throw,test_exception}}, {value, 3}, ?assertMatch([{value, 1}, {error,{throw,test_exception}}, {value, 3},
{value, 4}, {value, 5}] , Results). {value, 4}, {value, 5}] , Results).
external_down_message_test() ->
erlang:spawn_monitor(fun() -> erlang:throw(fail) end),
Results = ec_plists:map(fun(_) ->
ok
end,
lists:seq(1, 5)),
?assertMatch([ok, ok, ok, ok, ok],
Results).