Packages
commanded
0.15.0
1.4.10
1.4.9
1.4.8
1.4.7
1.4.6
1.4.3
1.4.2
1.4.1
1.4.0
1.4.0-rc.0
1.3.1
1.3.0
1.2.0
1.1.1
1.1.0
1.0.1
1.0.0
1.0.0-rc.1
1.0.0-rc.0
0.19.1
0.19.0
0.18.1
0.18.0
0.17.5
0.17.4
0.17.3
0.17.2
0.17.1
0.17.0
0.16.0
0.16.0-rc.1
0.16.0-rc.0
0.15.1
0.15.0
0.14.0
0.14.0-rc.0
0.13.0
0.12.0
0.11.0
0.10.0
0.9.0
0.8.5
0.8.4
0.8.3
0.8.1
0.8.0
0.7.1
0.6.2
0.6.1
0.6.0
0.4.0
0.3.1
0.3.0
0.2.1
0.2.0
0.1.0
Use Commanded to build your own Elixir applications following the CQRS/ES pattern.
Current section
Files
Jump to
Current section
Files
test/process_managers/process_manager_error_handling_test.exs
defmodule Commanded.ProcessManager.ProcessManagerErrorHandlingTest do
use Commanded.StorageCase
alias Commanded.Helpers.ProcessHelper
alias Commanded.ProcessManagers.{
ErrorHandlingProcessManager,
ErrorRouter,
}
alias Commanded.ProcessManagers.ErrorAggregate.Commands.StartProcess
setup do
reply_to = self()
{:ok, agent} = Agent.start_link(fn -> reply_to end, name: {:global, ErrorHandlingProcessManager})
on_exit fn ->
ProcessHelper.shutdown(agent)
end
end
test "should retry the event until process manager requests stop" do
process_uuid = UUID.uuid4()
command = %StartProcess{
process_uuid: process_uuid,
strategy: "retry",
reply_to: reply_to(),
}
{:ok, process_router} = ErrorHandlingProcessManager.start_link()
Process.unlink(process_router)
ref = Process.monitor(process_router)
assert :ok = ErrorRouter.dispatch(command)
assert_receive {:error, :failed, %{attempts: 1}}
assert_receive {:error, :failed, %{attempts: 2}}
assert_receive {:error, :too_many_attempts, %{attempts: 3}}
# should shutdown process router
assert_receive {:DOWN, ^ref, _, _, _}
end
test "should retry event with specified delay between attempts" do
process_uuid = UUID.uuid4()
command = %StartProcess{
process_uuid: process_uuid,
strategy: "retry",
delay: 10,
reply_to: reply_to(),
}
{:ok, process_router} = ErrorHandlingProcessManager.start_link()
Process.unlink(process_router)
ref = Process.monitor(process_router)
assert :ok = ErrorRouter.dispatch(command)
assert_receive {:error, :failed, %{attempts: 1, delay: 10}}
assert_receive {:error, :failed, %{attempts: 2, delay: 10}}
assert_receive {:error, :too_many_attempts, %{attempts: 3}}
# should shutdown process router
assert_receive {:DOWN, ^ref, _, _, _}
end
test "should skip the event when error reply is `{:skip, :continue_pending}`" do
process_uuid = UUID.uuid4()
command = %StartProcess{
process_uuid: process_uuid,
strategy: "skip",
reply_to: reply_to(),
}
{:ok, process_router} = ErrorHandlingProcessManager.start_link()
assert :ok = ErrorRouter.dispatch(command)
assert_receive {:error, :failed, %{attempts: 1}}
refute_receive {:error, :failed, %{attempts: 2}}
# should not shutdown process router
assert Process.alive?(process_router)
end
test "should continue with modified command" do
process_uuid = UUID.uuid4()
command = %StartProcess{
process_uuid: process_uuid,
strategy: "continue",
reply_to: reply_to(),
}
{:ok, process_router} = ErrorHandlingProcessManager.start_link()
assert :ok = ErrorRouter.dispatch(command)
assert_receive {:error, :failed, %{attempts: 1}}
assert_receive :process_continued
# should not shutdown process router
assert Process.alive?(process_router)
end
test "should stop process manager on error by default" do
process_uuid = UUID.uuid4()
command = %StartProcess{process_uuid: process_uuid}
{:ok, process_router} = ErrorHandlingProcessManager.start_link()
Process.unlink(process_router)
ref = Process.monitor(process_router)
assert :ok = ErrorRouter.dispatch(command)
# should shutdown process router
assert_receive {:DOWN, ^ref, _, _, _}
refute Process.alive?(process_router)
end
defp reply_to, do: self() |> :erlang.pid_to_list()
end