diff options
author | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-13 05:00:49 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-05-13 05:00:49 +0200 |
commit | f4d03c969ed12762b15718f799236d5d18700064 (patch) | |
tree | a52af8cc64e74678371ca0d77ba51e6c5c9fd17b /test | |
parent | b05ed3a2011a71fa7818ac8b5d3ac73e0f2a1cce (diff) |
smpp: Implement parsing of SMPPGenericNack
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 39dc2e8..08eeacf 100644 --- a/test/SMPPMessageTest.st +++ b/test/SMPPMessageTest.st @@ -42,6 +42,11 @@ TestCase subclass: SMPPMessageTest [ 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r03] ] + exampleGenericNack [ + ^#[16r00 16r00 16r00 16r10 16r80 16r00 16r00 16r00 + 16r00 16r00 16r00 16r03 16r6A 16rEC 16r9D 16rCB] + ] + testReadMessage [ | msg | msg := SMPPMessage readFrom: self examplePdu readStream. @@ -90,4 +95,10 @@ TestCase subclass: SMPPMessageTest [ msg := SMPPMessage readFrom: self exampleEnquire readStream. self assert: msg body class equals: SMPPEnquireLink. ] + + testGenericNack [ + | msg | + msg := SMPPMessage readFrom: self exampleGenericNack readStream. + self assert: msg body class equals: SMPPGenericNack. + ] ] |