aboutsummaryrefslogtreecommitdiffstats
path: root/SMSTests.st
blob: 0ba290da7ea72b739fec7cb75f9b61dcd70da673 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
"
 (C) 2012 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/>.
"

TestCase subclass: GSM411Test [
    <category: 'OsmoGSM-SMS-Tests'>

    testCPData [
        | inp dec |
        inp := #[
            16r09 16r01 16r23 16r00 16r0C 16r00 16r07 16r91
            16r36 16r19 16r08 16r00 16r10 16r50 16r17 16r01
            16r0C 16r0F 16r81 16r00 16r33 16r33 16r33 16r33
            16r33 16r33 16rF3 16r00 16r00 16r09 16rAA 16rBB
            16rCC 16rDD 16rEE 16rFF 16r11 16r22].

        dec := GSM48MSG decode: inp readStream.

        self
            assert: dec type = GSMCpData messageType;
            assert: dec toMessage asByteArray = inp.

        self
            assert: dec rpMessage toMessage asByteArray equals: dec userData data.
    ]

    testCPData2 [
        | inp dec |
        inp := #(16r89 16r01 16r02 16r02 16r2A) asByteArray.
        dec := GSM48MSG decode: inp readStream.

        self
            assert: dec type = GSMCpData messageType;
            assert: dec toMessage asByteArray = inp.

        self
            assert: dec rpMessage toMessage asByteArray equals: dec userData data.
    ]
]