bind: Add getters and extend the testcase of reading the message
This commit is contained in:
parent
5ec92351f5
commit
07319cd1aa
|
@ -34,4 +34,32 @@ SMPPBodyBase subclass: SMPPBindTransmitterBody [
|
|||
add: SMPPAddressRange tlvDescription;
|
||||
yourself
|
||||
]
|
||||
|
||||
systemdId [
|
||||
^systemd_id
|
||||
]
|
||||
|
||||
password [
|
||||
^password
|
||||
]
|
||||
|
||||
systemType [
|
||||
^system_type
|
||||
]
|
||||
|
||||
version [
|
||||
^0
|
||||
]
|
||||
|
||||
typeOfNumber [
|
||||
^addr_ton
|
||||
]
|
||||
|
||||
numberingPlanIndicator [
|
||||
^addr_npi
|
||||
]
|
||||
|
||||
addressRange [
|
||||
^addr_range
|
||||
]
|
||||
]
|
||||
|
|
|
@ -35,6 +35,14 @@ TestCase subclass: SMPPMessageTest [
|
|||
self assert: msg header commandId equals: 2.
|
||||
self assert: msg header commandStatus equals: 0.
|
||||
self assert: msg header sequenceNumber equals: 1.
|
||||
|
||||
self assert: msg body systemdId equals: 'SMPP3TEST'.
|
||||
self assert: msg body password equals: 'secret08'.
|
||||
self assert: msg body systemType equals: 'SUBMIT1'.
|
||||
self assert: msg body version equals: 0.
|
||||
self assert: msg body typeOfNumber equals: 1.
|
||||
self assert: msg body numberingPlanIndicator equals: 1.
|
||||
self assert: msg body addressRange equals: ''.
|
||||
]
|
||||
|
||||
testWriteMessage [
|
||||
|
|
Reference in New Issue