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

Tests: Keep the byte array results around

This commit is contained in:
Holger Hans Peter Freyther 2010-11-23 22:02:39 +01:00
parent f3c62fe6dd
commit 77367851c0
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Tests.st
View File

@ -102,53 +102,58 @@ TestCase subclass: BSSAPTest [
TestCase subclass: GSM48Test [
testKeySeqLu [
| gsm msg |
| gsm msg res |
res := #(16r70) asByteArray.
msg := Osmo.MessageBuffer new.
gsm := GSM48KeySeqLuType createDefault.
gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r70) asByteArray
self assert: msg asByteArray = res.
]
testLai [
| gsm msg |
| gsm msg res |
res := #(16r02 16rF2 16r50 16rFF 16rFE) asByteArray.
msg := Osmo.MessageBuffer new.
gsm := GSM48Lai createDefault.
gsm mcc: 202; mnc: 5; lac: 65534.
gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r02 16rF2 16r50 16rFF 16rFE) asByteArray.
self assert: msg asByteArray = res.
]
testCM1 [
| gsm msg |
| gsm msg res |
res := #(16r33) asByteArray.
msg := Osmo.MessageBuffer new.
gsm := GSM48Classmark1 createDefault.
gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r33) asByteArray
self assert: msg asByteArray = res.
]
testMI [
| gsm msg |
| gsm msg res |
res := #(8 41 71 128 0 0 0 116 8) asByteArray.
msg := Osmo.MessageBuffer new.
gsm := GSM48MIdentity createDefault.
gsm imsi: '274080000004780'.
gsm writeOnDirect: msg.
self assert: msg asByteArray = #(8 41 71 128 0 0 0 116 8) asByteArray.
self assert: msg asByteArray = res.
]
testLU [
| gsm msg |
| gsm msg res |
res := #(5 8 112 2 242 80 255 254 51 8 105 102 1 69 0 114 131 136) asByteArray.
msg := Osmo.MessageBuffer new.
gsm := LocationUpdatingRequest new.
(gsm lai) mcc: 202; mnc: 5; lac: 65534.
(gsm mi) imsi: '666105400273888'.
gsm writeOn: msg.
self assert: msg asByteArray = #(5 8 112 2 242 80 255 254 51 8 105 102 1 69 0 114 131 136) asByteArray.
self assert: msg asByteArray = res
]
]