From 799ac5941843a353edadded5af5fc8da2c5cc6ef Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Mon, 3 Sep 2012 17:07:21 +0200
Subject: [PATCH] test: Add code to require different kind of channels

---
 fakebts/OpenBSCTest.st | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/fakebts/OpenBSCTest.st b/fakebts/OpenBSCTest.st
index e356dbb..a740ac7 100644
--- a/fakebts/OpenBSCTest.st
+++ b/fakebts/OpenBSCTest.st
@@ -121,13 +121,14 @@ Object subclass: OpenBSCTest [
         bts stop.
     ]
 
-    requireAnyChannel [
-        | rsl ra lchan |
+    requireChannel: aType random: aMask [
+        | ra rsl lchan |
         <category: 'bts'>
-        "Require a Radio Channel of any type"
+        aType = (aType bitAnd: aMask)
+            ifFalse: [^self error: 'The mask/start is wrong.'].
 
         "The RA we will wait for.."
-        ra := 16r03.
+        ra := aType bitOr: (Random between: 0 and: aMask).
 
         rsl := RSLChannelRequired new.
         rsl channelNumber: RSLChannelNumber ccchRach.
@@ -138,6 +139,17 @@ Object subclass: OpenBSCTest [
         ^ LogicalChannelWrapper initWith: lchan.
     ]
 
+    requireAnyChannel [
+        <category: 'bts'>
+        " Only use four bit for random to work with both necis"
+        ^ self requireChannel: 2r0 random: 2r1111
+    ]
+
+    requireEmergencyChannel [
+        <category: 'bts'>
+        ^ self requireChannel: 2r10100000 random: 2r11111
+    ]
+
     assert: aBoolean message: aMessage [
         <category: 'verifying'>
         aBoolean ifTrue: [^self].