diff --git a/Tests.st b/Tests.st index d5ac5c6..7109766 100644 --- a/Tests.st +++ b/Tests.st @@ -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 ] ]