/
command_handler_case.ex
218 lines (183 loc) · 5.03 KB
/
command_handler_case.ex
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
defmodule OnePiece.Commanded.TestSupport.CommandHandlerCase do
@moduledoc ~S"""
This module helps with test cases for testing aggregate states, and command handlers.
## Usage
After import the test support file, you should be able to have the module in your test files.
defmodule MyAggregateTest do
use OnePiece.Commanded.TestSupport.CommandHandlerCase,
aggregate: MyAggregate,
# You can also pass `handler` if you are using Command Handler modules
# handler: MyCommandHandler,
async: true
describe "my aggregate" do
test "should do something" do
assert_events(
[%InitialEvent{}],
%DoSomething{},
[%SomethingHappened{}]
)
end
test "the state" do
assert_state(
[%InitialEvent{}],
%DoSomething{},
%MyAggregate{}
)
end
test "the error" do
assert_error(
[%InitialEvent{}],
%DoSomething{},
:already_exists
)
end
end
end
"""
use ExUnit.CaseTemplate
alias Commanded.Aggregate.Multi
alias OnePiece.Commanded.TestSupport.CommandHandlerCase
using opts do
quote do
@aggregate Keyword.fetch!(unquote(opts), :aggregate)
@handler Keyword.get(unquote(opts), :handler, nil)
defp assert_events(initial_events, command, expected_events) do
CommandHandlerCase.assert_events(
initial_events,
command,
expected_events,
@aggregate,
@handler
)
end
defp assert_state(initial_events, command, expected_state) do
CommandHandlerCase.assert_state(
initial_events,
command,
expected_state,
@aggregate,
@handler
)
end
defp assert_error(initial_events, command, expected_error) do
CommandHandlerCase.assert_error(
initial_events,
command,
expected_error,
@aggregate,
@handler
)
end
end
end
def assert_events(
initial_events,
command,
expected_events,
aggregate_module,
command_handler_module
) do
assert {:ok, _state, events} =
aggregate_run(
aggregate_module,
command_handler_module,
initial_events,
command
)
actual_events = List.wrap(events)
expected_events = List.wrap(expected_events)
assert actual_events == expected_events
end
def assert_state(
initial_events,
command,
expected_state,
aggregate_module,
command_handler_module
) do
assert {:ok, state, _events} =
aggregate_run(
aggregate_module,
command_handler_module,
initial_events,
command
)
assert state == expected_state
end
def assert_error(
initial_events,
command,
expected_error,
aggregate_module,
command_handler_module
) do
assert {:error, reason} =
aggregate_run(
aggregate_module,
command_handler_module,
initial_events,
command
)
assert reason == expected_error
end
defp aggregate_run(aggregate_module, command_handler_module, initial_events, command) do
evolver = &aggregate_module.apply/2
decider =
if command_handler_module == nil,
do: &aggregate_module.execute/2,
else: &command_handler_module.handle/2
aggregate_module
|> struct()
|> evolve(initial_events, evolver)
|> execute(command, evolver, decider)
end
defp execute(state, command, evolver, decider) do
try do
{new_state, events} =
state
|> decider.(command)
|> process_response()
|> maybe_evolve(state, evolver)
{:ok, new_state, events}
catch
{:error, _error} = reply -> reply
end
end
defp process_response({:error, _error} = error) do
throw(error)
end
defp process_response(%Multi{} = multi) do
case Multi.run(multi) do
{:error, _reason} = error ->
throw(error)
{state, events} ->
{state, events}
end
end
defp process_response(no_events) when no_events in [:ok, nil, []] do
[]
end
defp process_response({:ok, events}) do
events
end
defp process_response(events) when is_list(events) do
events
end
defp process_response(event) when is_map(event) do
[event]
end
defp process_response(invalid) do
flunk("unexpected: " <> inspect(invalid))
end
defp maybe_evolve({state, events} = _multi_response, _state, _evolver) do
{state, events}
end
defp maybe_evolve(events, state, evolver) do
{evolve(state, events, evolver), events}
end
defp evolve(state, events, evolver) do
events
|> List.wrap()
|> Enum.reduce(state, &evolver.(&2, &1))
end
end