header: Implement writing a header to a stream

2014-04-24 20:30:01 +02:00 · 2014-04-24 20:30:01 +02:00 · fea5159aa7
parent 38bca78f5b
commit fea5159aa7
2 changed files with 17 additions and 0 deletions
--- a/codec/SMPPPDUHeader.st
+++ b/codec/SMPPPDUHeader.st
@ -57,4 +57,11 @@ Object subclass: SMPPPDUHeader [
    sequenceNumber: aNumber [
        sequenceNumber := aNumber
    ]
+
+    writeOn: aMsg [
+        aMsg
+            putLen32: commandId;
+            putLen32: commandStatus;
+            putLen32: sequenceNumber
+    ]
 ]
--- a/test/SMPPPDUHeaderTest.st
+++ b/test/SMPPPDUHeaderTest.st
@ -27,4 +27,14 @@ TestCase subclass: SMPPPDUHeaderTest [
        self assert: hdr commandStatus equals: 0.
        self assert: hdr sequenceNumber equals: 1.
    ]
+
+    testWrite [
+        | data |
+        data := (SMPPPDUHeader new
+                    commandId: 2;
+                    commandStatus: 0;
+                    sequenceNumber: 1;
+                    toMessage) asByteArray.
+        self assert: data equals: #[0 0 0 2  0 0 0 0  0 0 0 1].
+    ]
 ]