BSSMAP: Add a test case to handle the Paging Request

1 files changed, 52 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index 2a78298..0e9e889 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -299,3 +299,55 @@ GSM0808IE subclass: GSM0808IMSI [
         mi writeOnDirect: aMsg.
     ]
 ]
+
+GSM0808IE subclass: GSM0808CellIdentifierList [
+    | ident cells |
+
+    GSM0808CellIdentifierList class >> elementId [ ^ 26 ]
+    GSM0808CellIdentifierList class >> parseFrom: aByteArray [
+        | len ident cells |
+
+        len := aByteArray at: 2.
+        len < 2
+            ifTrue: [
+                Error signal: 'No place for the cell identifier list'.
+        ].
+
+        (len - 1) even
+            ifFalse: [
+                Error signal: 'Need to have an even number of cells'.
+        ].
+
+        ident := aByteArray at: 3.
+
+        cells := OrderedCollection new.
+        1 to: len - 1 by: 2 do: [:each |
+            | cell |
+            cell := (aByteArray ushortAt: 3 + each) swap16.
+            cells add: cell.
+        ].
+
+        ident printNl.
+        cells printNl.
+
+        ^ self new
+            cells: cells;
+            ident: ident;
+            yourself
+    ]
+
+    ident [ ^ ident ]
+    ident: anIdent [ ident := anIdent bitAnd: 16r00FF ]
+
+    cells [ ^ cells ]
+    cells: aCells [ cells := aCells ]
+
+    writeOnDirect: aMsg [
+        aMsg putByte: 1 + (cells size * 2).
+        aMsg putByte: ident.
+
+        cells do: [:lac |
+            aMsg putLen16: lac.
+        ].
+    ]
+]