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 [ TestCase subclass: GSM48Test [
testKeySeqLu [ testKeySeqLu [
| gsm msg | | gsm msg res |
res := #(16r70) asByteArray.
msg := Osmo.MessageBuffer new. msg := Osmo.MessageBuffer new.
gsm := GSM48KeySeqLuType createDefault. gsm := GSM48KeySeqLuType createDefault.
gsm writeOnDirect: msg. gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r70) asByteArray self assert: msg asByteArray = res.
] ]
testLai [ testLai [
| gsm msg | | gsm msg res |
res := #(16r02 16rF2 16r50 16rFF 16rFE) asByteArray.
msg := Osmo.MessageBuffer new. msg := Osmo.MessageBuffer new.
gsm := GSM48Lai createDefault. gsm := GSM48Lai createDefault.
gsm mcc: 202; mnc: 5; lac: 65534. gsm mcc: 202; mnc: 5; lac: 65534.
gsm writeOnDirect: msg. gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r02 16rF2 16r50 16rFF 16rFE) asByteArray. self assert: msg asByteArray = res.
] ]
testCM1 [ testCM1 [
| gsm msg | | gsm msg res |
res := #(16r33) asByteArray.
msg := Osmo.MessageBuffer new. msg := Osmo.MessageBuffer new.
gsm := GSM48Classmark1 createDefault. gsm := GSM48Classmark1 createDefault.
gsm writeOnDirect: msg. gsm writeOnDirect: msg.
self assert: msg asByteArray = #(16r33) asByteArray self assert: msg asByteArray = res.
] ]
testMI [ testMI [
| gsm msg | | gsm msg res |
res := #(8 41 71 128 0 0 0 116 8) asByteArray.
msg := Osmo.MessageBuffer new. msg := Osmo.MessageBuffer new.
gsm := GSM48MIdentity createDefault. gsm := GSM48MIdentity createDefault.
gsm imsi: '274080000004780'. gsm imsi: '274080000004780'.
gsm writeOnDirect: msg. gsm writeOnDirect: msg.
self assert: msg asByteArray = #(8 41 71 128 0 0 0 116 8) asByteArray. self assert: msg asByteArray = res.
] ]
testLU [ 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. msg := Osmo.MessageBuffer new.
gsm := LocationUpdatingRequest new. gsm := LocationUpdatingRequest new.
(gsm lai) mcc: 202; mnc: 5; lac: 65534. (gsm lai) mcc: 202; mnc: 5; lac: 65534.
(gsm mi) imsi: '666105400273888'. (gsm mi) imsi: '666105400273888'.
gsm writeOn: msg. 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
] ]
] ]