smalltalk
/
osmo-st-gsm
Archived
1
0
Fork 0
Code Releases Activity

gsm: Introduce the minimal Ciphering Mode Complete class

This commit is contained in:
Holger Hans Peter Freyther 2013-08-27 17:43:26 +02:00
parent 4721872838
commit 73dbc2941c
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
GSM48.st
View File

@ -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
View File

@ -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 [