1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
-module(isup_codec_tests).
-author('Harald Welte <laforge@gnumonks.org>').
-include_lib("eunit/include/eunit.hrl").
-include("isup.hrl").
-include("xua.hrl").
-include("m2ua.hrl").
-include("mtp3.hrl").
% individual message encode/decode tests
-define(ISUP_GRS_BIN, <<1,0,23,1,1,14>>).
-define(ISUP_GRS_DEC, #isup_msg{msg_type = 23,cic = 1, parameters = [{22,{1,<<14>>}}]}).
grs_dec_test() ->
?assertEqual(?ISUP_GRS_DEC, isup_codec:parse_isup_msg(?ISUP_GRS_BIN)).
grs_enc_test() ->
?assertEqual(?ISUP_GRS_BIN, isup_codec:encode_isup_msg(?ISUP_GRS_DEC)).
-define(ISUP_IAM_BIN, <<9,0,1,16,72,0,10,3,2,10,8,131,16,41,153,36,0,128,15,10,8,3,19,148,3,
66,48,147,32,242,21,54,25,8,0,0,21,255,255,255,255,255,255,255,255,
255,255,29,69,56,203,32,0>>).
-define(ISUP_IAM_DEC, {isup_msg,1,9,[{conn_ind_nature,16},{fw_call_ind,18432},{calling_cat,10},{transm_medium_req,3},{4,{party_number,3,0,undefined,1,undefined,undefined,[9,2,9,9,4,2,0,0,0,8,15]}},{10,{party_number,3,undefined,0,1,0,3,[4,9,3,0,2,4,0,3,3,9,0,2]}},{242,{21,<<54,25,8,0,0,21,255,255,255,255,255,255,255,255,255,255,29,69,56,203,32>>}}]}).
iam_dec_test() ->
?assertEqual(?ISUP_IAM_DEC, isup_codec:parse_isup_msg(?ISUP_IAM_BIN)).
iam_enc_test() ->
?assertEqual(?ISUP_IAM_BIN, isup_codec:encode_isup_msg(?ISUP_IAM_DEC)).
% parser test for real-world ISUP data
pcap_parse_test() ->
Args = [{rewrite_fn, fun pcap_cb/5}],
File = "../priv/isup.pcap",
case file:read_file_info(File) of
{ok, _Info} ->
{ok, NrPkts} = osmo_ss7_pcap:pcap_apply("../priv/isup.pcap", "", Args),
?debugFmt("Parsed ~p PCAP packets~n", [NrPkts]);
{error, _Reason} ->
?debugFmt("Skipping PCAP based tests as no ~p could be found~n",
[File])
end.
pcap_cb(sctp, _From, _Path, 2, DataBin) ->
M2ua = m2ua_codec:parse_m2ua_msg(DataBin),
handle_m2ua(M2ua).
handle_m2ua(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
msg_type = ?M2UA_MAUP_MSGT_DATA,
payload = Params}) ->
{_Len, M2uaPayload} = proplists:get_value(16#300, Params),
Mtp3 = mtp3_codec:parse_mtp3_msg(M2uaPayload),
handle_mtp3(Mtp3);
handle_m2ua(#m2ua_msg{}) ->
ok.
handle_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_ISUP,
payload = Payload}) ->
#isup_msg{} = IsupDec = isup_codec:parse_isup_msg(Payload),
IsupEnc = isup_codec:encode_isup_msg(IsupDec),
?assertEqual(Payload, IsupEnc);
handle_mtp3(#mtp3_msg{}) ->
ok.
|
