102 lines
2.9 KiB
Smalltalk
102 lines
2.9 KiB
Smalltalk
|
TestCase subclass: MTP3LabelTest [
|
|||
|
|
|||
|
<comment: nil>
|
|||
|
<category: 'OsmoNetwork-MTP3-Tests'>
|
|||
|
|
|||
|
testParseFrom [
|
|||
|
| data stream label |
|
|||
|
data := #(16r01 16r80 16r00 16r00) asByteArray.
|
|||
|
stream := data readStream.
|
|||
|
label := MTP3Label parseFrom: stream.
|
|||
|
self assert: stream atEnd.
|
|||
|
self assert: label dpc = 1.
|
|||
|
self assert: label opc = 2.
|
|||
|
self assert: label slc = 0.
|
|||
|
self assert: label toMessage asByteArray = data
|
|||
|
]
|
|||
|
]
|
|||
|
|
|||
|
|
|||
|
|
|||
|
TestCase subclass: MTP3SLTAMSGTest [
|
|||
|
|
|||
|
<comment: 'A MTP3SLTAMSGTest is a test class for testing the behavior of MTP3SLTAMSG'>
|
|||
|
<category: 'OsmoNetwork-MTP3-Tests'>
|
|||
|
|
|||
|
testParsing [
|
|||
|
| data stream msg |
|
|||
|
data := #(16r81 16r02 16r40 16r00 16r00 16r21 16rE0 16r47 16r53 16r4D 16r4D 16r4D 16r53 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00)
|
|||
|
asByteArray.
|
|||
|
stream := data readStream.
|
|||
|
msg := MTP3MSG parseFrom: stream.
|
|||
|
self assert: stream atEnd.
|
|||
|
self assert: msg class = MTP3SLTAMSG.
|
|||
|
self assert: msg testPattern
|
|||
|
= #(16r47 16r53 16r4D 16r4D 16r4D 16r53 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00)
|
|||
|
asByteArray.
|
|||
|
self assert: msg toMessage asByteArray = data
|
|||
|
]
|
|||
|
]
|
|||
|
|
|||
|
|
|||
|
|
|||
|
TestCase subclass: MTP3SLTMMSGTest [
|
|||
|
|
|||
|
<comment: 'A MTP3SLTMMSGTest is a test class for testing the behavior of MTP3SLTMMSG'>
|
|||
|
<category: 'OsmoNetwork-MTP3-Tests'>
|
|||
|
|
|||
|
testParsing [
|
|||
|
| data stream msg |
|
|||
|
data := #(16r81 16r02 16r40 16r00 16r00 16r11 16rE0 16r47 16r53 16r4D 16r4D 16r4D 16r53 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00)
|
|||
|
asByteArray.
|
|||
|
stream := data readStream.
|
|||
|
msg := MTP3MSG parseFrom: stream.
|
|||
|
self assert: stream atEnd.
|
|||
|
self assert: msg class = MTP3SLTMMSG.
|
|||
|
self assert: msg testPattern
|
|||
|
= #(16r47 16r53 16r4D 16r4D 16r4D 16r53 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00)
|
|||
|
asByteArray.
|
|||
|
self assert: msg toMessage asByteArray = data
|
|||
|
]
|
|||
|
]
|
|||
|
|
|||
|
|
|||
|
|
|||
|
TestCase subclass: MTP3ServiceIndicatorsTest [
|
|||
|
|
|||
|
<comment: 'A MTP3ServiceIndicatorsTest is a test class for testing the behavior of MTP3ServiceIndicators'>
|
|||
|
<category: 'OsmoNetwork-MTP3-Tests'>
|
|||
|
|
|||
|
testParseFrom [
|
|||
|
| data stream field |
|
|||
|
data := #(16r81) asByteArray.
|
|||
|
stream := data readStream.
|
|||
|
field := MTP3ServiceIndicators parseFrom: stream.
|
|||
|
self assert: stream atEnd.
|
|||
|
self assert: field subServiceField = MTP3ServiceIndicators nationalNetwork.
|
|||
|
self assert: field serviceIndicator
|
|||
|
= MTP3ServiceIndicators signallingNetworkTestingAndMaintenance.
|
|||
|
self assert: field toMessage asByteArray = data
|
|||
|
]
|
|||
|
]
|
|||
|
|
|||
|
|
|||
|
|
|||
|
TestCase subclass: MTP3HeadingTest [
|
|||
|
|
|||
|
<comment: 'A MTP3HeadingTest is a test class for testing the behavior of MTP3Heading'>
|
|||
|
<category: 'OsmoNetwork-MTP3-Tests'>
|
|||
|
|
|||
|
testParsing [
|
|||
|
| data stream field |
|
|||
|
data := #(16r14) asByteArray.
|
|||
|
stream := data readStream.
|
|||
|
field := MTP3Heading parseFrom: stream.
|
|||
|
self assert: stream atEnd.
|
|||
|
self assert: field h0 = MTP3TFMMSG h0.
|
|||
|
self assert: field h1 = MTP3TFPMSG h1.
|
|||
|
self assert: field toMessage asByteArray = data
|
|||
|
]
|
|||
|
]
|
|||
|
|