smalltalk
/
osmo-st-sip
Archived
1
0
Fork 0
Code Releases Activity
This repository has been archived on 2022-02-17. You can view files and clone it, but cannot push or open issues or pull requests.
osmo-st-sip/callagent/SIPParserTest.st

169 lines
8.3 KiB
Smalltalk
Raw Normal View History

callagent: Test the parser a bit more
2011-06-13 17:56:35 +00:00
"
(C) 2011 by Holger Hans Peter Freyther
All Rights Reserved
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
"
PP.PPCompositeParserTest subclass: SIPParserTest [
pharo: Add a Makefile and begin with the porting. * Change the category for the tests and extensions * Rewrite usages of >>nl and >>cr * There are still issues with the Socket code, Datagram handling and and expands.
2013-03-31 15:08:18 +00:00
<category: 'OsmoSIP-Parser-Tests'>
callagent: Test the parser a bit more
2011-06-13 17:56:35 +00:00
<comment: 'I excercise the SIPParser a bit'>
parserClass [
<category: 'accessing'>
^ SIPParser
]
parser: Create the test data using a WriteStream
2011-06-30 09:41:50 +00:00
testResponseData [
^ (WriteStream on: (String new))
nextPutAll: 'SIP/2.0 480 Temporarily Unavailable'; cr; nl;
callagent: Add some more tests to the Via parsing.
2011-07-06 16:47:07 +00:00
nextPutAll: 'Via: SIP/2.0/UDP 172.16.254.34;rport;branch=z9hG4bKMzQ4NTQzNDgxNCwyNDE1Nw__;received=172.16.254.55;ttl=123;bla=foo;maddr=www.moo.de;'; cr; nl;
parser: Create the test data using a WriteStream
2011-06-30 09:41:50 +00:00
nextPutAll: 'From: <sip:1000@on-waves.com>;tag=MzQ4NTQ0MTg2NzIyNDEwNjkyNjY_'; cr; nl;
nextPutAll: 'To: <sip:9198@172.16.1.72>;tag=42eBv22Fj314N;abc=def;kbc;ajk'; cr; nl;
nextPutAll: 'Call-ID: MzY3NzE3ODgyNw__@xiaoyu'; cr; nl;
nextPutAll: 'CSeq: 1 INVITE'; cr; nl;
nextPutAll: 'User-Agent: FreeSWITCH-mod_sofia/1.0.head-git-dff41af 2011-04-20 14-11-24 +0200'; cr; nl;
nextPutAll: 'Accept: application/sdp'; cr; nl;
nextPutAll: 'Allow: INVITE, ACK, BYE, CANCEL, OPTIONS, MESSAGE, UPDATE, INFO, REGISTER, REFER, NOTIFY, PUBLISH, SUBSCRIBE'; cr; nl;
nextPutAll: 'Supported: timer, precondition, path, replaces'; cr; nl;
nextPutAll: 'Allow-Events: talk, hold, presence, dialog, line-seize, call-info, sla, include-session-description, presence.winfo, message-summary, refer'; cr; nl;
nextPutAll: 'Reason: Q.850;cause=96;text="MANDATORY_IE_MISSING"'; cr; nl;
nextPutAll: 'Content-Length: 0'; cr; nl;
nextPutAll: 'Remote-Party-ID: "9198" <sip:9198@172.16.1.72>;party=calling;privacy=off;screen=no'; cr; nl; cr;nl;
contents.
]
callagent: Fix the SIPVia parsing with optional parameters
2011-07-05 15:14:12 +00:00
testByeRequestData [
^ (WriteStream on: (String new))
nextPutAll: 'BYE sip:osmo_st_sip@213.167.137.242:1187 SIP/2.0'; cr; nl;
nextPutAll: 'Via: SIP/2.0/UDP 172.16.1.72:4000;ttl=16;maddr=224.2.0.1;rport;branch=z9hG4bKvt9FDU96c89cQ'; cr;nl;
nextPutAll: 'Max-Forwards: 70'; cr; nl;
nextPutAll: 'From: <sip:1000@172.16.1.72>;tag=tFFg06FKH425D'; cr; nl;
nextPutAll: 'To: <sip:1000@on-waves.com>;tag=MzQ4NzMzMjcxMTUyNDc1OTI2OA__'; cr; nl;
nextPutAll: 'Call-ID: MzkwNzQ1NTM2Nw__@xiaoyu'; cr; nl;
nextPutAll: 'CSeq: 14600327 BYE'; cr; nl;
nextPutAll: 'Contact: <sip:1000@172.16.1.72:5060;transport=udp>'; cr; nl;
nextPutAll: 'User-Agent: FreeSWITCH-mod_sofia/1.0.head-git-2e651c8 2011-07-03 22-35-44 -0500'; cr; nl;
nextPutAll: 'Allow: INVITE, ACK, BYE, CANCEL, OPTIONS, MESSAGE, UPDATE, INFO, REGISTER, REFER, NOTIFY, PUBLISH, SUBSCRIBE'; cr; nl;
nextPutAll: 'Supported: timer, precondition, path, replaces'; cr; nl;
nextPutAll: 'Reason: Q.850;cause=16;text="NORMAL_CLEARING"'; cr; nl;
nextPutAll: 'Content-Length: 0'; cr; nl;
cr; nl; contents
callagent: Create a class to handle OPTIONS Linphone insists on sending it and the RFC says that handling is mandatory. Start with being able to parse the message.
2012-08-05 14:43:34 +00:00
]
testOPTIONSRequestData [
^ (WriteStream on: String new)
nextPutAll: 'OPTIONS sip:127.0.0.1:5061 SIP/2.0'; cr; nl;
nextPutAll: 'Via: SIP/2.0/UDP 127.0.0.1:5060;rport;branch=z9hG4bK1492385841'; cr; nl;
nextPutAll: 'Route: "123456" <sip:123456@127.0.0.1>;tag=oxivb'; cr; nl;
nextPutAll: 'From: <sip:%60123456@127.0.0.1>;tag=70812965'; cr; nl;
nextPutAll: 'To: "123456" <sip:123456@127.0.0.1>;tag=oxivb'; cr; nl;
nextPutAll: 'Call-ID: 486321292'; cr; nl;
nextPutAll: 'CSeq: 20 OPTIONS'; cr; nl;
nextPutAll: 'Accept: application/sdp'; cr; nl;
nextPutAll: 'Max-Forwards: 70'; cr; nl;
nextPutAll: 'User-Agent: Linphone/3.4.3 (eXosip2/3.6.0)'; cr; nl;
nextPutAll: 'Content-Length: 0'; cr; nl;
cr; nl; contents
]
callagent: Fix the SIPVia parsing with optional parameters
2011-07-05 15:14:12 +00:00
callagent: Create a class to handle OPTIONS Linphone insists on sending it and the RFC says that handling is mandatory. Start with being able to parse the message.
2012-08-05 14:43:34 +00:00
testOPTIONSRequest [
| res |
callagent: Fix the SIPVia parsing with optional parameters
2011-07-05 15:14:12 +00:00
callagent: Create a class to handle OPTIONS Linphone insists on sending it and the RFC says that handling is mandatory. Start with being able to parse the message.
2012-08-05 14:43:34 +00:00
res := self parse: self testOPTIONSRequestData.
self assert: res asDatagram = self testOPTIONSRequestData.
callagent: Fix the SIPVia parsing with optional parameters
2011-07-05 15:14:12 +00:00
]
callagent: Test the parser a bit more
2011-06-13 17:56:35 +00:00
testResponse [
callagent: Remove unused variable in the test code.
2011-07-05 09:18:45 +00:00
| res |
parser: Create the test data using a WriteStream
2011-06-30 09:41:50 +00:00
res := self parse: self testResponseData.
self assert: res asDatagram = self testResponseData.
callagent: Parse the Via tag in depth to reach the branch Add the grammar for the Via parameter, introduce a generic array folding class to turn it into a string. Add a data holder that returns the complete string but also the branch if that is required.
2011-06-13 21:09:02 +00:00
self assert: (res parameter: 'Via') branch = 'z9hG4bKMzQ4NTQzNDgxNCwyNDE1Nw__'.
callagent: Parse the CSeq into a special data holder
2011-06-14 17:34:54 +00:00
self assert: (res parameter: 'CSeq') number = 1.
self assert: (res parameter: 'CSeq') method = 'INVITE'.
parser: Extract the generic_param/to_param provide access to the tag Parse every generic_param (or specialized) into a SIPGenericParam, provide a asFoldedString implementation, tell the folding code about it, create a SIPToFromParam that holds the list of params.
2011-06-30 09:35:38 +00:00
self assert: (res parameter: 'To') tag = '42eBv22Fj314N'.
callagent: Add code to create a SIPDialog from the request/response The code only tests this with the response but it should work for the request as well. Depending on this one needs to switch from/to but this needs to happen on a higher level.
2011-07-05 09:14:55 +00:00
self assert: (res parameter: 'To') address = 'sip:9198@172.16.1.72'.
parser: Extract the generic_param/to_param provide access to the tag Parse every generic_param (or specialized) into a SIPGenericParam, provide a asFoldedString implementation, tell the folding code about it, create a SIPToFromParam that holds the list of params.
2011-06-30 09:35:38 +00:00
self assert: ((res parameter: 'To') valueAt: 'abc') = 'def'.
self assert: ((res parameter: 'To') valueAt: 'kbc') = nil.
self assert: ((res parameter: 'To') valueAt: 'ajk') = nil.
self should: [((res parameter: 'To') valueAt: 'foo')] raise: SystemExceptions.NotFound.
parser: Add the parsing to the From tag as well
2011-06-30 10:05:27 +00:00
self assert: (res parameter: 'From') tag = 'MzQ4NTQ0MTg2NzIyNDEwNjkyNjY_'.
callagent: Add code to create a SIPDialog from the request/response The code only tests this with the response but it should work for the request as well. Depending on this one needs to switch from/to but this needs to happen on a higher level.
2011-07-05 09:14:55 +00:00
self assert: (res parameter: 'From') address = 'sip:1000@on-waves.com'.
]
testSIPDialog [
callagent: Remove unused variable in the test code.
2011-07-05 09:18:45 +00:00
| dialog |
callagent: Add code to create a SIPDialog from the request/response The code only tests this with the response but it should work for the request as well. Depending on this one needs to switch from/to but this needs to happen on a higher level.
2011-07-05 09:14:55 +00:00
dialog := SIPDialog fromMessage: (self parse: self testResponseData).
self
assert: dialog to = 'sip:9198@172.16.1.72';
assert: dialog to_tag = '42eBv22Fj314N';
assert: dialog from = 'sip:1000@on-waves.com';
assert: dialog from_tag = 'MzQ4NTQ0MTg2NzIyNDEwNjkyNjY_';
assert: dialog callId = 'MzY3NzE3ODgyNw__@xiaoyu';
assert: dialog cseq = 1.
callagent: Test the parser a bit more
2011-06-13 17:56:35 +00:00
]
callagent: Check if two SIPDialog's are compatible
2011-07-05 10:06:36 +00:00
testDialogCompatible [
| initial_dialog dialog1 dialog2 |
initial_dialog := (SIPDialog
fromUser: 'sip:1000@on-waves.com' host: '0.0.0.0' port: 5060)
fromTag: 'MzQ4NTQ0MTg2NzIyNDEwNjkyNjY_';
callId: 'MzY3NzE3ODgyNw__@xiaoyu';
yourself.
self assert: initial_dialog isUnconfirmed.
self deny: initial_dialog isConfirmed.
dialog1 := initial_dialog newFromRequest: (self parse: self testResponseData).
self deny: initial_dialog == dialog1.
self assert: dialog1 isConfirmed.
dialog2 := dialog1 newFromRequest: (self parse: self testResponseData).
self assert: dialog1 == dialog2.
self assert: dialog2 isConfirmed.
]
callagent: Fix the SIPVia parsing with optional parameters
2011-07-05 15:14:12 +00:00
testByeRequest [
| res |
res := SIPParser parse: self testByeRequestData.
self
assert: (res parameter: 'Allow' ifAbsent: []) = 'INVITE, ACK, BYE, CANCEL, OPTIONS, MESSAGE, UPDATE, INFO, REGISTER, REFER, NOTIFY, PUBLISH, SUBSCRIBE';
assert: (res parameter: 'Via' ifAbsent: []) branch = 'z9hG4bKvt9FDU96c89cQ';
assert: (res parameter: 'CSeq' ifAbsent: []) number = 14600327.
]
callagent: Parse a status response
2012-08-03 09:02:41 +00:00
statusResponseData [
^ (WriteStream on: String new)
nextPutAll: 'SIP/2.0 416 Unsupported URI Scheme'; cr; nl;
nextPutAll: 'Via: SIP/2.0/UDP 192.168.0.101:5061;branch=z9hG4bKMzQ4ODYxODcyOCwyMDg0MA__'; cr; nl;
nextPutAll: 'From: <sip:1000@osmocom.org>;tag=MzQ4ODYyNTkyODQxMDY0OTAxMzI_'; cr; nl;
nextPutAll: 'To: <1000@192.168.0.106>;tag=5UtDUa1DeFa4S'; cr; nl;
nextPutAll: 'Call-ID: MTg3NzU0Mjk2MQ__@xiaoyu'; cr; nl;
nextPutAll: 'CSeq: 1 INVITE'; cr; nl;
nextPutAll: 'User-Agent: FreeSWITCH-mod_sofia/1.0.head-git-7cb0951 2011-06-24 18-28-56 -0500'; cr; nl;
nextPutAll: 'Allow: INVITE, ACK, BYE, CANCEL, OPTIONS, MESSAGE, UPDATE, INFO, REGISTER, REFER, NOTIFY, PUBLISH, SUBSCRIBE'; cr; nl;
nextPutAll: 'Supported: timer, precondition, path, replaces'; cr; nl;
nextPutAll: 'Content-Length: 0'; cr; nl;
cr; nl;
contents
]
testStatusResponse [
| res dlg |
res := SIPParser parse: self statusResponseData.
"dlg := SIPDialog fromMessage: res."
]
callagent: Test the parser a bit more
2011-06-13 17:56:35 +00:00
]