ber: Add one more GSM decoding test.. just execute it.
This commit is contained in:
parent
4d5a287b1b
commit
18bdf9d5a0
|
@ -111,6 +111,16 @@ TestCase subclass: BERTLVStreamTest [
|
||||||
self assert: value first asTuple = #(2 true 1).
|
self assert: value first asTuple = #(2 true 1).
|
||||||
self assert: value second size = 3.
|
self assert: value second size = 3.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
testMoreGSM [
|
||||||
|
| data |
|
||||||
|
data := #(16rA1 16r20 16r02 16r01 16r01 16r02 16r01 16r3B
|
||||||
|
16r30 16r18 16r04 16r01 16r0F 16r04 16r13 16r2A
|
||||||
|
16rD5 16r4C 16r26 16r53 16rC5 16r64 16rB1 16r18
|
||||||
|
16r2D 16r16 16rAB 16rC9 16r68 16rB1 16rD8 16r0D
|
||||||
|
16r37 16r02) asByteArray.
|
||||||
|
(BERTLVStream on: data readStream) nextAllRecursive inspect.
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
TestCase subclass: DERTLVStreamTest [
|
TestCase subclass: DERTLVStreamTest [
|
||||||
|
|
Reference in New Issue