diff options
Diffstat (limited to 'grammar/MGCPGrammarTest.st')
| -rw-r--r-- | grammar/MGCPGrammarTest.st | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/grammar/MGCPGrammarTest.st b/grammar/MGCPGrammarTest.st index 1262d29..4e91e63 100644 --- a/grammar/MGCPGrammarTest.st +++ b/grammar/MGCPGrammarTest.st @@ -60,11 +60,10 @@ PP.PPCompositeParserTest subclass: MGCPGrammarTest [ 'm=image 4402 udptl t38', nl, 'a=T38FaxVersion:0', nl, 'a=T38MaxBitRate:14400', nl. - self assert: res size = 10. - self assert: (res at: 1) = 'AUEP'. - self assert: (res at: 3) = '23444'. - self assert: (res at: 5) = #('13' $@ 'mgw'). - res inspect. + self assert: res size equals: 10. + self assert: (res at: 1) equals: 'AUEP'. + self assert: (res at: 3) equals: '23444'. + self assert: (res at: 5) equals: #('13' $@ 'mgw'). ] testReply [ @@ -75,9 +74,9 @@ PP.PPCompositeParserTest subclass: MGCPGrammarTest [ res := self parse: '200 123456 OK', nl. - self assert: res size = 3. - self assert: res first first = '200'. - self assert: res first third = '123456'. + self assert: res size equals: 3. + self assert: res first first equals: '200'. + self assert: res first third equals: '123456'. ] testReplyByte [ @@ -85,10 +84,9 @@ PP.PPCompositeParserTest subclass: MGCPGrammarTest [ 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'. + self assert: res size equals: 3. + self assert: res first first equals: '200'. + self assert: res first third equals: '433414656'. ] testDlcxResponse [ @@ -97,6 +95,5 @@ PP.PPCompositeParserTest subclass: MGCPGrammarTest [ inp := #[50 53 48 32 54 56 51 52 53 53 50 52 52 32 79 75 13 10 80 58 32 80 83 61 49 54 57 44 32 79 83 61 55 54 48 53 44 32 80 82 61 48 44 32 79 82 61 48 44 32 80 76 61 48 44 32 74 73 61 48 13 10 88 45 79 115 109 111 45 67 80 58 32 69 67 32 84 73 83 61 48 44 32 84 79 83 61 48 44 32 84 73 82 61 48 44 32 84 79 82 61 48 13 10]. res := self parse: inp asString. - res inspect. ] ] |