Remove hold from account

src/bank_statem.erl

@@ -2,9 +2,9 @@
 
 -behaviour(gen_statem).
 
--export([start/0, stop/0, get_balance/0, close/0, reopen/0, deposit/1, withdraw/1, place_hold/0]).
+-export([start/0, stop/0, get_balance/0, close/0, reopen/0, deposit/1, withdraw/1, place_hold/0, remove_hold/0]).
 -export([init/1, callback_mode/0]).
--export([open/3, closed/3]).
+-export([open/3, held/3, closed/3]).
 
 name() -> bank_statem.
 
@@ -29,6 +29,9 @@ withdraw(Amount) ->
 place_hold() ->
     gen_statem:call(name(), place_hold).
 
+remove_hold() ->
+    gen_statem:call(name(), remove_hold).
+
 stop() ->
     gen_statem:stop(name()).
 
@@ -54,5 +57,8 @@ open({call, From}, {withdraw, Amount}, #{balance:=Balance} = Data) when is_numbe
     NewBalance = Balance - Amount,
     {keep_state, Data#{balance:=NewBalance}, [{reply, From, withdrawal_made}]}.
 
+held({call, From}, remove_hold, Data) ->
+    {next_state, open, Data, [{reply, From, hold_removed}]}.
+
 closed({call, From}, reopen, Data) ->
     {next_state, open, Data, [{reply, From, open}]}.

test/bank_statem_tests.erl

@@ -38,3 +38,8 @@ place_hold_test() ->
     From = self(),
     Data = #{},
     {next_state, held, Data, [{reply, From, hold_placed}]} = bank_statem:open({call, From}, place_hold, Data).
+
+remove_hold_test() ->
+    From = self(),
+    Data = #{},
+    {next_state, open, Data, [{reply, From, hold_removed}]} = bank_statem:held({call, From}, remove_hold, Data).