diff options
| author | Holger Hans Peter Freyther <zecke@selfish.org> | 2011-04-01 13:54:59 +0200 |
|---|---|---|
| committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2011-04-01 13:54:59 +0200 |
| commit | 18bdf9d5a0c5862d6aed8de3c41334e1d51b0c2b (patch) | |
| tree | 3495cd5b346d9986889bc52d157f32f55c4d8b83 | |
| parent | 4d5a287b1bc1f222a494fe2ff9f20bc0a207606b (diff) | |
ber: Add one more GSM decoding test.. just execute it.
| -rw-r--r-- | BERTLVStreamTest.st | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/BERTLVStreamTest.st b/BERTLVStreamTest.st index 113672d..8525dd2 100644 --- a/BERTLVStreamTest.st +++ b/BERTLVStreamTest.st @@ -111,6 +111,16 @@ TestCase subclass: BERTLVStreamTest [ self assert: value first asTuple = #(2 true 1). 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 [ |