|
28 | 28 | -export([recurrent_paytool_abandoned/1]). |
29 | 29 | -export([recurrent_paytool_acquirement_failed/1]). |
30 | 30 | -export([recurrent_paytool_acquired/1]). |
31 | | --export([recurrent_paytool_event_sink/1]). |
32 | 31 | -export([recurrent_paytool_cost/1]). |
33 | 32 | -export([recurrent_paytool_w_tds_acquired/1]). |
34 | 33 |
|
@@ -105,7 +104,6 @@ all() -> |
105 | 104 | get_recurrent_paytool, |
106 | 105 | recurrent_paytool_acquirement_failed, |
107 | 106 | recurrent_paytool_acquired, |
108 | | - recurrent_paytool_event_sink, |
109 | 107 | recurrent_paytool_cost, |
110 | 108 | recurrent_paytool_w_tds_acquired, |
111 | 109 | recurrent_paytool_abandoned, |
@@ -228,7 +226,6 @@ invalid_payment_method(C, BCardFun) -> |
228 | 226 | -spec get_recurrent_paytool(config()) -> test_case_result(). |
229 | 227 | -spec recurrent_paytool_acquirement_failed(config()) -> test_case_result(). |
230 | 228 | -spec recurrent_paytool_acquired(config()) -> test_case_result(). |
231 | | --spec recurrent_paytool_event_sink(config()) -> test_case_result(). |
232 | 229 | -spec recurrent_paytool_cost(config()) -> test_case_result(). |
233 | 230 | -spec recurrent_paytool_w_tds_acquired(config()) -> test_case_result(). |
234 | 231 | -spec recurrent_paytool_abandoned(config()) -> test_case_result(). |
@@ -279,33 +276,6 @@ recurrent_paytool_acquired(C) -> |
279 | 276 | #payproc_RecurrentPaymentTool{id = RecurrentPaytoolID} = RecurrentPaytool, |
280 | 277 | ok = await_acquirement(RecurrentPaytoolID, Client). |
281 | 278 |
|
282 | | -recurrent_paytool_event_sink(C) -> |
283 | | - Client = cfg(client, C), |
284 | | - PaytoolID = hg_utils:unique_id(), |
285 | | - PartyID = cfg(party_id, C), |
286 | | - ShopID = cfg(shop_id, C), |
287 | | - Params = make_recurrent_paytool_params(PaytoolID, PartyID, ShopID, ?pmt_sys(<<"visa-ref">>)), |
288 | | - CreateResult = hg_client_recurrent_paytool:create(Params, Client), |
289 | | - #payproc_RecurrentPaymentTool{id = RecurrentPaytoolID} = CreateResult, |
290 | | - ok = await_acquirement(RecurrentPaytoolID, Client), |
291 | | - AbandonResult = hg_client_recurrent_paytool:abandon(RecurrentPaytoolID, Client), |
292 | | - #payproc_RecurrentPaymentTool{status = {abandoned, _}} = AbandonResult, |
293 | | - [?recurrent_payment_tool_has_abandoned()] = next_event(RecurrentPaytoolID, Client), |
294 | | - Events = hg_client_recurrent_paytool:get_events(RecurrentPaytoolID, #payproc_EventRange{}, Client), |
295 | | - ESEvents = hg_client_recurrent_paytool:get_events(#payproc_EventRange{}, Client), |
296 | | - SourceESEvents = lists:filter( |
297 | | - fun(Event) -> |
298 | | - Event#payproc_RecurrentPaymentToolEvent.source =:= RecurrentPaytoolID |
299 | | - end, |
300 | | - ESEvents |
301 | | - ), |
302 | | - EventIDs = lists:map(fun(Event) -> Event#payproc_RecurrentPaymentToolEvent.id end, Events), |
303 | | - ESEventSequenceIDs = lists:map(fun(Event) -> Event#payproc_RecurrentPaymentToolEvent.sequence end, SourceESEvents), |
304 | | - ?assertEqual(EventIDs, ESEventSequenceIDs), |
305 | | - EventPayloads = lists:map(fun(Event) -> Event#payproc_RecurrentPaymentToolEvent.payload end, Events), |
306 | | - ESEventPayloads = lists:map(fun(Event) -> Event#payproc_RecurrentPaymentToolEvent.payload end, SourceESEvents), |
307 | | - ?assertEqual(EventPayloads, ESEventPayloads). |
308 | | - |
309 | 279 | recurrent_paytool_cost(C) -> |
310 | 280 | Client = cfg(client, C), |
311 | 281 | PaytoolID = hg_utils:unique_id(), |
|
0 commit comments