gsm: Introduce the minimal Ciphering Mode Complete class
This commit is contained in:
parent
4721872838
commit
73dbc2941c
18
GSM48.st
18
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.
|
||||
|
|
7
Tests.st
7
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 [
|
||||
|
|
Reference in New Issue