route outgoing message through the bts

fakebts/BTS.st

@@ -64,7 +64,7 @@ RSLChannelActivation extend [
                 channelNumber: self channelNumber;
                 frameNumber: #(23 42) asRSLAttributeData;
                 yourself.
-        aTrx sendRSL: ack toMessage.
+        aTrx mainBts sendRSL: ack toMessage on: aTrx.
     ]
 
     trxNackChan: aTrx lchan: aLchan [
@@ -322,6 +322,11 @@ Object subclass: BTS [
         rsl send: aMsg.
     ]
 
+    sendRSL: aMsg on: aTrx [
+        <category: 'rsl'>
+        self sendOnPrimaryRSL: aMsg.
+    ]
+
     findRequestee: aRa [
         <category: 'lchan'>
 
@@ -336,6 +341,8 @@ Object subclass: BTS [
         | requestee |
         <category: 'lchan'>
 
+        Transcript nextPutAll: 'Channel Assigned'; nl.
+
         "Find and remove the requestee"
         requestee := self findRequestee: aRa.
         ras_mutex critical: [

fakebts/BTSDualTrx.st

@@ -86,4 +86,11 @@ BTS subclass: DualTrxBTS [
 
         rsl2 connect: oml address port: aPort.
     ]
+
+    sendRSL: aMsg on: aTrx [
+        <category: 'rsl'>
+        aTrx fomInstance trx = 0
+            ifTrue: [rsl send: aMsg]
+            ifFalse: [rsl2 send: aMsg].
+    ]
 ]

fakebts/OpenBSCTest.st

@@ -134,6 +134,7 @@ Object subclass: OpenBSCTest [
         rsl accessDelay: #(23) asRSLAttributeData.
 
         lchan := bts waitForChannel: rsl toMessage with: ra.
+        lchan isNil ifTrue: [^self error: 'No LCHAN allocated.'].
         ^ LogicalChannelWrapper initWith: lchan.
     ]