From 07319cd1aabe9d540a884dc7bccfe30f9bc9400e Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <holger@moiji-mobile.com>
Date: Mon, 12 May 2014 10:02:36 +0200
Subject: [PATCH] bind: Add getters and extend the testcase of reading the
 message

---
 codec/SMPPBindTransmitterBody.st | 28 ++++++++++++++++++++++++++++
 test/SMPPMessageTest.st          |  8 ++++++++
 2 files changed, 36 insertions(+)

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 [