smalltalk
/
osmo-st-sip
Archived
1
0
Fork 0
Code Releases Activity

test: Modernize the grammar too

This commit is contained in:
Holger Hans Peter Freyther 2015-07-24 12:18:50 +02:00
parent 21d395593e
commit b122f48fd8
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
grammar/SIPGrammarTest.st
View File

@ -75,32 +75,32 @@ PP.PPCompositeParserTest subclass: SIPGrammarTest [
16r0D 16r0A 16r0D 16r0A) asByteArray.
res := self parse: data asString.
self assert: res size = 4.
self assert: res first third = '100'.
self assert: (res first at: 5) = 'Trying'.
self assert: res size equals: 4.
self assert: res first third equals: '100'.
self assert: (res first at: 5) equals: 'Trying'.
hdr := res second.
self assert: (hdr at: 1) first first = 'Via'.
self assert: (hdr at: 1) first third asFoldedString = 'SIP/2.0/UDP 172.16.254.24;rport=5060;branch=z9hG4bKfwjlxdrv'.
self assert: (hdr at: 1) first first equals: 'Via'.
self assert: (hdr at: 1) first third asFoldedString equals: 'SIP/2.0/UDP 172.16.254.24;rport=5060;branch=z9hG4bKfwjlxdrv'.
self assert: (hdr at: 2) first first = 'From'.
self assert: (hdr at: 2) first third asFoldedString = '"zecke" <sip:1000@on-waves.com>;tag=wmycl'.
self assert: (hdr at: 2) first first equals: 'From'.
self assert: (hdr at: 2) first third asFoldedString equals: '"zecke" <sip:1000@on-waves.com>;tag=wmycl'.
self assert: (hdr at: 3) first first = 'To'.
self assert: (hdr at: 3) first third asFoldedString = '<sip:9198@172.16.1.72>'.
self assert: (hdr at: 3) first first equals: 'To'.
self assert: (hdr at: 3) first third asFoldedString equals: '<sip:9198@172.16.1.72>'.
self assert: (hdr at: 4) first first = 'Call-ID'.
self assert: (hdr at: 4) first third = 'ofcwnpmulmceasg@xiaoyu'.
self assert: (hdr at: 4) first first equals: 'Call-ID'.
self assert: (hdr at: 4) first third equals: 'ofcwnpmulmceasg@xiaoyu'.
self assert: (hdr at: 5) first first = 'CSeq'.
self assert: (hdr at: 5) first third asFoldedString = '983 INVITE'.
self assert: (hdr at: 5) first first equals: 'CSeq'.
self assert: (hdr at: 5) first third asFoldedString equals: '983 INVITE'.
self assert: (hdr at: 6) first first = 'User-Agent'.
self assert: (hdr at: 6) first third = 'FreeSWITCH-mod_sofia/1.0.head-git-dff41af 2011-04-20 14-11-24 +0200'.
self assert: (hdr at: 6) first first equals: 'User-Agent'.
self assert: (hdr at: 6) first third equals: 'FreeSWITCH-mod_sofia/1.0.head-git-dff41af 2011-04-20 14-11-24 +0200'.
self assert: (hdr at: 7) first first = 'Content-Length'.
self assert: (hdr at: 7) first third = '0'.
self assert: (hdr at: 7) first first equals: 'Content-Length'.
self assert: (hdr at: 7) first third equals: '0'.
]
testInviteOK [