WIP: trigger encode error

Run in erlang shell:
ip link del gtp0; rebar3 shell --config ./config/local.config

Then do:
eunit:test(aaa_diameter_s6b,[verbose]).

Change-Id: I9f83ec2c4b8e09d2e01000bfa695c41129021cb7

src/aaa_diameter_s6b.erl

@@ -40,6 +40,7 @@
 
 -behaviour(gen_server).
 
+-include_lib("eunit/include/eunit.hrl").
 -include_lib("diameter/include/diameter_gen_base_rfc6733.hrl").
 -include_lib("diameter_3gpp_ts29_273_s6b.hrl").
 
@@ -221,3 +222,17 @@ diameter_call(Msg, State) ->
     diameter:call(?SVC_NAME, ?APP_ALIAS, Msg, [{timeout, State#s6b_state.tx_timeout},
                                                 detach]).
 
+
+%% TESTING:
+reverse_test() ->
+    State = #s6b_state{tx_timeout = 10000},
+    Imsi = "262422638508077",
+    SessionId = diameter:session_id(application:get_env(?ENV_APP_NAME, dia_s6b_origin_host, ?ENV_DEFAULT_ORIG_HOST)),
+    ASR = #'ASR'{'Session-Id' = SessionId,
+                 'Auth-Application-Id' = ?DIAMETER_APP_ID_S6b,
+                 'User-Name' = Imsi,
+                 'Auth-Session-State' = ?'AUTH-SESSION-STATE_NO_STATE_MAINTAINED'
+                },
+    lager:debug("S6b Tx ASR: ~p~n", [ASR]),
+    Ret = diameter_call(ASR, State),
+    ok = Ret.