diff options
author | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-12 10:02:36 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-12 10:03:23 +0200 |
commit | 07319cd1aabe9d540a884dc7bccfe30f9bc9400e (patch) | |
tree | 6bda9892ae10b8f3fb9c2bf8dbbaf7da36d32abb | |
parent | 5ec92351f5918da95e04d2ee11d4899a282a3b81 (diff) |
bind: Add getters and extend the testcase of reading the message
-rw-r--r-- | codec/SMPPBindTransmitterBody.st | 28 | ||||
-rw-r--r-- | test/SMPPMessageTest.st | 8 |
2 files changed, 36 insertions, 0 deletions
diff --git a/codec/SMPPBindTransmitterBody.st b/codec/SMPPBindTransmitterBody.st index e683bdf..7f8b351 100644 --- a/codec/SMPPBindTransmitterBody.st +++ b/codec/SMPPBindTransmitterBody.st @@ -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 + ] ] diff --git a/test/SMPPMessageTest.st b/test/SMPPMessageTest.st index 8eb6d9c..37b93df 100644 --- a/test/SMPPMessageTest.st +++ b/test/SMPPMessageTest.st @@ -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 [ |