MessageBuffer: Allow to add a messagebuffer as a bytearray

Make it possible to add the messagebuffer as a normal
byte array. This should be improved and the MessageBuffer
should implement a Collection or such.

1 files changed, 21 insertions, 0 deletions

diff --git a/Tests.st b/Tests.st
index 51a9470..340df36 100644
--- a/Tests.st
+++ b/Tests.st
@@ -61,3 +61,24 @@ TestCase subclass: IPATests [
         self assert: IPASCCPState sizeof = 25.
     ]
 ]
+
+TestCase subclass: MessageBufferTest [
+    testAdd [
+        | msg1 msg2 msg3 msg_master |
+        msg1 := MessageBuffer new.
+        msg2 := MessageBuffer new.
+        msg3 := MessageBuffer new.
+
+        msg1 putByteArray: #(1 2 3) asByteArray.
+        msg2 putByteArray: #(4 5 6) asByteArray.
+        msg3 putByteArray: #(7 8 9) asByteArray.
+
+        msg_master := MessageBuffer new.
+        msg_master putByteArray: msg1.
+        msg_master putByteArray: msg2.
+        msg_master putByteArray: msg3.
+
+        self assert: msg_master size = 9.
+        self assert: msg_master toByteArray = #(1 2 3 4 5 6 7 8 9) asByteArray.
+    ]
+]