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

oml: Add handling for the GetAttributes OML message

This commit is contained in:
Holger Hans Peter Freyther 2013-12-10 15:05:28 +01:00
parent 5800d96fb2
commit 6b652f549e
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fakebts/OMLMsg.st
View File

@ -270,6 +270,11 @@ Object subclass: OMLAttribute [
^ 16r40
]
attrRequiredAttributes [
<category: 'attributes'>
^ 16r1A
]
asTLVDescription [
<category: 'parsing'>
^ Osmo.TLVDescription new
@ -873,6 +878,11 @@ Object subclass: OMLMessageBase [
<category: 'message-type'>
^ 16r49
]
msgGetAttributes [
<category: 'message-type'>
^ 16r81
]
]
OMLMessageBase class >> parse: aStream [
@ -1573,3 +1583,25 @@ OMLSetChannelAttributes subclass: OMLSetChannelAttributesAck [
^ FOMMessage msgSetChannelAttributesAck
]
]
OMLDataField subclass: OMLGetAttributes [
| requestedAttributes |
<category: 'BTS-OML'>
<comment: 'I construct a GSM 12.21 O&M Get Attributes as of 8.11.1'>
OMLGetAttributes class >> attributeType [
<category: 'parsing'>
^ FOMMessage msgGetAttributes
]
OMLGetAttributes class >> tlvDescription [
<category: 'parsing'>
^ OrderedCollection new
add: (Osmo.TLVDescription new
tag: OMLAttribute attrRequiredAttributes;
beTLV; minSize: 1;
parseClass: OMLAttributeData;
instVarName: #requestedAttributes; yourself);
yourself
]
]

8
fakebts/Test.st
View File

@ -228,6 +228,10 @@ RoundTripTestCase subclass: OMLMsgTest [
^ #(128 128 0 9 71 3 0 0 0 13 5 64 7)
]
getAttributes [
^ #(128 128 0 9 129 4 0 0 255 26 0 1 167)
]
testFomMessage [
| oml |
@ -320,6 +324,10 @@ RoundTripTestCase subclass: OMLMsgTest [
testSetChannelAttributes [
self roundtripTestFor: #setChannelAttributesData class: OMLSetChannelAttributes.
]
testGetAttributes [
self roundtripTestFor: #getAttributes class: OMLGetAttributes.
]
]
TestCase subclass: RSLSmokeTest [