GSMLayer3Info: Implement and Test parseFrom:

1 files changed, 10 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index 9e57c3e..d0b30df 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -180,11 +180,21 @@ GSM0808IE subclass: GSMLayer3Info [
             yourself
     ]
 
+    GSMLayer3Info class >> parseFrom: aByteArray [
+        | size |
+        size := aByteArray at: 2.
+        ^ GSMLayer3Info initWith: (aByteArray copyFrom: 3 to: 2 + size)
+    ]
+
     data: aData [
         <category: 'creation'>
         data := aData
     ]
 
+    data [
+        ^ data
+    ]
+
     writeOn: aMsg [
         | dat |
         <category: 'creation'>