diff --git a/BERTLVStreamTest.st b/BERTLVStreamTest.st index 1d5b2d3..17e124b 100644 --- a/BERTLVStreamTest.st +++ b/BERTLVStreamTest.st @@ -17,6 +17,8 @@ " TestCase subclass: BERTagTest [ + + testSimpleTag [ self assert: (BERTag parseFrom: #(16rA1) asByteArray readStream) asTuple = #(2 true 1). @@ -43,6 +45,8 @@ TestCase subclass: BERTagTest [ ] TestCase subclass: BERLengthTest [ + + testSimpleLengthRead [ | read | read := BERLength parseFrom: #(10) asByteArray readStream. @@ -76,6 +80,8 @@ TestCase subclass: BERLengthTest [ ] TestCase subclass: BERTLVStreamTest [ + + testParseLength [ | data stream value | "I parse a simple example." @@ -124,6 +130,7 @@ TestCase subclass: BERTLVStreamTest [ ] TestCase subclass: DERTLVStreamTest [ + testDecodeEncodeAll [