codec: Implement parsing trx bind resp and fix optional parsing

1 files changed, 18 insertions, 0 deletions

diff --git a/test/SMPPMessageTest.st b/test/SMPPMessageTest.st
index f459540..6d40fc2 100644
--- a/test/SMPPMessageTest.st
+++ b/test/SMPPMessageTest.st
@@ -68,6 +68,13 @@ TestCase subclass: SMPPMessageTest [
            16r32]
     ]
 
+    exampleBindResponse [
+        ^#[16r00 16r00 16r00 16r1D 16r80 16r00 16r00 16r09
+           16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00
+           16r53 16r4D 16r50 16r50 16r4D 16r41 16r50 16r00
+           16r02 16r10 16r00 16r01 16r34]
+    ]
+
     testReadMessage [
         | msg |
         msg := SMPPMessage readFrom: self examplePdu readStream.
@@ -141,4 +148,15 @@ TestCase subclass: SMPPMessageTest [
         res := msg toMessage asByteArray.
         self assert: res equals: self exampleSubmitSM.
     ]
+
+    testBindResponse [
+        | msg res |
+        msg := SMPPMessage readFrom: self exampleBindResponse readStream.
+        self assert: msg body class equals: SMPPBindTransceiverResponse.
+        self assert: msg body systemId equals: 'SMPPMAP'.
+
+        "Do round trip test"
+        res := msg toMessage asByteArray.
+        self assert: res equals: self exampleBindResponse.
+    ]
 ]