fakebts: Test that creating a NACK creates a NACK message
This commit is contained in:
parent
fecf0f68f9
commit
c1d6376633
|
@ -295,10 +295,14 @@ RoundTripTestCase subclass: OMLMsgTest [
|
|||
]
|
||||
|
||||
testSetBTSAttributes [
|
||||
| oml |
|
||||
| oml nack |
|
||||
oml := OMLMessageBase parse: self setBtsAttributesData readStream.
|
||||
self assert: oml omDataField class = OMLSetBTSAttributes.
|
||||
self assert: oml toMessage asByteArray = self setBtsAttributesData asByteArray.
|
||||
|
||||
"Create a nack now"
|
||||
nack := oml createResponse: false.
|
||||
self assert: nack omDataField class = OMLSetBTSAttributesNack.
|
||||
]
|
||||
|
||||
testAdmState [
|
||||
|
|
Reference in New Issue