fixeria submitted this change.
test: move S1AP PDU samples (blobs) into their own file
This allows using these samples from other (upcoming) tests.
Change-Id: I4b1d3f3a009009ab7620656a3b906e60481e47a1
---
M test/s1ap_proxy_test.erl
A test/s1ap_samples.erl
2 files changed, 423 insertions(+), 396 deletions(-)
diff --git a/test/s1ap_proxy_test.erl b/test/s1ap_proxy_test.erl
index f21a227..8e05b99 100644
--- a/test/s1ap_proxy_test.erl
+++ b/test/s1ap_proxy_test.erl
@@ -100,8 +100,8 @@
%% ------------------------------------------------------------------
test_s1_setup(#{handler := Pid}) ->
- SetupReq = s1_setup_req_pdu(),
- SetupRsp = s1_setup_rsp_pdu(),
+ SetupReq = s1ap_samples:s1_setup_req_pdu(),
+ SetupRsp = s1ap_samples:s1_setup_rsp_pdu(),
%% Expect the PDUs to be proxied unmodified
[?_assertEqual({forward, SetupReq}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertEqual({forward, SetupRsp}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -117,14 +117,14 @@
test_e_rab_setup(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReqIn = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
- SetupReqExp = e_rab_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
+ SetupReqIn = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReqExp = s1ap_samples:e_rab_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRspIn = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
- SetupRspExp = e_rab_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
+ SetupRspIn = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRspExp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
- [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_req_pdu())),
- ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_rsp_pdu())),
+ [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_req_pdu())),
+ ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_rsp_pdu())),
?_assertEqual({forward, SetupReqExp}, s1ap_proxy:process_pdu(Pid, SetupReqIn)),
?_assertEqual({forward, SetupRspExp}, s1ap_proxy:process_pdu(Pid, SetupRspIn)),
%% global counters
@@ -151,8 +151,8 @@
pfcp_mock:mock_req(session_establish_req, PDU),
%% eNB <- [S1GW <- MME] E-RAB SETUP REQUEST
%% eNB -- [S1GW -> MME] E-RAB SETUP RESPONSE (failure)
- SetupReqIn = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
- SetupRspExp = e_rab_setup_rsp_fail_pdu(),
+ SetupReqIn = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupRspExp = s1ap_samples:e_rab_setup_rsp_fail_pdu(),
[?_assertEqual({reply, SetupRspExp}, s1ap_proxy:process_pdu(Pid, SetupReqIn)),
?_assertMetric(?S1GW_CTR_S1AP_PROXY_IN_PKT_ALL, 1),
@@ -166,15 +166,15 @@
test_e_rab_setup_rsp_during_release(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReqIn = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
- SetupReqExp = e_rab_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
+ SetupReqIn = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReqExp = s1ap_samples:e_rab_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRspIn = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
- SetupRspExp = e_rab_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
+ SetupRspIn = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRspExp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
%% [eNB <- MME] E-RAB RELEASE COMMAND
- ReleaseCmd = e_rab_release_cmd_pdu(),
+ ReleaseCmd = s1ap_samples:e_rab_release_cmd_pdu(),
%% [eNB -> MME] E-RAB RELEASE RESPONSE
- ReleaseRsp = e_rab_release_rsp_pdu(),
+ ReleaseRsp = s1ap_samples:e_rab_release_rsp_pdu(),
[%% MME orders allocation of an E-RAB
?_assertEqual({forward, SetupReqExp}, s1ap_proxy:process_pdu(Pid, SetupReqIn)),
@@ -199,12 +199,12 @@
test_e_rab_setup_dup(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReqIn = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReqIn = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRspIn = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRspIn = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% eNB <- [S1GW <- MME] E-RAB SETUP REQUEST (duplicate)
%% eNB -- [S1GW -> MME] E-RAB SETUP RESPONSE (failure)
- SetupRspExp = e_rab_setup_rsp_fail_pdu(),
+ SetupRspExp = s1ap_samples:e_rab_setup_rsp_fail_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReqIn)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRspIn)),
@@ -216,13 +216,13 @@
test_e_rab_release_cmd(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB <- MME] E-RAB RELEASE COMMAND
- ReleaseCmd = e_rab_release_cmd_pdu(),
+ ReleaseCmd = s1ap_samples:e_rab_release_cmd_pdu(),
%% [eNB -> MME] E-RAB RELEASE RESPONSE
- ReleaseRsp = e_rab_release_rsp_pdu(),
+ ReleaseRsp = s1ap_samples:e_rab_release_rsp_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -240,11 +240,11 @@
test_e_rab_release_ind(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB -> MME] E-RAB RELEASE INDICATION
- ReleaseInd = e_rab_release_ind_pdu(),
+ ReleaseInd = s1ap_samples:e_rab_release_ind_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -258,18 +258,18 @@
test_e_rab_modify_req_rsp(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% eNB <- [S1GW <- MME] E-RAB MODIFY REQUEST (new F-TEID)
- ModifyReqIn = e_rab_modify_req_pdu(?ADDR_U2CM, ?TEID_U2CM),
+ ModifyReqIn = s1ap_samples:e_rab_modify_req_pdu(?ADDR_U2CM, ?TEID_U2CM),
%% [eNB <- S1GW] <- MME E-RAB MODIFY REQUEST
%% for the eNB F-TEID remains unchanged
- ModifyReqExp = e_rab_modify_req_pdu(?ADDR_A2U, ?TEID_A2U),
+ ModifyReqExp = s1ap_samples:e_rab_modify_req_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] E-RAB MODIFY RESPONSE
- ModifyRsp = e_rab_modify_rsp_pdu(),
+ ModifyRsp = s1ap_samples:e_rab_modify_rsp_pdu(),
%% [eNB -> MME] E-RAB RELEASE INDICATION
- ReleaseInd = e_rab_release_ind_pdu(),
+ ReleaseInd = s1ap_samples:e_rab_release_ind_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -287,15 +287,15 @@
test_e_rab_modify_req_rsp_fail(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB <- MME] E-RAB MODIFY REQUEST (new F-TEID)
- ModifyReq = e_rab_modify_req_pdu(?ADDR_U2CM, ?TEID_U2CM),
+ ModifyReq = s1ap_samples:e_rab_modify_req_pdu(?ADDR_U2CM, ?TEID_U2CM),
%% [eNB -> MME] E-RAB MODIFY RESPONSE (failure)
- ModifyRsp = e_rab_modify_rsp_fail_pdu(),
+ ModifyRsp = s1ap_samples:e_rab_modify_rsp_fail_pdu(),
%% [eNB -> MME] E-RAB RELEASE INDICATION
- ReleaseInd = e_rab_release_ind_pdu(),
+ ReleaseInd = s1ap_samples:e_rab_release_ind_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -313,18 +313,18 @@
test_e_rab_modify_ind_cnf_modified(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB -> S1GW] -> MME E-RAB MODIFICATION INDICATION (new F-TEID)
- ModifyIndIn = e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
+ ModifyIndIn = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
%% eNB -> [S1GW -> MME] E-RAB MODIFICATION INDICATION
%% for the MME F-TEID remains unchanged
- ModifyIndExp = e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
+ ModifyIndExp = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
%% [eNB <- MME] E-RAB MODIFICATION CONFIRMATION
- ModifyCnf = e_rab_modify_cnf_pdu(modified),
+ ModifyCnf = s1ap_samples:e_rab_modify_cnf_pdu(modified),
%% [eNB -> MME] E-RAB RELEASE INDICATION
- ReleaseInd = e_rab_release_ind_pdu(),
+ ReleaseInd = s1ap_samples:e_rab_release_ind_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -342,18 +342,18 @@
test_e_rab_modify_ind_cnf_not_modified(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB -> S1GW] -> MME E-RAB MODIFICATION INDICATION (new F-TEID)
- ModifyIndIn = e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
+ ModifyIndIn = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
%% eNB -> [S1GW -> MME] E-RAB MODIFICATION INDICATION
%% for the MME F-TEID remains unchanged
- ModifyIndExp = e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
+ ModifyIndExp = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
%% [eNB <- MME] E-RAB MODIFICATION CONFIRMATION
- ModifyCnf = e_rab_modify_cnf_pdu(not_modified),
+ ModifyCnf = s1ap_samples:e_rab_modify_cnf_pdu(not_modified),
%% [eNB -> MME] E-RAB RELEASE INDICATION
- ReleaseInd = e_rab_release_ind_pdu(),
+ ReleaseInd = s1ap_samples:e_rab_release_ind_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -371,16 +371,16 @@
test_e_rab_modify_ind_cnf_release(#{handler := Pid}) ->
%% [eNB <- MME] E-RAB SETUP REQUEST
- SetupReq = e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ SetupReq = s1ap_samples:e_rab_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] E-RAB SETUP RESPONSE
- SetupRsp = e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ SetupRsp = s1ap_samples:e_rab_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB -> S1GW] -> MME E-RAB MODIFICATION INDICATION (new F-TEID)
- ModifyIndIn = e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
+ ModifyIndIn = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_U2AM, ?TEID_U2AM),
%% eNB -> [S1GW -> MME] E-RAB MODIFICATION INDICATION
%% for the MME F-TEID remains unchanged
- ModifyIndExp = e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
+ ModifyIndExp = s1ap_samples:e_rab_modify_ind_pdu(?ADDR_C2U, ?TEID_C2U),
%% [eNB <- MME] E-RAB MODIFICATION CONFIRMATION
- ModifyCnf = e_rab_modify_cnf_pdu(release),
+ ModifyCnf = s1ap_samples:e_rab_modify_cnf_pdu(release),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, SetupRsp)),
@@ -397,14 +397,14 @@
test_initial_context_setup(#{handler := Pid}) ->
%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
- InitCtxSetupReqIn = initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
- InitCtxSetupReqExp = initial_context_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
+ InitCtxSetupReqIn = s1ap_samples:initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ InitCtxSetupReqExp = s1ap_samples:initial_context_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRspIn = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
- InitCtxSetupRspExp = initial_context_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
+ InitCtxSetupRspIn = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRspExp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
- [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_req_pdu())),
- ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_rsp_pdu())),
+ [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_req_pdu())),
+ ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_rsp_pdu())),
?_assertEqual({forward, InitCtxSetupReqExp}, s1ap_proxy:process_pdu(Pid, InitCtxSetupReqIn)),
?_assertEqual({forward, InitCtxSetupRspExp}, s1ap_proxy:process_pdu(Pid, InitCtxSetupRspIn)),
%% global counters
@@ -427,9 +427,9 @@
test_initial_context_setup_dup(#{handler := Pid}) ->
%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
- InitCtxSetupReqIn = initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ InitCtxSetupReqIn = s1ap_samples:initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRspIn = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRspIn = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupReqIn)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupRspIn)),
@@ -441,17 +441,17 @@
test_initial_context_setup_rsp_during_release(#{handler := Pid}) ->
%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
- InitCtxSetupReq = initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
- InitCtxSetupReqExp = initial_context_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
+ InitCtxSetupReq = s1ap_samples:initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ InitCtxSetupReqExp = s1ap_samples:initial_context_setup_req_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRsp = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
- InitCtxSetupRspExp = initial_context_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
+ InitCtxSetupRsp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRspExp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_C2U, ?TEID_C2U),
%% [eNB -> MME] UE CONTEXT RELEASE REQUEST
- UeCtxReleaseReq = ue_ctx_release_req_pdu(),
+ UeCtxReleaseReq = s1ap_samples:ue_ctx_release_req_pdu(),
%% [eNB <- MME] UE CONTEXT RELEASE COMMAND
- UeCtxReleaseCmd = ue_ctx_release_cmd_pdu(),
+ UeCtxReleaseCmd = s1ap_samples:ue_ctx_release_cmd_pdu(),
%% [eNB -> MME] UE CONTEXT RELEASE COMPLETE
- UeCtxReleaseCompl = ue_ctx_release_compl_pdu(),
+ UeCtxReleaseCompl = s1ap_samples:ue_ctx_release_compl_pdu(),
[%% MME orders creation of the UE context
?_assertMatch({forward, InitCtxSetupReqExp}, s1ap_proxy:process_pdu(Pid, InitCtxSetupReq)),
@@ -479,9 +479,9 @@
test_handover_preparation(#{handler := Pid}) ->
%% [eNB -> MME] HANDOVER REQUIRED
- HandoverRqd = handover_required(),
+ HandoverRqd = s1ap_samples:handover_required_pdu(),
%% [MME -> eNB] HANDOVER COMMAND
- HandoverCmd = handover_command(),
+ HandoverCmd = s1ap_samples:handover_command_pdu(),
[?_assertMatch({forward, HandoverRqd}, s1ap_proxy:process_pdu(Pid, HandoverRqd)),
?_assertMatch({forward, HandoverCmd}, s1ap_proxy:process_pdu(Pid, HandoverCmd)),
@@ -494,14 +494,14 @@
test_handover_res_alloc(#{handler := Pid}) ->
%% [MME -> eNB] HANDOVER REQUEST
- HandoverReqIn = handover_request(?ADDR_U2C, ?TEID_U2C),
- HandoverReqExp = handover_request(?ADDR_A2U, ?TEID_A2U),
+ HandoverReqIn = s1ap_samples:handover_request_pdu(?ADDR_U2C, ?TEID_U2C),
+ HandoverReqExp = s1ap_samples:handover_request_pdu(?ADDR_A2U, ?TEID_A2U),
%% [eNB -> MME] HANDOVER REQUEST ACKNOWLEDGE
- HandoverAckIn = handover_request_ack(?ADDR_U2A, ?TEID_U2A),
- HandoverAckExp = handover_request_ack(?ADDR_C2U, ?TEID_C2U),
+ HandoverAckIn = s1ap_samples:handover_request_ack_pdu(?ADDR_U2A, ?TEID_U2A),
+ HandoverAckExp = s1ap_samples:handover_request_ack_pdu(?ADDR_C2U, ?TEID_C2U),
- [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_req_pdu())),
- ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_rsp_pdu())),
+ [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_req_pdu())),
+ ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_rsp_pdu())),
?_assertEqual({forward, HandoverReqExp}, s1ap_proxy:process_pdu(Pid, HandoverReqIn)),
?_assertEqual({forward, HandoverAckExp}, s1ap_proxy:process_pdu(Pid, HandoverAckIn)),
%% global counters
@@ -523,11 +523,11 @@
test_ue_ctx_release_req(#{handler := Pid}) ->
%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
- InitCtxSetupReq = initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ InitCtxSetupReq = s1ap_samples:initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRsp = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRsp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB -> MME] UE CONTEXT RELEASE REQUEST
- UeCtxReleaseReq = ue_ctx_release_req_pdu(),
+ UeCtxReleaseReq = s1ap_samples:ue_ctx_release_req_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupRsp)),
@@ -544,13 +544,13 @@
test_ue_ctx_release_cmd(#{handler := Pid}) ->
%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
- InitCtxSetupReq = initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
+ InitCtxSetupReq = s1ap_samples:initial_context_setup_req_pdu(?ADDR_U2C, ?TEID_U2C),
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRsp = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRsp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
%% [eNB <- MME] UE CONTEXT RELEASE COMMAND
- UeCtxReleaseCmd = ue_ctx_release_cmd_pdu(),
+ UeCtxReleaseCmd = s1ap_samples:ue_ctx_release_cmd_pdu(),
%% [eNB -> MME] UE CONTEXT RELEASE COMPLETE
- UeCtxReleaseCompl = ue_ctx_release_compl_pdu(),
+ UeCtxReleaseCompl = s1ap_samples:ue_ctx_release_compl_pdu(),
[?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupReq)),
?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupRsp)),
@@ -574,10 +574,10 @@
test_drop_proc_error(#{handler := Pid}) ->
%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
- InitCtxSetupRsp = initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
+ InitCtxSetupRsp = s1ap_samples:initial_context_setup_rsp_pdu(?ADDR_U2A, ?TEID_U2A),
- [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_req_pdu())),
- ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1_setup_rsp_pdu())),
+ [?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_req_pdu())),
+ ?_assertMatch({forward, _}, s1ap_proxy:process_pdu(Pid, s1ap_samples:s1_setup_rsp_pdu())),
%% INITIAL CONTEXT SETUP RESPONSE without prior request
%% "Failed to process INITIAL CONTEXT SETUP RESPONSE: erab_not_registered"
?_assertMatch({drop, _}, s1ap_proxy:process_pdu(Pid, InitCtxSetupRsp)),
@@ -591,313 +591,4 @@
?_assertMetricENB(?S1GW_CTR_S1AP_PROXY_IN_PKT_DROP_ALL, 1)].
-%% ------------------------------------------------------------------
-%% S1AP PDU templates
-%% ------------------------------------------------------------------
-
-%% S1 SETUP REQUEST
-s1_setup_req_pdu() ->
- << 16#00, 16#11, 16#00, 16#1a, 16#00, 16#00, 16#02, 16#00,
- 16#3b, 16#40, 16#08, 16#00, 16#00, 16#f1, 16#10, 16#00,
- 16#00, 16#00, 16#00, 16#00, 16#40, 16#00, 16#07, 16#00,
- 16#0c, 16#0e, 16#40, 16#00, 16#f1, 16#10
- >>.
-
-
-%% S1 SETUP RESPONSE
-s1_setup_rsp_pdu() ->
- << 16#20, 16#11, 16#00, 16#29, 16#00, 16#00, 16#03, 16#00,
- 16#3d, 16#40, 16#0e, 16#05, 16#80, 16#6f, 16#70, 16#65,
- 16#6e, 16#35, 16#67, 16#73, 16#2d, 16#6d, 16#6d, 16#65,
- 16#30, 16#00, 16#69, 16#00, 16#0b, 16#00, 16#00, 16#00,
- 16#f1, 16#10, 16#00, 16#00, 16#00, 16#02, 16#00, 16#01,
- 16#00, 16#57, 16#40, 16#01, 16#ff
- >>.
-
-
-%% [eNB <- MME] E-RAB SETUP REQUEST
-e_rab_setup_req_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#00, 16#05, 16#00, 16#80, 16#9b, 16#00, 16#00, 16#03,
- 16#00, 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08,
- 16#00, 16#02, 16#00, 16#09, 16#00, 16#10, 16#00, 16#80,
- 16#87, 16#00, 16#00, 16#11, 16#00, 16#80, 16#81, 16#0c,
- 16#00, 16#05, 16#04, 16#0f, 16#80,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big, %% GTP-TEID
- 16#72, 16#27, 16#c8,
- 16#1a, 16#bc, 16#ec, 16#11, 16#62, 16#54, 16#c1, 16#01,
- 16#05, 16#04, 16#03, 16#69, 16#6d, 16#73, 16#05, 16#01,
- 16#c0, 16#a8, 16#65, 16#02, 16#5e, 16#02, 16#b3, 16#8c,
- 16#58, 16#32, 16#27, 16#54, 16#80, 16#80, 16#21, 16#10,
- 16#02, 16#00, 16#00, 16#10, 16#81, 16#06, 16#08, 16#08,
- 16#08, 16#08, 16#83, 16#06, 16#08, 16#08, 16#04, 16#04,
- 16#00, 16#0d, 16#04, 16#08, 16#08, 16#08, 16#08, 16#00,
- 16#0d, 16#04, 16#08, 16#08, 16#04, 16#04, 16#00, 16#03,
- 16#10, 16#20, 16#01, 16#48, 16#60, 16#48, 16#60, 16#00,
- 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#88,
- 16#88, 16#00, 16#03, 16#10, 16#20, 16#01, 16#48, 16#60,
- 16#48, 16#60, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00,
- 16#00, 16#00, 16#88, 16#44, 16#00, 16#0c, 16#04, 16#ac,
- 16#16, 16#00, 16#15, 16#00, 16#10, 16#02, 16#05, 16#78
- >>.
-
-
-%% [eNB -> MME] E-RAB SETUP RESPONSE
-e_rab_setup_rsp_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#20, 16#05, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#09, 16#00, 16#1c, 16#40, 16#0f, 16#00,
- 16#00, 16#27, 16#40, 16#0a, 16#0c, 16#1f,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big %% GTP-TEID
- >>.
-
-
-%% [S1GW -> MME] E-RAB SETUP RESPONSE (failure)
-%% Transport-cause: transport-resource-unavailable
-e_rab_setup_rsp_fail_pdu() ->
- << 16#20, 16#05, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#09, 16#00, 16#1d, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20
- >>.
-
-
-%% [eNB <- MME] E-RAB RELEASE COMMAND
-%% TODO: make E-RAB IDs configurable
-e_rab_release_cmd_pdu() ->
- << 16#00, 16#07, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#09, 16#00, 16#21, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
- >>.
-
-
-%% [eNB -> MME] E-RAB RELEASE RESPONSE
-%% TODO: make E-RAB IDs configurable
-e_rab_release_rsp_pdu() ->
- << 16#20, 16#07, 16#00, 16#19, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#09, 16#00, 16#45, 16#40, 16#06, 16#00,
- 16#00, 16#0f, 16#40, 16#01, 16#0c
- >>.
-
-
-%% [eNB -> MME] E-RAB RELEASE INDICATION
-%% TODO: make E-RAB IDs configurable
-e_rab_release_ind_pdu() ->
- << 16#00, 16#08, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#09, 16#00, 16#6e, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
- >>.
-
-
-%% [eNB <- MME] E-RAB MODIFY REQUEST
-e_rab_modify_req_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#00, 16#06, 16#00, 16#2d, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#09, 16#00, 16#1e, 16#00, 16#1a, 16#00,
- 16#00, 16#24, 16#00, 16#15, 16#4c, 16#00, 16#05, 16#04,
- 16#00, 16#00, 16#00, 16#00, 16#b9, 16#00, 16#0a, 16#07,
- 16#c0,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big %% GTP-TEID
- >>.
-
-
-%% [eNB -> MME] E-RAB MODIFY RESPONSE (success)
-e_rab_modify_rsp_pdu() ->
- << 16#20, 16#06, 16#00, 16#19, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#09, 16#00, 16#1f, 16#40, 16#06, 16#00,
- 16#00, 16#25, 16#40, 16#01, 16#0c
- >>.
-
-
-%% [eNB -> MME] E-RAB MODIFY RESPONSE (failure)
-e_rab_modify_rsp_fail_pdu() ->
- << 16#20, 16#06, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#09, 16#00, 16#20, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
- >>.
-
-
-%% [eNB -> MME] E-RAB MODIFICATION INDICATION
-e_rab_modify_ind_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#00, 16#32, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#09, 16#00, 16#c7, 16#00, 16#0f, 16#00,
- 16#00, 16#c8, 16#00, 16#0a, 16#0c, 16#1f,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big %% GTP-TEID
- >>.
-
-
-%% [eNB -> MME] E-RAB MODIFICATION CONFIRMATION
-e_rab_modify_cnf_pdu(Res) ->
- IEs = case Res of
- modified ->
- << 16#00, 16#cb, 16#40, 16#06, 16#00,
- 16#00, 16#cc, 16#40, 16#01, 16#0c >>;
- not_modified ->
- %% cause: transport: transport-resource-unavailable (0)
- << 16#00, 16#cd, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20 >>;
- release ->
- %% cause: transport: transport-resource-unavailable (0)
- << 16#00, 16#d2, 16#40, 16#07, 16#00,
- 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20 >>
- end,
- << 16#20, 16#32, 16#00, (15 + byte_size(IEs)),
- 16#00, 16#00, 16#03, 16#00, 16#00, 16#40, 16#02, 16#00,
- 16#07, 16#00, 16#08, 16#40, 16#02, 16#00, 16#09,
- IEs/bytes
- >>.
-
-
-%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
-initial_context_setup_req_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#00, 16#09, 16#00, 16#81, 16#10, 16#00, 16#00, 16#07,
- 16#00, 16#00, 16#00, 16#02, 16#00, 16#01, 16#00, 16#08,
- 16#00, 16#02, 16#00, 16#01, 16#00, 16#42, 16#00, 16#0a,
- 16#18, 16#3b, 16#9a, 16#ca, 16#00, 16#60, 16#3b, 16#9a,
- 16#ca, 16#00, 16#00, 16#18, 16#00, 16#80, 16#b5, 16#00,
- 16#00, 16#34, 16#00, 16#80, 16#af, 16#45, 16#00, 16#09,
- 16#20, 16#0f, 16#80,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big, %% GTP-TEID
- 16#80, 16#9f, 16#27, 16#bd, 16#de,
- 16#61, 16#4e, 16#02, 16#07, 16#42, 16#02, 16#29, 16#06,
- 16#40, 16#32, 16#f8, 16#10, 16#00, 16#01, 16#00, 16#6e,
- 16#52, 16#05, 16#c1, 16#01, 16#09, 16#09, 16#08, 16#69,
- 16#6e, 16#74, 16#65, 16#72, 16#6e, 16#65, 16#74, 16#05,
- 16#01, 16#c0, 16#a8, 16#64, 16#02, 16#5e, 16#06, 16#fe,
- 16#fe, 16#fa, 16#fa, 16#02, 16#02, 16#58, 16#32, 16#27,
- 16#4d, 16#80, 16#80, 16#21, 16#10, 16#02, 16#00, 16#00,
- 16#10, 16#81, 16#06, 16#08, 16#08, 16#08, 16#08, 16#83,
- 16#06, 16#08, 16#08, 16#04, 16#04, 16#00, 16#0d, 16#04,
- 16#08, 16#08, 16#08, 16#08, 16#00, 16#0d, 16#04, 16#08,
- 16#08, 16#04, 16#04, 16#00, 16#03, 16#10, 16#20, 16#01,
- 16#48, 16#60, 16#48, 16#60, 16#00, 16#00, 16#00, 16#00,
- 16#00, 16#00, 16#00, 16#00, 16#88, 16#88, 16#00, 16#03,
- 16#10, 16#20, 16#01, 16#48, 16#60, 16#48, 16#60, 16#00,
- 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#88,
- 16#44, 16#00, 16#10, 16#02, 16#05, 16#aa, 16#50, 16#0b,
- 16#f6, 16#32, 16#f8, 16#10, 16#00, 16#02, 16#01, 16#c0,
- 16#00, 16#02, 16#86, 16#13, 16#32, 16#f8, 16#10, 16#00,
- 16#01, 16#23, 16#05, 16#f4, 16#04, 16#94, 16#25, 16#f8,
- 16#64, 16#02, 16#01, 16#08, 16#00, 16#6b, 16#00, 16#05,
- 16#1c, 16#00, 16#0e, 16#00, 16#00, 16#00, 16#49, 16#00,
- 16#20, 16#57, 16#5d, 16#d3, 16#66, 16#69, 16#73, 16#4c,
- 16#8c, 16#48, 16#42, 16#76, 16#5f, 16#fe, 16#f9, 16#bd,
- 16#d5, 16#89, 16#08, 16#ae, 16#f6, 16#f4, 16#88, 16#62,
- 16#22, 16#d7, 16#80, 16#fb, 16#36, 16#33, 16#d9, 16#9e,
- 16#9f, 16#00, 16#c0, 16#40, 16#08, 16#35, 16#87, 16#61,
- 16#10, 16#03, 16#ff, 16#ff, 16#74
- >>.
-
-
-%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
-initial_context_setup_rsp_pdu(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#20, 16#09, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#01, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#01, 16#00, 16#33, 16#40, 16#0f, 16#00,
- 16#00, 16#32, 16#40, 16#0a, 16#0a, 16#1f,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big %% GTP-TEID
- >>.
-
-
-%% [eNB -> MME] UE CONTEXT RELEASE REQUEST
-ue_ctx_release_req_pdu() ->
- << 16#00, 16#12, 16#40, 16#14, 16#00, 16#00, 16#03, 16#00,
- 16#00, 16#00, 16#02, 16#00, 16#01, 16#00, 16#08, 16#00,
- 16#02, 16#00, 16#01, 16#00, 16#02, 16#40, 16#01, 16#20
- >>.
-
-
-%% [eNB <- MME] UE CONTEXT RELEASE COMMAND
-ue_ctx_release_cmd_pdu() ->
- << 16#00, 16#17, 16#00, 16#10, 16#00, 16#00, 16#02, 16#00,
- 16#63, 16#00, 16#04, 16#00, 16#01, 16#00, 16#01, 16#00,
- 16#02, 16#40, 16#01, 16#20
- >>.
-
-
-%% [eNB -> MME] UE CONTEXT RELEASE COMPLETE
-ue_ctx_release_compl_pdu() ->
- << 16#20, 16#17, 16#00, 16#0f, 16#00, 16#00, 16#02, 16#00,
- 16#00, 16#40, 16#02, 16#00, 16#01, 16#00, 16#08, 16#40,
- 16#02, 16#00, 16#01
- >>.
-
-
-%% [eNB -> MME] HANDOVER REQUIRED
-handover_required() ->
- << 16#00, 16#00, 16#00, 16#35, 16#00, 16#00, 16#06, 16#00,
- 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
- 16#00, 16#02, 16#00, 16#00, 16#00, 16#01, 16#00, 16#01,
- 16#00, 16#00, 16#02, 16#40, 16#02, 16#04, 16#20, 16#00,
- 16#04, 16#00, 16#0e, 16#00, 16#62, 16#f2, 16#10, 16#40,
- 16#00, 16#00, 16#00, 16#00, 16#62, 16#f2, 16#10, 16#00,
- 16#07, 16#00, 16#68, 16#00, 16#04, 16#03, 16#12, 16#34,
- 16#56
- >>.
-
-
-%% [MME -> eNB] HANDOVER COMMAND
-handover_command() ->
- << 16#20, 16#00, 16#00, 16#28, 16#00, 16#00, 16#05, 16#00,
- 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
- 16#00, 16#02, 16#00, 16#00, 16#00, 16#01, 16#00, 16#01,
- 16#00, 16#00, 16#0c, 16#40, 16#07, 16#00, 16#00, 16#0e,
- 16#40, 16#02, 16#00, 16#00, 16#00, 16#7b, 16#00, 16#04,
- 16#03, 16#12, 16#34, 16#56
- >>.
-
-
-%% [MME -> eNB] HANDOVER REQUEST
-handover_request(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#00, 16#01, 16#00, 16#6f, 16#00, 16#00, 16#08, 16#00,
- 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#01,
- 16#00, 16#01, 16#00, 16#00, 16#02, 16#40, 16#02, 16#04,
- 16#20, 16#00, 16#42, 16#00, 16#0a, 16#18, 16#40, 16#00,
- 16#00, 16#00, 16#60, 16#40, 16#00, 16#00, 16#00, 16#00,
- 16#35, 16#00, 16#12, 16#00, 16#00, 16#1b, 16#00, 16#0d,
- 16#00, 16#1f,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big, %% GTP-TEID
- 16#00, 16#05, 16#04, 16#00, 16#68, 16#00,
- 16#04, 16#03, 16#12, 16#34, 16#56, 16#00, 16#6b, 16#00,
- 16#05, 16#1c, 16#00, 16#0e, 16#00, 16#00, 16#00, 16#28,
- 16#00, 16#21, 16#28, 16#e0, 16#3f, 16#02, 16#35, 16#f1,
- 16#1e, 16#13, 16#68, 16#a8, 16#55, 16#04, 16#db, 16#fb,
- 16#8f, 16#65, 16#2b, 16#8c, 16#c7, 16#1c, 16#7c, 16#87,
- 16#cc, 16#f3, 16#f6, 16#4d, 16#4f, 16#84, 16#5e, 16#e1,
- 16#d2, 16#fc, 16#c6
- >>.
-
-
-%% [eNB -> MME] HANDOVER REQUEST ACKNOWLEDGE
-handover_request_ack(TLA, TEID) when is_binary(TLA),
- is_integer(TEID) ->
- << 16#20, 16#01, 16#00, 16#2c, 16#00, 16#00, 16#04, 16#00,
- 16#00, 16#40, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
- 16#40, 16#02, 16#00, 16#00, 16#00, 16#12, 16#40, 16#10,
- 16#00, 16#00, 16#14, 16#40, 16#0b, 16#00, 16#01, 16#f0,
- TLA/bytes, %% transportLayerAddress (IPv4)
- TEID:32/big, %% GTP-TEID
- 16#00, 16#7b, 16#00, 16#04, 16#03, 16#12, 16#34, 16#56
- >>.
-
-
%% vim:set ts=4 sw=4 et:
diff --git a/test/s1ap_samples.erl b/test/s1ap_samples.erl
new file mode 100644
index 0000000..e3c3ac1
--- /dev/null
+++ b/test/s1ap_samples.erl
@@ -0,0 +1,336 @@
+-module(s1ap_samples).
+
+-export([s1_setup_req_pdu/0,
+ s1_setup_rsp_pdu/0,
+ e_rab_setup_req_pdu/2,
+ e_rab_setup_rsp_pdu/2,
+ e_rab_setup_rsp_fail_pdu/0,
+ e_rab_release_cmd_pdu/0,
+ e_rab_release_rsp_pdu/0,
+ e_rab_release_ind_pdu/0,
+ e_rab_modify_req_pdu/2,
+ e_rab_modify_rsp_pdu/0,
+ e_rab_modify_rsp_fail_pdu/0,
+ e_rab_modify_ind_pdu/2,
+ e_rab_modify_cnf_pdu/1,
+ initial_context_setup_req_pdu/2,
+ initial_context_setup_rsp_pdu/2,
+ ue_ctx_release_req_pdu/0,
+ ue_ctx_release_cmd_pdu/0,
+ ue_ctx_release_compl_pdu/0,
+ handover_required_pdu/0,
+ handover_command_pdu/0,
+ handover_request_pdu/2,
+ handover_request_ack_pdu/2]).
+
+
+%% ------------------------------------------------------------------
+%% S1AP PDU samples
+%% ------------------------------------------------------------------
+
+%% S1 SETUP REQUEST
+s1_setup_req_pdu() ->
+ << 16#00, 16#11, 16#00, 16#1a, 16#00, 16#00, 16#02, 16#00,
+ 16#3b, 16#40, 16#08, 16#00, 16#00, 16#f1, 16#10, 16#00,
+ 16#00, 16#00, 16#00, 16#00, 16#40, 16#00, 16#07, 16#00,
+ 16#0c, 16#0e, 16#40, 16#00, 16#f1, 16#10
+ >>.
+
+
+%% S1 SETUP RESPONSE
+s1_setup_rsp_pdu() ->
+ << 16#20, 16#11, 16#00, 16#29, 16#00, 16#00, 16#03, 16#00,
+ 16#3d, 16#40, 16#0e, 16#05, 16#80, 16#6f, 16#70, 16#65,
+ 16#6e, 16#35, 16#67, 16#73, 16#2d, 16#6d, 16#6d, 16#65,
+ 16#30, 16#00, 16#69, 16#00, 16#0b, 16#00, 16#00, 16#00,
+ 16#f1, 16#10, 16#00, 16#00, 16#00, 16#02, 16#00, 16#01,
+ 16#00, 16#57, 16#40, 16#01, 16#ff
+ >>.
+
+
+%% [eNB <- MME] E-RAB SETUP REQUEST
+e_rab_setup_req_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#00, 16#05, 16#00, 16#80, 16#9b, 16#00, 16#00, 16#03,
+ 16#00, 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08,
+ 16#00, 16#02, 16#00, 16#09, 16#00, 16#10, 16#00, 16#80,
+ 16#87, 16#00, 16#00, 16#11, 16#00, 16#80, 16#81, 16#0c,
+ 16#00, 16#05, 16#04, 16#0f, 16#80,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big, %% GTP-TEID
+ 16#72, 16#27, 16#c8,
+ 16#1a, 16#bc, 16#ec, 16#11, 16#62, 16#54, 16#c1, 16#01,
+ 16#05, 16#04, 16#03, 16#69, 16#6d, 16#73, 16#05, 16#01,
+ 16#c0, 16#a8, 16#65, 16#02, 16#5e, 16#02, 16#b3, 16#8c,
+ 16#58, 16#32, 16#27, 16#54, 16#80, 16#80, 16#21, 16#10,
+ 16#02, 16#00, 16#00, 16#10, 16#81, 16#06, 16#08, 16#08,
+ 16#08, 16#08, 16#83, 16#06, 16#08, 16#08, 16#04, 16#04,
+ 16#00, 16#0d, 16#04, 16#08, 16#08, 16#08, 16#08, 16#00,
+ 16#0d, 16#04, 16#08, 16#08, 16#04, 16#04, 16#00, 16#03,
+ 16#10, 16#20, 16#01, 16#48, 16#60, 16#48, 16#60, 16#00,
+ 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#88,
+ 16#88, 16#00, 16#03, 16#10, 16#20, 16#01, 16#48, 16#60,
+ 16#48, 16#60, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00,
+ 16#00, 16#00, 16#88, 16#44, 16#00, 16#0c, 16#04, 16#ac,
+ 16#16, 16#00, 16#15, 16#00, 16#10, 16#02, 16#05, 16#78
+ >>.
+
+
+%% [eNB -> MME] E-RAB SETUP RESPONSE
+e_rab_setup_rsp_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#20, 16#05, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#09, 16#00, 16#1c, 16#40, 16#0f, 16#00,
+ 16#00, 16#27, 16#40, 16#0a, 16#0c, 16#1f,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big %% GTP-TEID
+ >>.
+
+
+%% [S1GW -> MME] E-RAB SETUP RESPONSE (failure)
+%% Transport-cause: transport-resource-unavailable
+e_rab_setup_rsp_fail_pdu() ->
+ << 16#20, 16#05, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#09, 16#00, 16#1d, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20
+ >>.
+
+
+%% [eNB <- MME] E-RAB RELEASE COMMAND
+%% TODO: make E-RAB IDs configurable
+e_rab_release_cmd_pdu() ->
+ << 16#00, 16#07, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#09, 16#00, 16#21, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
+ >>.
+
+
+%% [eNB -> MME] E-RAB RELEASE RESPONSE
+%% TODO: make E-RAB IDs configurable
+e_rab_release_rsp_pdu() ->
+ << 16#20, 16#07, 16#00, 16#19, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#09, 16#00, 16#45, 16#40, 16#06, 16#00,
+ 16#00, 16#0f, 16#40, 16#01, 16#0c
+ >>.
+
+
+%% [eNB -> MME] E-RAB RELEASE INDICATION
+%% TODO: make E-RAB IDs configurable
+e_rab_release_ind_pdu() ->
+ << 16#00, 16#08, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#09, 16#00, 16#6e, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
+ >>.
+
+
+%% [eNB <- MME] E-RAB MODIFY REQUEST
+e_rab_modify_req_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#00, 16#06, 16#00, 16#2d, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#09, 16#00, 16#1e, 16#00, 16#1a, 16#00,
+ 16#00, 16#24, 16#00, 16#15, 16#4c, 16#00, 16#05, 16#04,
+ 16#00, 16#00, 16#00, 16#00, 16#b9, 16#00, 16#0a, 16#07,
+ 16#c0,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big %% GTP-TEID
+ >>.
+
+
+%% [eNB -> MME] E-RAB MODIFY RESPONSE (success)
+e_rab_modify_rsp_pdu() ->
+ << 16#20, 16#06, 16#00, 16#19, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#09, 16#00, 16#1f, 16#40, 16#06, 16#00,
+ 16#00, 16#25, 16#40, 16#01, 16#0c
+ >>.
+
+
+%% [eNB -> MME] E-RAB MODIFY RESPONSE (failure)
+e_rab_modify_rsp_fail_pdu() ->
+ << 16#20, 16#06, 16#00, 16#1a, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#07, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#09, 16#00, 16#20, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#40
+ >>.
+
+
+%% [eNB -> MME] E-RAB MODIFICATION INDICATION
+e_rab_modify_ind_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#00, 16#32, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#07, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#09, 16#00, 16#c7, 16#00, 16#0f, 16#00,
+ 16#00, 16#c8, 16#00, 16#0a, 16#0c, 16#1f,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big %% GTP-TEID
+ >>.
+
+
+%% [eNB -> MME] E-RAB MODIFICATION CONFIRMATION
+e_rab_modify_cnf_pdu(Res) ->
+ IEs = case Res of
+ modified ->
+ << 16#00, 16#cb, 16#40, 16#06, 16#00,
+ 16#00, 16#cc, 16#40, 16#01, 16#0c >>;
+ not_modified ->
+ %% cause: transport: transport-resource-unavailable (0)
+ << 16#00, 16#cd, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20 >>;
+ release ->
+ %% cause: transport: transport-resource-unavailable (0)
+ << 16#00, 16#d2, 16#40, 16#07, 16#00,
+ 16#00, 16#23, 16#40, 16#02, 16#0c, 16#20 >>
+ end,
+ << 16#20, 16#32, 16#00, (15 + byte_size(IEs)),
+ 16#00, 16#00, 16#03, 16#00, 16#00, 16#40, 16#02, 16#00,
+ 16#07, 16#00, 16#08, 16#40, 16#02, 16#00, 16#09,
+ IEs/bytes
+ >>.
+
+
+%% [eNB <- MME] INITIAL CONTEXT SETUP REQUEST
+initial_context_setup_req_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#00, 16#09, 16#00, 16#81, 16#10, 16#00, 16#00, 16#07,
+ 16#00, 16#00, 16#00, 16#02, 16#00, 16#01, 16#00, 16#08,
+ 16#00, 16#02, 16#00, 16#01, 16#00, 16#42, 16#00, 16#0a,
+ 16#18, 16#3b, 16#9a, 16#ca, 16#00, 16#60, 16#3b, 16#9a,
+ 16#ca, 16#00, 16#00, 16#18, 16#00, 16#80, 16#b5, 16#00,
+ 16#00, 16#34, 16#00, 16#80, 16#af, 16#45, 16#00, 16#09,
+ 16#20, 16#0f, 16#80,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big, %% GTP-TEID
+ 16#80, 16#9f, 16#27, 16#bd, 16#de,
+ 16#61, 16#4e, 16#02, 16#07, 16#42, 16#02, 16#29, 16#06,
+ 16#40, 16#32, 16#f8, 16#10, 16#00, 16#01, 16#00, 16#6e,
+ 16#52, 16#05, 16#c1, 16#01, 16#09, 16#09, 16#08, 16#69,
+ 16#6e, 16#74, 16#65, 16#72, 16#6e, 16#65, 16#74, 16#05,
+ 16#01, 16#c0, 16#a8, 16#64, 16#02, 16#5e, 16#06, 16#fe,
+ 16#fe, 16#fa, 16#fa, 16#02, 16#02, 16#58, 16#32, 16#27,
+ 16#4d, 16#80, 16#80, 16#21, 16#10, 16#02, 16#00, 16#00,
+ 16#10, 16#81, 16#06, 16#08, 16#08, 16#08, 16#08, 16#83,
+ 16#06, 16#08, 16#08, 16#04, 16#04, 16#00, 16#0d, 16#04,
+ 16#08, 16#08, 16#08, 16#08, 16#00, 16#0d, 16#04, 16#08,
+ 16#08, 16#04, 16#04, 16#00, 16#03, 16#10, 16#20, 16#01,
+ 16#48, 16#60, 16#48, 16#60, 16#00, 16#00, 16#00, 16#00,
+ 16#00, 16#00, 16#00, 16#00, 16#88, 16#88, 16#00, 16#03,
+ 16#10, 16#20, 16#01, 16#48, 16#60, 16#48, 16#60, 16#00,
+ 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#00, 16#88,
+ 16#44, 16#00, 16#10, 16#02, 16#05, 16#aa, 16#50, 16#0b,
+ 16#f6, 16#32, 16#f8, 16#10, 16#00, 16#02, 16#01, 16#c0,
+ 16#00, 16#02, 16#86, 16#13, 16#32, 16#f8, 16#10, 16#00,
+ 16#01, 16#23, 16#05, 16#f4, 16#04, 16#94, 16#25, 16#f8,
+ 16#64, 16#02, 16#01, 16#08, 16#00, 16#6b, 16#00, 16#05,
+ 16#1c, 16#00, 16#0e, 16#00, 16#00, 16#00, 16#49, 16#00,
+ 16#20, 16#57, 16#5d, 16#d3, 16#66, 16#69, 16#73, 16#4c,
+ 16#8c, 16#48, 16#42, 16#76, 16#5f, 16#fe, 16#f9, 16#bd,
+ 16#d5, 16#89, 16#08, 16#ae, 16#f6, 16#f4, 16#88, 16#62,
+ 16#22, 16#d7, 16#80, 16#fb, 16#36, 16#33, 16#d9, 16#9e,
+ 16#9f, 16#00, 16#c0, 16#40, 16#08, 16#35, 16#87, 16#61,
+ 16#10, 16#03, 16#ff, 16#ff, 16#74
+ >>.
+
+
+%% [eNB -> MME] INITIAL CONTEXT SETUP RESPONSE
+initial_context_setup_rsp_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#20, 16#09, 16#00, 16#22, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#01, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#01, 16#00, 16#33, 16#40, 16#0f, 16#00,
+ 16#00, 16#32, 16#40, 16#0a, 16#0a, 16#1f,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big %% GTP-TEID
+ >>.
+
+
+%% [eNB -> MME] UE CONTEXT RELEASE REQUEST
+ue_ctx_release_req_pdu() ->
+ << 16#00, 16#12, 16#40, 16#14, 16#00, 16#00, 16#03, 16#00,
+ 16#00, 16#00, 16#02, 16#00, 16#01, 16#00, 16#08, 16#00,
+ 16#02, 16#00, 16#01, 16#00, 16#02, 16#40, 16#01, 16#20
+ >>.
+
+
+%% [eNB <- MME] UE CONTEXT RELEASE COMMAND
+ue_ctx_release_cmd_pdu() ->
+ << 16#00, 16#17, 16#00, 16#10, 16#00, 16#00, 16#02, 16#00,
+ 16#63, 16#00, 16#04, 16#00, 16#01, 16#00, 16#01, 16#00,
+ 16#02, 16#40, 16#01, 16#20
+ >>.
+
+
+%% [eNB -> MME] UE CONTEXT RELEASE COMPLETE
+ue_ctx_release_compl_pdu() ->
+ << 16#20, 16#17, 16#00, 16#0f, 16#00, 16#00, 16#02, 16#00,
+ 16#00, 16#40, 16#02, 16#00, 16#01, 16#00, 16#08, 16#40,
+ 16#02, 16#00, 16#01
+ >>.
+
+
+%% [eNB -> MME] HANDOVER REQUIRED
+handover_required_pdu() ->
+ << 16#00, 16#00, 16#00, 16#35, 16#00, 16#00, 16#06, 16#00,
+ 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
+ 16#00, 16#02, 16#00, 16#00, 16#00, 16#01, 16#00, 16#01,
+ 16#00, 16#00, 16#02, 16#40, 16#02, 16#04, 16#20, 16#00,
+ 16#04, 16#00, 16#0e, 16#00, 16#62, 16#f2, 16#10, 16#40,
+ 16#00, 16#00, 16#00, 16#00, 16#62, 16#f2, 16#10, 16#00,
+ 16#07, 16#00, 16#68, 16#00, 16#04, 16#03, 16#12, 16#34,
+ 16#56
+ >>.
+
+
+%% [MME -> eNB] HANDOVER COMMAND
+handover_command_pdu() ->
+ << 16#20, 16#00, 16#00, 16#28, 16#00, 16#00, 16#05, 16#00,
+ 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
+ 16#00, 16#02, 16#00, 16#00, 16#00, 16#01, 16#00, 16#01,
+ 16#00, 16#00, 16#0c, 16#40, 16#07, 16#00, 16#00, 16#0e,
+ 16#40, 16#02, 16#00, 16#00, 16#00, 16#7b, 16#00, 16#04,
+ 16#03, 16#12, 16#34, 16#56
+ >>.
+
+
+%% [MME -> eNB] HANDOVER REQUEST
+handover_request_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#00, 16#01, 16#00, 16#6f, 16#00, 16#00, 16#08, 16#00,
+ 16#00, 16#00, 16#03, 16#40, 16#10, 16#92, 16#00, 16#01,
+ 16#00, 16#01, 16#00, 16#00, 16#02, 16#40, 16#02, 16#04,
+ 16#20, 16#00, 16#42, 16#00, 16#0a, 16#18, 16#40, 16#00,
+ 16#00, 16#00, 16#60, 16#40, 16#00, 16#00, 16#00, 16#00,
+ 16#35, 16#00, 16#12, 16#00, 16#00, 16#1b, 16#00, 16#0d,
+ 16#00, 16#1f,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big, %% GTP-TEID
+ 16#00, 16#05, 16#04, 16#00, 16#68, 16#00,
+ 16#04, 16#03, 16#12, 16#34, 16#56, 16#00, 16#6b, 16#00,
+ 16#05, 16#1c, 16#00, 16#0e, 16#00, 16#00, 16#00, 16#28,
+ 16#00, 16#21, 16#28, 16#e0, 16#3f, 16#02, 16#35, 16#f1,
+ 16#1e, 16#13, 16#68, 16#a8, 16#55, 16#04, 16#db, 16#fb,
+ 16#8f, 16#65, 16#2b, 16#8c, 16#c7, 16#1c, 16#7c, 16#87,
+ 16#cc, 16#f3, 16#f6, 16#4d, 16#4f, 16#84, 16#5e, 16#e1,
+ 16#d2, 16#fc, 16#c6
+ >>.
+
+
+%% [eNB -> MME] HANDOVER REQUEST ACKNOWLEDGE
+handover_request_ack_pdu(TLA, TEID) when is_binary(TLA),
+ is_integer(TEID) ->
+ << 16#20, 16#01, 16#00, 16#2c, 16#00, 16#00, 16#04, 16#00,
+ 16#00, 16#40, 16#03, 16#40, 16#10, 16#92, 16#00, 16#08,
+ 16#40, 16#02, 16#00, 16#00, 16#00, 16#12, 16#40, 16#10,
+ 16#00, 16#00, 16#14, 16#40, 16#0b, 16#00, 16#01, 16#f0,
+ TLA/bytes, %% transportLayerAddress (IPv4)
+ TEID:32/big, %% GTP-TEID
+ 16#00, 16#7b, 16#00, 16#04, 16#03, 16#12, 16#34, 16#56
+ >>.
+
+
+%% vim:set ts=4 sw=4 et:
To view, visit change 41611. To unsubscribe, or for help writing mail filters, visit settings.