diff options
| -rw-r--r-- | codec/SMPPEnquireLink.st | 28 | ||||
| -rw-r--r-- | package.xml | 1 | ||||
| -rw-r--r-- | test/SMPPMessageTest.st | 11 |
3 files changed, 40 insertions, 0 deletions
diff --git a/codec/SMPPEnquireLink.st b/codec/SMPPEnquireLink.st new file mode 100644 index 0000000..34c442b --- /dev/null +++ b/codec/SMPPEnquireLink.st @@ -0,0 +1,28 @@ +" + (C) 2014 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/>. +" + +SMPPBodyBase subclass: SMPPEnquireLink [ + + SMPPEnquireLink class >> messageType [ + ^self enquireLink + ] + + SMPPEnquireLink class >> tlvDescription [ + ^OrderedCollection new + ] +] diff --git a/package.xml b/package.xml index cbc7ca9..e96047f 100644 --- a/package.xml +++ b/package.xml @@ -8,6 +8,7 @@ <filein>codec/SMPPBodyBase.st</filein> <filein>codec/SMPPBindTransmitterBody.st</filein> <filein>codec/SMPPBindTransceiver.st</filein> + <filein>codec/SMPPEnquireLink.st</filein> <filein>codec/attributes/SMPPOctetString.st</filein> <filein>codec/attributes/SMPPInteger.st</filein> diff --git a/test/SMPPMessageTest.st b/test/SMPPMessageTest.st index 4e1a5d0..39dc2e8 100644 --- a/test/SMPPMessageTest.st +++ b/test/SMPPMessageTest.st @@ -37,6 +37,11 @@ TestCase subclass: SMPPMessageTest [ 16r00] ] + exampleEnquire [ + ^#[16r00 16r00 16r00 16r10 16r00 16r00 16r00 16r15 + 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r03] + ] + testReadMessage [ | msg | msg := SMPPMessage readFrom: self examplePdu readStream. @@ -79,4 +84,10 @@ TestCase subclass: SMPPMessageTest [ self assert: msg body class equals: SMPPBindTransceiver. self assert: msg body systemdId equals: 'AAAAAAAAAA'. ] + + testEnquireLink [ + | msg | + msg := SMPPMessage readFrom: self exampleEnquire readStream. + self assert: msg body class equals: SMPPEnquireLink. + ] ] |