diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2012-03-25 16:13:44 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2012-03-25 16:13:44 +0200 |
commit | 57d1ae32b7dcac037e6604a5f7f6c6324781f29e (patch) | |
tree | 181946e786cb87ac56234cea8272a4f931b0ab02 /Tests.st | |
parent | f9546520d7e8497043acc3086c731b9609a43952 (diff) |
streams: Move the GSM48IE>>#parseFrom: to use streams.
Diffstat (limited to 'Tests.st')
-rw-r--r-- | Tests.st | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -72,7 +72,7 @@ TestCase subclass: GSM0808Test [ self assert: buf asByteArray = res ] - testCuaseIE [ + testCauseIE [ | buf ie res | res := #(4 1 32) asByteArray. @@ -168,7 +168,7 @@ TestCase subclass: GSM48Test [ self assert: msg asByteArray = res. self assert: (GSM48KeySeqLuType length: res readStream) = 1. - gsm := GSM48KeySeqLuType parseFrom: res. + gsm := GSM48KeySeqLuType parseFrom: res readStream. self assert: gsm val = 16r70. ] @@ -183,7 +183,7 @@ TestCase subclass: GSM48Test [ self assert: msg asByteArray = res. self assert: (GSM48Lai length: res readStream) = res size. - gsm := GSM48Lai parseFrom: res. + gsm := GSM48Lai parseFrom: res readStream. self assert: gsm mcc = 202. self assert: gsm mnc = 5. self assert: gsm lac = 65534. @@ -199,7 +199,7 @@ TestCase subclass: GSM48Test [ self assert: msg asByteArray = res. self assert: (GSM48Classmark1 length: res readStream) = res size. - gsm := GSM48Classmark1 parseFrom: res. + gsm := GSM48Classmark1 parseFrom: res readStream. self assert: gsm cm1 = 16r33. ] @@ -216,7 +216,7 @@ TestCase subclass: GSM48Test [ self assert: msg asByteArray = res. self assert: (GSM48MIdentity length: res readStream) = res size. - gsm := GSM48MIdentity parseFrom: res. + gsm := GSM48MIdentity parseFrom: res readStream. self assert: gsm imsi = imsi. ] @@ -230,7 +230,7 @@ TestCase subclass: GSM48Test [ self assert: msg asByteArray = target. self assert: (GSM48RejectCause length: target readStream) = 1. - rej := GSM48RejectCause parseFrom: target. + rej := GSM48RejectCause parseFrom: target readStream. self assert: rej cause = 11. ] @@ -297,7 +297,7 @@ TestCase subclass: GSM48Test [ testGSMBearerParser [ | cap decoded | - cap := GSMBearerCap parseFrom: #(16r04 16r60 16r02 16r00 16r81). + cap := GSMBearerCap parseFrom: #(16r04 16r60 16r02 16r00 16r81) readStream. decoded := GSMBearerCapFromMS parse: cap data readStream. self deny: decoded octet3 isNil. |