44-include (" ../src/smpp_globals.hrl" ).
55
66-define (TESTS , [
7- {" submit_sm_resp(ESME_RINVMSGLEN)" ,
8- " 00000010800000040000000100000001" ,
9- {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RINVMSGLEN , 1 , []}},
10- {" submit_sm_resp(ESME_RTHROTTLED)" ,
11- " 00000010800000040000005800000001" ,
12- {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RTHROTTLED , 1 , []}},
13- {" submit_sm_resp(ESME_RMSGQFUL)" ,
14- " 00000010800000040000001400000001" ,
15- {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RMSGQFUL , 1 , []}},
16- {" bind_transceiver_resp(ESME_RALYBND)" ,
17- " 00000010800000090000000500000001" ,
18- {? COMMAND_ID_BIND_TRANSCEIVER_RESP , ? ESME_RALYBND , 1 , []}},
19- {" bind_transceiver_resp(ESME_RBINDFAIL)" ,
20- " 00000010800000090000000D00000001" ,
21- {? COMMAND_ID_BIND_TRANSCEIVER_RESP , ? ESME_RBINDFAIL , 1 , []}}
7+ {" submit_sm_resp(ESME_RINVMSGLEN)" ,
8+ " 00000010800000040000000100000001" ,
9+ {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RINVMSGLEN , 1 , []}},
10+ {" submit_sm_resp(ESME_RTHROTTLED)" ,
11+ " 00000010800000040000005800000001" ,
12+ {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RTHROTTLED , 1 , []}},
13+ {" submit_sm_resp(ESME_RMSGQFUL)" ,
14+ " 00000010800000040000001400000001" ,
15+ {? COMMAND_ID_SUBMIT_SM_RESP , ? ESME_RMSGQFUL , 1 , []}},
16+ {" bind_transceiver_resp(ESME_RALYBND)" ,
17+ " 00000010800000090000000500000001" ,
18+ {? COMMAND_ID_BIND_TRANSCEIVER_RESP , ? ESME_RALYBND , 1 , []}},
19+ {" bind_transceiver_resp(ESME_RBINDFAIL)" ,
20+ " 00000010800000090000000D00000001" ,
21+ {? COMMAND_ID_BIND_TRANSCEIVER_RESP , ? ESME_RBINDFAIL , 1 , []}}
2222]).
2323
2424packunpack_test_ () ->
2525 {inparallel ,
2626 [{T ,
27- fun () ->
28- Bin = hex2bin (Pdu ),
29- ? assertEqual ({ok , Parsed }, smpp_operation :unpack (Bin )),
30- ? assertEqual ({ok , Bin }, smpp_operation :pack (Parsed ))
31- end }
27+ fun () ->
28+ Bin = hex2bin (Pdu ),
29+ ? assertEqual ({ok , Parsed }, smpp_operation :unpack (Bin )),
30+ ? assertEqual ({ok , Bin }, smpp_operation :pack (Parsed ))
31+ end }
3232 || {T , Pdu , Parsed } <- ? TESTS ]
3333 }.
3434
3535hex2bin ([]) -> <<>>;
3636hex2bin ([A ,B |Rest ]) ->
37- <<(list_to_integer ([A ,B ], 16 )), (hex2bin (Rest ))/binary >>.
37+ <<(list_to_integer ([A ,B ], 16 )), (hex2bin (Rest ))/binary >>.
0 commit comments