diff options
| author | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-03-31 14:04:07 +0200 |
|---|---|---|
| committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-03-31 14:04:07 +0200 |
| commit | 4e3227730b0f8e48fc4513d0d614d90f52531678 (patch) | |
| tree | c22a67c0ef237e9ce33915b0248095a4208cfc90 | |
| parent | 59f3d7ac47c39eef88fa186531d706e844e19bb5 (diff) | |
| -rw-r--r-- | BERTLVStreamTest.st | 7 |
1 files changed, 7 insertions, 0 deletions
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 [ + <category: 'OsmoASN1-Tests'> + testSimpleTag [ <category: 'test'> self assert: (BERTag parseFrom: #(16rA1) asByteArray readStream) asTuple = #(2 true 1). @@ -43,6 +45,8 @@ TestCase subclass: BERTagTest [ ] TestCase subclass: BERLengthTest [ + <category: 'OsmoASN1-Tests'> + testSimpleLengthRead [ | read | read := BERLength parseFrom: #(10) asByteArray readStream. @@ -76,6 +80,8 @@ TestCase subclass: BERLengthTest [ ] TestCase subclass: BERTLVStreamTest [ + <category: 'OsmoASN1-Tests'> + testParseLength [ | data stream value | "I parse a simple example." @@ -124,6 +130,7 @@ TestCase subclass: BERTLVStreamTest [ ] TestCase subclass: DERTLVStreamTest [ + <category: 'OsmoASN1-Tests'> <comment: 'I test DER encoding to some degree'> testDecodeEncodeAll [ |