gsm: Introduce the minimal Ciphering Mode Complete class

2 files changed, 25 insertions, 0 deletions

diff --git a/GSM48.st b/GSM48.st
index c80b80f..60d8d78 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -3008,6 +3008,23 @@ GSM48RRMessage subclass: GSM48RRCipheringModeCommand [
     ]
 ]
 
+GSM48RRMessage subclass: GSM48RRCipheringModeComplete [
+    <category: 'OsmoGSM'>
+    <comment: 'I represent a GSM 04.08 9.1.10 Ciphering Mode Complete'>
+
+    GSM48RRCipheringModeComplete class >> messageType [
+        <category: 'parsing'>
+        ^self msgCipherModeComplete
+    ]
+
+    GSM48RRCipheringModeComplete class >> tlvDescription [
+        <category: 'parsing'>
+        ^OrderedCollection new
+            add: (GSM48MIdentity asTLVDescription beOptional; yourself);
+            yourself
+    ]
+]
+
 GSM48RRMessage subclass: GSM48RRClassmarkChange [
     <category: 'OsmoGSM'>
     <comment: 'I represent a GSM 04.08 9.1.11 Classmark'>
@@ -3154,6 +3171,7 @@ Eval [
     GSM48RRImmediateAssignCommand initialize.
     GSM48RRChannelRelease initialize.
     GSM48RRCipheringModeCommand initialize.
+    GSM48RRCipheringModeComplete initialize.
     GSM48RRClassmarkChange initialize.
     GSM48RRPagingResponse initialize.
     GSM48RRChannelModeModify initialize.
diff --git a/Tests.st b/Tests.st
index 6269c3a..6d336da 100644
--- a/Tests.st
+++ b/Tests.st
@@ -440,6 +440,13 @@ TestCase subclass: GSM48Test [
         dec := GSM48MSG decode: inp readStream.
         self assert: dec toMessage asByteArray = inp.
     ]
+
+    testCipheringModeComplete [
+        | dec inp |
+        inp := #(16r06 16r32) asByteArray.
+        dec := GSM48MSG decode: inp readStream.
+        self assert: dec toMessage asByteArray = inp.
+    ]
 ]
 
 SCCPHandler subclass: TestSCCPHandler [