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

gsm: Test decoding the Called Number of a CC Setup message

This commit is contained in:
Holger Hans Peter Freyther 2011-06-25 15:58:08 +02:00
parent be0ae38804
commit fee39fff36
2 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
GSM48.st
View File

@ -615,6 +615,37 @@ Object subclass: GSMNumberDigits [
GSM48DataHolder subclass: GSMCalledBCDNumber [
GSMCalledBCDNumber class >> elementId [ ^ 16r5E ]
GSMCalledBCDNumber class >> validSizes [ ^ 2 to: 18 ]
GSMCalledBCDNumber class >> spec [ ^ '10.5.4.7' ]
GSMCalledBCDNumber class [
typeUnknown [ <category: 'TypeOfNumber'> ^ 2r000 ]
typeInternational [ <category: 'TypeOfNumber'> ^ 2r001 ]
typeNational [ <category: 'TypeOfNumber'> ^ 2r010 ]
typeNetworkSpecific [ <category: 'TypeOfNumber'> ^ 2r011 ]
typeDedicatedAccess [ <category: 'TypeOfNumber'> ^ 2r100 ]
planUnknown [ <category: 'NumberingPlan'> ^ 2r0000 ]
planISDN [ <category: 'NumberingPlan'> ^ 2r0001 ]
planData [ <category: 'NumberingPlan'> ^ 2r0011 ]
planTelex [ <category: 'NumberingPlan'> ^ 2r0100 ]
planNational [ <category: 'NumberingPlan'> ^ 2r1000 ]
planPrivate [ <category: 'NumberingPlan'> ^ 2r1001 ]
]
numberType [
<category: 'extract'>
^ ((data at: 1) bitAnd: 16r70) bitShift: -4.
]
numberPlan [
<category: 'extract'>
^ (data at: 1) bitAnd: 16r0F
]
number [
<category: 'extract'>
^ GSMNumberDigits decodeFromStream: (data readStream skip: 1).
]
]
GSM48DataHolder subclass: GSMCalledSubBCDNumber [

8
Tests.st
View File

@ -272,6 +272,14 @@ TestCase subclass: GSM48Test [
self assert: dec type = GSM48AuthRej messageType.
self assert: GSM48AuthRej new toMessage asByteArray = inp.
]
testCalledBCDNumber [
| dec |
dec := GSMCalledBCDNumber initWithData: #(145 51 83 102 246) asByteArray.
self assert: dec numberType = GSMCalledBCDNumber typeInternational.
self assert: dec numberPlan = GSMCalledBCDNumber planISDN.
self assert: dec number = '3335666'.
]
]
SCCPHandler subclass: TestSCCPHandler [