diff options
-rw-r--r-- | GSM48.st | 18 | ||||
-rw-r--r-- | Tests.st | 7 |
2 files changed, 25 insertions, 0 deletions
@@ -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. @@ -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 [ |