Harald Welte | 62b5d57 | 2011-03-08 19:02:29 +0100 | [diff] [blame] | 1 | -module(m2ua_codec_tests). |
| 2 | -author('Harald Welte <laforge@gnumonks.org>'). |
| 3 | |
| 4 | -include_lib("eunit/include/eunit.hrl"). |
| 5 | |
Harald Welte | 231ae0b | 2012-04-01 20:13:23 +0200 | [diff] [blame] | 6 | -include("xua.hrl"). |
Harald Welte | 62b5d57 | 2011-03-08 19:02:29 +0100 | [diff] [blame] | 7 | -include("m2ua.hrl"). |
| 8 | |
| 9 | -define(M2UA_MSG_BIN, <<1,0,6,1,0,0,0,124,0,1,0,8,0,0,0,0,3,0,0,105,131,92, |
| 10 | 64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23, |
| 11 | 11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4, |
| 12 | 81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160, |
| 13 | 29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162, |
| 14 | 3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0,0,0,0>>). |
Harald Welte | 231ae0b | 2012-04-01 20:13:23 +0200 | [diff] [blame] | 15 | -define(M2UA_MSG_DEC, {xua_msg,1,6,1,[{1,{4,<<0,0,0,0>>}},{768,{101,<<131,92,64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>}}]}). |
Harald Welte | 62b5d57 | 2011-03-08 19:02:29 +0100 | [diff] [blame] | 16 | |
| 17 | parse_test() -> |
Harald Welte | 231ae0b | 2012-04-01 20:13:23 +0200 | [diff] [blame] | 18 | ?assertEqual(?M2UA_MSG_DEC, m2ua_codec:parse_m2ua_msg(?M2UA_MSG_BIN)), |
| 19 | ?assertEqual(?M2UA_MSG_DEC, xua_codec:parse_msg(?M2UA_MSG_BIN)). |
Harald Welte | 62b5d57 | 2011-03-08 19:02:29 +0100 | [diff] [blame] | 20 | encode_test() -> |
Harald Welte | 231ae0b | 2012-04-01 20:13:23 +0200 | [diff] [blame] | 21 | ?assertEqual(?M2UA_MSG_BIN, m2ua_codec:encode_m2ua_msg(?M2UA_MSG_DEC)), |
| 22 | ?assertEqual(?M2UA_MSG_BIN, xua_codec:encode_msg(?M2UA_MSG_DEC)). |