fakebts: Implement forwarding the paging requests by the BSC
Code can use OpenBSCTest>>#bts to access the BTS and re-act to paging by the BSC.
This commit is contained in:
parent
e01a38431f
commit
1ebfec2bbc
|
@ -155,8 +155,16 @@ RSLReleaseRequest extend [
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
|
RSLPagingCommand extend [
|
||||||
|
trxDispatchOn: aTrx [
|
||||||
|
<category: '*-BTS-Core'>
|
||||||
|
aTrx mainBts paging: self msIdenity.
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
Object subclass: BTS [
|
Object subclass: BTS [
|
||||||
| site_mgr oml rsl oml_queue oml_init connected oml_up ras ras_mutex bts_id |
|
| site_mgr oml rsl oml_queue oml_init connected oml_up ras ras_mutex
|
||||||
|
bts_id on_paging |
|
||||||
<category: 'BTS-Core'>
|
<category: 'BTS-Core'>
|
||||||
<comment: 'A fake BTS to test the state machine and inject
|
<comment: 'A fake BTS to test the state machine and inject
|
||||||
RSL messages to test a network without RF.'>
|
RSL messages to test a network without RF.'>
|
||||||
|
@ -373,4 +381,12 @@ Object subclass: BTS [
|
||||||
ras_mutex critical: [ras identityRemove: entry ifAbsent: []].
|
ras_mutex critical: [ras identityRemove: entry ifAbsent: []].
|
||||||
^ out_chan
|
^ out_chan
|
||||||
]
|
]
|
||||||
|
|
||||||
|
paging: aPaging [
|
||||||
|
on_paging ifNotNil: [on_paging value: aPaging]
|
||||||
|
]
|
||||||
|
|
||||||
|
onPaging: aCallback [
|
||||||
|
on_paging := aCallback
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
|
|
@ -133,6 +133,11 @@ Object subclass: OpenBSCTest [
|
||||||
waitForBTSReady.
|
waitForBTSReady.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
bts [
|
||||||
|
<category: 'accessing'>
|
||||||
|
^ bts
|
||||||
|
]
|
||||||
|
|
||||||
stopBts [
|
stopBts [
|
||||||
<category: 'bts'>
|
<category: 'bts'>
|
||||||
bts stop.
|
bts stop.
|
||||||
|
|
Reference in New Issue