grammar: Add one more simple test case

2011-06-12 14:31:55 +02:00 · 2011-06-12 14:31:55 +02:00 · 4354afff4a
parent f680614155
commit 4354afff4a
1 changed files with 11 additions and 0 deletions
--- a/grammar/MGCPGrammarTest.st
+++ b/grammar/MGCPGrammarTest.st
@ -79,4 +79,15 @@ PP.PPCompositeParserTest subclass: MGCPGrammarTest [
        self assert: res first first = '200'.
        self assert: res first third = '123456'.
    ]
+
+    testReplyByte [
+        | res inp |
+
+        inp := #(50 48 48 32 52 51 51 52 49 52 54 53 54 32 79 75 13 10) asByteArray.
+        res := self parse: inp asString.
+        res inspect.
+        self assert: res size = 3.
+        self assert: res first first = '200'.
+        self assert: res first third = '433414656'.
+    ]
 ]