1
0
Fork 0

fakebts: Test that creating a NACK creates a NACK message

This commit is contained in:
Holger Hans Peter Freyther 2012-11-22 10:01:19 +01:00
parent fecf0f68f9
commit c1d6376633
1 changed files with 5 additions and 1 deletions

View File

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