diff options
author | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-13 04:47:00 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-13 04:47:00 +0200 |
commit | ccdb0f5207c0c3578ea6e808b20c7651253596e2 (patch) | |
tree | 4fb4ed99817d0aa1c12eefa18413ec0c447677e8 /test | |
parent | c2968fbc7e42e0c55559a2a319cfa4ac27d94d39 (diff) |
smpp: Be able to parse the SMPP Enquire Link
Diffstat (limited to 'test')
-rw-r--r-- | test/SMPPMessageTest.st | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/SMPPMessageTest.st b/test/SMPPMessageTest.st index 4e1a5d0..39dc2e8 100644 --- a/test/SMPPMessageTest.st +++ b/test/SMPPMessageTest.st @@ -37,6 +37,11 @@ TestCase subclass: SMPPMessageTest [ 16r00] ] + exampleEnquire [ + ^#[16r00 16r00 16r00 16r10 16r00 16r00 16r00 16r15 + 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r03] + ] + testReadMessage [ | msg | msg := SMPPMessage readFrom: self examplePdu readStream. @@ -79,4 +84,10 @@ TestCase subclass: SMPPMessageTest [ self assert: msg body class equals: SMPPBindTransceiver. self assert: msg body systemdId equals: 'AAAAAAAAAA'. ] + + testEnquireLink [ + | msg | + msg := SMPPMessage readFrom: self exampleEnquire readStream. + self assert: msg body class equals: SMPPEnquireLink. + ] ] |