Work on test case for secure channel

This commit is contained in:
Eishun Kondoh 2017-11-20 16:57:37 +09:00
parent e52fe31b79
commit 2c0b0024a1
11 changed files with 603 additions and 16 deletions

View file

@ -47,7 +47,7 @@ is_exists(Tid, Xid) ->
%% Private functions
ms_for_exists(Xid) ->
ets:fun2ms(fun(#?ENTRY{xid = TXid}) when TXid < Xid -> true end).
ets:fun2ms(fun(#?ENTRY{xid = TXid}) when TXid == Xid -> true end).
ms_for_get(Xid) ->
ets:fun2ms(fun(#?ENTRY{xid = TXid} = E) when TXid == Xid -> E end).
@ -56,6 +56,6 @@ ms_for_update(Xid, Msg) ->
ets:fun2ms(fun(#?ENTRY{xid = TXid} = E) when TXid == Xid -> E#?ENTRY{pending = Msg} end).
ms_for_handle_error(Tid, Xid, Error) ->
[Orig|_] = get(Tid, Xid),
[#?ENTRY{orig = Orig}|_] = get(Tid, Xid),
Error1 = maps:merge(Error, #{data => Orig}),
ets:fun2ms(fun(#?ENTRY{xid = TXid} = E) when TXid == Xid -> E#?ENTRY{pending = Error1} end).