bsc: Fix TC_paging_imsi_nochan

The point of this test is to verify that *no* paging messages are sent
if "No cell" is given as cell identifier list by the MSC.  We can thus
not use the existing pageing_helper function, but have to handle this
a bit differently.

This makes TC_paging_imsi_nochan runs pass.

Change-Id: Iec1086bd42f42de1986bb00b91af718977f73b30
diff --git a/bsc/BSC_Tests.ttcn b/bsc/BSC_Tests.ttcn
index 69f072b..29150ce 100644
--- a/bsc/BSC_Tests.ttcn
+++ b/bsc/BSC_Tests.ttcn
@@ -976,7 +976,32 @@
 testcase TC_paging_imsi_nochan() runs on test_CT {
 	var BSSMAP_FIELD_CellIdentificationList cid_list;
 	cid_list := valueof(ts_BSSMAP_CIL_noCell);
-	f_pageing_helper('001010123456789'H, cid_list, c_BtsId_all);
+	var integer i;
+
+	f_init();
+	f_bssap_reset();
+
+	/* Clear the queue, it might still contain stuff like BCCH FILLING */
+	for (i := 0; i < NUM_BTS; i := i + 1) {
+		IPA_RSL[i].clear;
+	}
+
+	f_bssap_tx_ud(ts_BSSMAP_Paging('001010123456789'H, cid_list, omit, omit));
+
+	/* wait for some time until when paging messages would appear */
+	f_sleep(3.0);
+
+	for (i := 0; i < NUM_BTS; i := i + 1) {
+		timer T := 0.01;
+		T.start;
+		alt {
+		[] IPA_RSL[i].receive(tr_ASP_RSL_UD(IPAC_PROTO_RSL_TRX0, tr_RSL_PAGING_CMD(?))) {
+			setverdict(fail, "Received unexpected paging");
+			}
+		[] T.timeout {}
+		}
+	}
+	setverdict(pass);
 }
 
 /* PAGING by IMSI + TMSI */