blob: 78a234eecc0c8457ac1058855b2c852ddc570acf (
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
54
55
56
57
58
59
60
61
62
63
64
65
|
"
(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/>.
"
PackageLoader fileInPackage: #FakeBTS.
FakeBTS.OpenBSCTest subclass: IMSIDetach [
<import: OsmoGSM>
startTest [
"1. Connect to the BTS"
self createAndConnectBTS: '1801/0/0'.
self testIMSIDetach.
]
testIMSIDetach [
| lchan detach tmsi |
tmsi := self allocateTmsi: '901010000001111'.
"2. Get a LCHAN"
lchan := self requireAnyChannel.
"3. Send a IMSI Detach"
detach := GSM48IMSIDetachInd new.
detach mi tmsi: tmsi.
lchan sendGSM: detach toMessage.
"Wait for the channel to be released.."
[
| msg |
"Read all messages until the end on SAPI=0. Ignore SAPI=3"
"If we send another SAPI=3 Release Indication we get a double
RF Channel Release from the NITB."
[
msg := GSM48MSG decode: lchan nextSapi0Msg readStream.
(msg isKindOf: GSM48RRChannelRelease)
ifTrue: [lchan releaseAllSapis. ^true]
] on: Exception do: [Transcript nextPutAll: 'GSM decoding error'; nl.].
] repeat.
]
]
Eval [
| test |
test := IMSIDetach new
startTest;
stopBts;
yourself.
]
|