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

Merge commit '08ebcfdab3cd161bb111851bbb5d74f80aff97d0'

This commit is contained in:
Holger Hans Peter Freyther 2014-06-19 15:59:37 +02:00
parent 9f175bb3f3 08ebcfdab3
commit 6787db7873
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
osmo-st-mgcp/callagent/Tests.st
View File

@ -368,6 +368,12 @@ PP.PPCompositeParserTest subclass: MGCPParserTest [
^String streamContents: [:stream |
stream
nextPutAll: 'DLCX nat-0 1@mgw MGCP 1.0'; cr; nl]
]
MGCPParserTest class >> dlcxMessageReg [
^String streamContents: [:stream |
stream
nextPutAll: 'DLCX nat-9999999999 a@mgw MGCP 1.0'; cr; nl]
]
@ -384,6 +390,14 @@ PP.PPCompositeParserTest subclass: MGCPParserTest [
self assert: crcx asDatagram equals: self class crcxMessage.
]
testParseNatDLCX [
| dlcx |
dlcx := self parse: self class dlcxMessageReg.
self assert: dlcx class verb equals: 'DLCX'.
self assert: dlcx asDatagram equals: self class dlcxMessageReg.
]
testParseDLCX [
| dlcx |
dlcx := self parse: self class natDLCXMessage.

2
osmo-st-mgcp/grammar/MGCPGrammar.st
View File

@ -73,7 +73,7 @@ PP.PPCompositeParser subclass: MGCPGrammar [
<category: 'grammar-cmd'>
"Add Osmocom extension that starts with 'nat-'"
^ ((#digit asParser) min: 1 max: 9) flatten /
('nat-' asParser, (#digit asParser) min: 1 max: 9) flatten
('nat-' asParser, ((#digit asParser) min: 1 max: 9) plus) flatten
]
endpointName [